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

Comparing:
HostUpdate/hostupdate.pl (file contents), Revision 1 by Douglas Thrift, 2003-11-05T17:58:20-08:00 vs.
FreeBSDAdmin/HostUpdate/hostupdate.pl (file contents), Revision 963 by douglas, 2007-11-28T23:43:19-08:00

# Line 1 | Line 1
1 < #!D:/Perl/bin/perl.exe
2 < #
3 < # Host Update
4 < #
5 < # Douglas Thrift
6 < #
7 < # $Id$
8 <
9 < use strict;
10 < use LWP::UserAgent;
11 < use POSIX;
12 <
13 < my $agent = LWP::UserAgent->new;
14 < my ($sysname, $nodename, $release, $version, $machine) = uname();
15 <
16 < $agent->agent("Host Update/1.0 ($sysname $release $machine) ");
17 <
18 < my $response = $agent->post("http://douglaspc/cgi-bin/printenv.pl", [host =>
19 <        $nodename]);
20 < my $content = $response->content;
21 <
22 < print "$content
23 < ";
1 > #!/usr/bin/perl
2 > #
3 > # Host Update
4 > #
5 > # Douglas Thrift
6 > #
7 > # $Id$
8 >
9 > use strict;
10 > use LWP::UserAgent;
11 > use POSIX;
12 > use MIME::Base64 qw(encode_base64);
13 >
14 > my $agent = LWP::UserAgent->new;
15 > my ($sysname, $nodename, $release, $version, $machine) = uname();
16 >
17 > if (!($nodename =~ /\./))
18 > {
19 >        $nodename .= ".douglasthrift.net";
20 > }
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:"));
25 > my $content = $response->content;
26 >
27 > print "$content";

Comparing:
HostUpdate/hostupdate.pl (property svn:eol-style), Revision 1 by Douglas Thrift, 2003-11-05T17:58:20-08:00 vs.
FreeBSDAdmin/HostUpdate/hostupdate.pl (property svn:eol-style), Revision 963 by douglas, 2007-11-28T23:43:19-08:00

# Line 0 | Line 1
1 + native

Comparing:
HostUpdate/hostupdate.pl (property svn:executable), Revision 1 by Douglas Thrift, 2003-11-05T17:58:20-08:00 vs.
FreeBSDAdmin/HostUpdate/hostupdate.pl (property svn:executable), Revision 963 by douglas, 2007-11-28T23:43:19-08:00

# Line 0 | Line 1
1 + *

Comparing:
HostUpdate/hostupdate.pl (property svn:keywords), Revision 1 by Douglas Thrift, 2003-11-05T17:58:20-08:00 vs.
FreeBSDAdmin/HostUpdate/hostupdate.pl (property svn:keywords), Revision 963 by douglas, 2007-11-28T23:43:19-08:00

# Line 0 | Line 1
1 + Id

Diff Legend

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