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.26 by tdb, Mon Mar 12 23:51:15 2001 UTC vs.
Revision 1.27 by pjm2, Wed Mar 14 18:00:16 2001 UTC

#	Line 311 | Line 311 | sub send_tcp_heartbeat() {
311		) or return;
312		if (!defined $sock) {
313		print "IHOST WARNING: Failed to deliver a heartbeat to the i-scream filter.\n";
314	+	&tcp_configure();
315		return;
316		}
317
#	Line 324 | Line 325 | sub send_tcp_heartbeat() {
325		if (!$response eq "OK") {
326		close($sock);
327		print "Server gave wrong response to HEARTBEAT: $response\n";
328	+	&tcp_configure();
329		return;
330		}
331
#	Line 334 | Line 336 | sub send_tcp_heartbeat() {
336		if (!$response eq "OK") {
337		close($sock);
338		print "Server gave wrong response to CONFIG: $response\n";
339	+	&tcp_configure();
340		return;
341		}
342
#	Line 344 | Line 347 | sub send_tcp_heartbeat() {
347		if (!$response eq "OK") {
348		close($sock);
349		print "Server gave wrong response to file list: $response\n";
350	+	&tcp_configure();
351		return;
352		}
353
#	Line 353 | Line 357 | sub send_tcp_heartbeat() {
357		chop $response;
358		if ($response eq "ERROR") {
359		close($sock);
360	+	print "Server configuration changed.  Reconfiguring with filter manager.\n";
361		&tcp_configure();
362		return;
363		}
364		if (!$response eq "OK") {
365		close($sock);
366		print "Server gave wrong response to HEARTBEAT: $response\n";
367	+	&tcp_configure();
368		return;
369		}
370
#	Line 369 | Line 375 | sub send_tcp_heartbeat() {
375		if (!$response eq "OK") {
376		close($sock);
377		print "Server gave wrong response to ENDHEARTBEAT: $response\n";
378	+	&tcp_configure();
379		return;
380		}
381

Diff Legend

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