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.22 by pjm2, Thu Mar 1 10:49:27 2001 UTC

#	Line 304 | Line 304 | sub send_tcp_heartbeat() {
304
305		print $sock "HEARTBEAT\n";
306		$response = <$sock>;
307	<	chop $response;
307	>	chop $response or return;
308		if (!$response eq "OK") {
309		close($sock);
310		print "Server gave wrong response to HEARTBEAT: $response\n";
#	Line 313 | Line 313 | sub send_tcp_heartbeat() {
313
314		print $sock "CONFIG\n";
315		$response = <$sock>;
316	<	chop $response;
316	>	chop $response or return;
317		if (!$response eq "OK") {
318		close($sock);
319		print "Server gave wrong response to CONFIG: $response\n";
#	Line 322 | Line 322 | sub send_tcp_heartbeat() {
322
323		print $sock "$file_list\n";
324		$response = <$sock>;
325	<	chop $response;
325	>	chop $response or return;
326		if (!$response eq "OK") {
327		close($sock);
328		print "Server gave wrong response to file list: $response\n";
#	Line 331 | Line 331 | sub send_tcp_heartbeat() {
331
332		print $sock "$last_modified\n";
333		$response = <$sock>;
334	<	chop $response;
334	>	chop $response or return;
335		if ($response eq "ERROR") {
336		close($sock);
337		&tcp_configure();
#	Line 344 | Line 344 | sub send_tcp_heartbeat() {
344		}
345
346		print $sock "ENDHEARTBEAT\n";
347	<	$response = <$sock>;
347	>	$response = <$sock> or return;
348		chop $response;
349		if (!$response eq "OK") {
350		close($sock);

Diff Legend

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