# | Line 21 | Line 21 | if (!($nodename =~ /\./)) | |
---|---|---|
21 | ||
22 | $agent->agent("Host Update/1.0 ($sysname $release $machine) "); | |
23 | ||
24 | < | my $response = $agent->post("http://topsecret.douglasthrift.net/auth/hostupdate.cgi", [host => $nodename], Authorization => "Basic " . encode_base64("HostUpdate:frell2003")); |
24 | > | my $response = $agent->post("http://topsecret.douglasthrift.net/auth/hostupdate.cgi", [host => $nodename], Authorization => "Basic " . encode_base64("HostUpdate:")); |
25 | my $content = $response->content; | |
26 | ||
27 | print "$content"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |