ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/repos/FreeBSDAdmin/HostUpdate/HostUpdate.pl

Comparing HostUpdate/hostupdate.pl (file contents):
Revision 3 by Douglas Thrift, 2003-11-05T18:37:16-08:00 vs.
Revision 14 by Douglas Thrift, 2003-11-07T23:04:39-08:00

#	Line 1 | Line 1
1	<	#!D:/Perl/bin/perl.exe
1	>	#!/usr/bin/perl
2		#
3		# Host Update
4		#
#	Line 15 | Line 15 | my ($sysname, $nodename, $release, $vers
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]);
18	>	my $response = $agent->post("http://daemon/~douglas/hostupdate.cgi",
19	>	[host => $nodename]);
20		my $content = $response->content;
21
22	<	print "$content
23	<	";
22	>	print "$content";

Diff Legend

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