FreeBSDAdmin/HostUpdate/HostUpdate.pl

#!/usr/bin/perl
#
# 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://douglasthrift.net/topsecret/hostupdate.cgi",
        [host => $nodename]);
my $content = $response->content;

print "$content";
Revision:	16
Committed:	2003-11-09T17:13:41-08:00 (21 years, 7 months ago) by Douglas Thrift
Content type:	text/x-perl
Original Path:	*HostUpdate/hostupdate.pl*
File size:	427 byte(s)
Log Message:	Ooh, Top Secret!
#	User	Rev	Content
1	Douglas Thrift	14	#!/usr/bin/perl
2	Douglas Thrift	3	#
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	Douglas Thrift	16	my $response = $agent->post("http://douglasthrift.net/topsecret/hostupdate.cgi",
19	Douglas Thrift	13	[host => $nodename]);
20	Douglas Thrift	3	my $content = $response->content;
21
22	Douglas Thrift	13	print "$content";
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Id