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.21 by pjm2, Wed Feb 28 12:25:48 2001 UTC vs.
Revision 1.23 by pjm2, Thu Mar 1 18:53:42 2001 UTC

#	Line 304 | Line 304 | sub send_tcp_heartbeat() {
304
305		print $sock "HEARTBEAT\n";
306		$response = <$sock>;
307	+	return if (!defined $response);
308		chop $response;
309		if (!$response eq "OK") {
310		close($sock);
#	Line 313 | Line 314 | sub send_tcp_heartbeat() {
314
315		print $sock "CONFIG\n";
316		$response = <$sock>;
317	+	return if (!defined $response);
318		chop $response;
319		if (!$response eq "OK") {
320		close($sock);
#	Line 322 | Line 324 | sub send_tcp_heartbeat() {
324
325		print $sock "$file_list\n";
326		$response = <$sock>;
327	+	return if (!defined $response);
328		chop $response;
329		if (!$response eq "OK") {
330		close($sock);
#	Line 331 | Line 334 | sub send_tcp_heartbeat() {
334
335		print $sock "$last_modified\n";
336		$response = <$sock>;
337	+	return if (!defined $response);
338		chop $response;
339		if ($response eq "ERROR") {
340		close($sock);
#	Line 345 | Line 349 | sub send_tcp_heartbeat() {
349
350		print $sock "ENDHEARTBEAT\n";
351		$response = <$sock>;
352	+	return if (!defined $response);
353		chop $response;
354		if (!$response eq "OK") {
355		close($sock);

Diff Legend

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