ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/repos/HostUpdate/hostssh.pl

Comparing HostUpdate/hostssh.pl (file contents):
Revision 150 by Douglas Thrift, 2004-05-16T17:12:28-07:00 vs.
Revision 151 by Douglas Thrift, 2004-05-16T17:23:15-07:00

#	Line 26 | Line 26 | elsif (!($host =~ /\./))
26
27		$agent->agent("Host SSH/1.0 ($sysname $release $machine) ");
28
29	<	my $response = $agent->get("http://topsecret.douglasthrift.net/auth/hostupdate"
30	<	. ".cgi?host=$host&mode=n", Authorization => "Basic " . encode_base64("Hos"
31	<	. "tUpdate:frell2003"));
29	>	my $response = $agent->post("http://topsecret.douglasthrift.net/auth/hostupdat"
30	>	. "e.cgi", [host => $host, mode => "n"], Authorization => "Basic " .
31	>	encode_base64("HostUpdate:frell2003"));
32		my $content = $response->content;
33
34		if ($content =~ /^name=(.+)$/)

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines