ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/repos/FreeBSDAdmin/HostUpdate/HostUpdate.pl
(Generate patch)

Comparing FreeBSDAdmin/HostUpdate/hostupdate.pl (file contents):
Revision 964 by douglas, 2007-11-29T00:16:53-08:00 vs.
Revision 965 by douglas, 2007-11-29T02:11:03-08:00

# Line 12 | Line 12 | use LWP::UserAgent;
12   use MIME::Base64;
13   use POSIX;
14  
15 < my $topsecret = 'topsecret.douglasthrift.net';
16 < my $url = "https://$topsecret/cgi-bin/printenv.pl";
15 > my $url = new URI("https://topsecret.douglasthrift.net/auth/hosts/");
16   my ($sysname, $nodename, $release, $version, $machine) = uname();
17   my $agent = new LWP::UserAgent(agent => "HostUpdate/1.1 ($sysname $release $machine) ");
18  
# Line 29 | Line 28 | my $agent = new LWP::UserAgent(agent =>
28  
29          $pass =~ tr/A-Za-z/N-ZA-Mn-za-m/;
30  
31 <        $agent->credentials(new URI("$topsecret:443", 'Top Secret', $user, decode_base64($pass)));
31 >        $agent->credentials($url->host_port, 'Top Secret', $user, decode_base64($pass));
32   }
33  
34   $nodename .= ".douglasthrift.net" if ($nodename !~ /\./);
# Line 37 | Line 36 | $nodename .= ".douglasthrift.net" if ($n
36   my $response = $agent->post($url, [host => $nodename]);
37  
38   $response->is_success or die basename($0) . ': ' . $response->status_line;
40
41 print $response->content;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines