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.46 by tdb, Mon Mar 11 13:34:24 2002 UTC vs.
Revision 1.47 by tdb, Thu Mar 21 17:57:13 2002 UTC

#	Line 34 | Line 34 | use vars qw (
34		$pidfile
35		$retry_wait
36		$ostype
37	+	$key
38		@data
39		);
40
#	Line 61 | Line 62 | $pidfile .= "/.ihost.pid";
62		&write_pid();
63
64		&tcp_configure();
65	+	&send_tcp_heartbeat();
66		&send_udp_packet();
67
68		$last_udp_time = time;
#	Line 286 | Line 288 | sub send_udp_packet() {
288		push(@data, "packet.attributes.date $date");
289		push(@data, "packet.attributes.type data");
290		push(@data, "packet.attributes.ip $ip");
291	+	push(@data, "packet.attributes.key $key");
292
293		# sort the data
294		@data = sort(grep(!/^$/, grep(/^packet\./, @data)));
#	Line 373 | Line 376 | sub send_tcp_heartbeat() {
376		&tcp_configure();
377		return;
378		}
379	+
380	+	print $sock "KEY\n";
381	+	$key = <$sock>;
382
383		print $sock "ENDHEARTBEAT\n";
384		$response = <$sock>;

Diff Legend

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