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 2 by Douglas Thrift, 2003-11-05T18:29:00-08:00 vs.
Revision 3 by Douglas Thrift, 2003-11-05T18:37:16-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	>	#!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	>	";

Comparing HostUpdate/hostupdate.pl (property svn:eol-style):
Revision 2 by Douglas Thrift, 2003-11-05T18:29:00-08:00 vs.
Revision 3 by Douglas Thrift, 2003-11-05T18:37:16-08:00

#	Line 0 | Line 1
1	+	native

Comparing HostUpdate/hostupdate.pl (property svn:executable):
Revision 2 by Douglas Thrift, 2003-11-05T18:29:00-08:00 vs.
Revision 3 by Douglas Thrift, 2003-11-05T18:37:16-08:00

#	Line 0 | Line 1
1	+	*

Diff Legend

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