# | Line 12 | Line 12 | use LWP::UserAgent; | |
---|---|---|
12 | use MIME::Base64; | |
13 | use POSIX; | |
14 | ||
15 | + | $ENV{HTTPS_CA_FILE} = "$ENV{HOME}/cacert.pem"; |
16 | + | |
17 | my $url = new URI("https://topsecret.douglasthrift.net/auth/hosts/"); | |
18 | my ($sysname, $nodename, $release, $version, $machine) = uname(); | |
19 | my $agent = new LWP::UserAgent(agent => "HostUpdate/1.1 ($sysname $release $machine) "); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |