ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.3 by pjm2, Fri Jan 26 17:32:32 2001 UTC vs.
Revision 1.8 by pjm2, Mon Jan 29 09:19:16 2001 UTC

#	Line 1 | Line 1
1	<	#!/usr/local/bin/perl -w
1	>	#!/usr/bin/perl -w
2
3		# -----------------------------------------------------------
4		# Perl i-scream Host.
#	Line 88 | Line 88 | sub tcp_configure() {
88		chop $response;
89		$last_modified = $response;
90
91	<	print "Config last modified: ". scalar localtime $last_modified . "\n";
91	>	print "Config last modified: ". (scalar localtime $last_modified/1000) . "\n";
92
93		print $sock "FILELIST\n";
94		$response = <$sock>;
#	Line 107 | Line 107 | sub tcp_configure() {
107		chop $response;
108		$tcp_update_time = $response;
109
110	<	print "UDP packet period: $udp_update_time seconds.\nTCP heartbeat period: $tcp_update_time.\n";
110	>	print "UDP packet period: $udp_update_time seconds.\nTCP heartbeat period: $tcp_update_time seconds.\n";
111
112		print $sock "ENDCONFIG\n";
113		$response = <$sock>;
#	Line 169 | Line 169 | sub send_udp_packet() {
169		$disk_info .= "</disk>";
170
171		my($hostname) = hostname();
172	<	($hostname = $hostname) =~ /^([^\.]*?)/;
173	<	print $hostname;
174	<	my($domainname) = `cat /etc/resolv.conf`;
175	<	$domainname =~ s/domain\s*([^\s]*?)/$1/;
172	>	$hostname =~ s/\..*$//g;
173	>	`cat /etc/resolv.conf` =~ /domain\s+([^\s]+)/;
174	>	my($domainname) = $1;
175		my($machine_name) = "$hostname.$domainname";
176		my($ip) = inet_ntoa(scalar(gethostbyname($hostname)) || 'localhost');
177

Diff Legend

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