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.23 by pjm2, Thu Mar 1 18:53:42 2001 UTC vs.
Revision 1.25 by tdb, Mon Mar 12 23:20:43 2001 UTC

#	Line 33 | Line 33 | use vars qw (
33		$filter_addr
34		$file_list
35		$fqdn
36	+	$pidfile
37		);
38
39		if (@ARGV != 2) {
#	Line 44 | Line 45 | $filter_manager_port = $ARGV[1];
45
46		$seq_no = 1;
47
48	+	# write our PID to a file
49	+	$pidfile = "ihost.pid";
50	+	&write_pid();
51	+
52		&tcp_configure();
53		&send_udp_packet();
54
#	Line 71 | Line 76 | while (1) {
76		`sleep $delay`;
77		}
78
79	+	# we'll probably never get here...
80	+	`rm -f $pidfile`;
81		exit(0);
82
83
#	Line 151 | Line 158 | sub tcp_configure() {
158
159		print $sock "FILTER\n";
160		$response = <$sock>;
161	+	unless (defined($response)) {
162	+	print "Failed: Could not get a filter address from the filter manager.\n";
163	+	exit(1);
164	+	}
165		chop $response;
166		$response =~ /(.*);(.*);(.*)/;
167		($filter_addr, $udp_port, $tcp_port) = ($1, $2, $3);
168	+	unless (defined($filter_addr) && defined($udp_port) && defined($tcp_port)) {
169	+	print "Failed: Filter address response from server did not make sense: $response\n";
170	+	exit(1);
171	+	}
172
173		print "Got filter data ($filter_addr, $udp_port, $tcp_port)\n";
174
#	Line 359 | Line 374 | sub send_tcp_heartbeat() {
374
375		close($sock);
376		print "^";
377	+
378	+	return;
379	+	}
380	+
381	+	#-----------------------------------------------------------------------
382	+	# write_pid
383	+	# Writes the PID (process ID) of this instance to $pidfile.
384	+	# This is then used by a seperate script to check (and restart) ihost.
385	+	#-----------------------------------------------------------------------
386	+	sub write_pid() {
387	+	open PID, ">$pidfile";
388	+	print PID $$;
389	+	close PID;
390
391		return;
392		}

Diff Legend

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