repos/HostUpdate/hostupdate.pl

#!D:/Perl/bin/perl.exe
#
# Host Update
#
# Douglas Thrift
#
# $Id$

use strict;
use LWP::UserAgent;
use POSIX;

my $agent = LWP::UserAgent->new;
my ($sysname, $nodename, $release, $version, $machine) = uname();

$agent->agent("Host Update/1.0 ($sysname $release $machine) ");

my $response = $agent->post("http://douglaspc/cgi-bin/printenv.pl", [host =>
        $nodename]);
my $content = $response->content;

print "$content
";
Revision:	2
Committed:	2003-11-05T18:29:00-08:00 (21 years, 7 months ago) by Douglas Thrift
Content type:	text/x-perl
File size:	445 byte(s)
Log Message:	Did stuff!
#	User	Rev	Content
1	Douglas Thrift	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			";