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 18 by Douglas Thrift, 2003-11-10T18:25:39-08:00 vs.
Revision 107 by Douglas Thrift, 2004-03-02T14:33:57-08:00

#	Line 14 | Line 14 | use MIME::Base64 qw(encode_base64);
14		my $agent = LWP::UserAgent->new;
15		my ($sysname, $nodename, $release, $version, $machine) = uname();
16
17	+	if (!($nodename =~ /\./))
18	+	{
19	+	$nodename .= ".local.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/hostupdat"

Diff Legend

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