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 |
|
|
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 !~ /\./); |
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; |