fixed bug in socket handling.

2000-01-17 22:26:29 +00:00
parent 08b9d8b1ec
commit d04b1a790d
1 changed files with 6 additions and 2 deletions
@@ -91,7 +91,6 @@ while (1==1) {
 	    print $response->error_as_HTML;
 	    my $err_msg = $response->error_as_HTML;
 	    warn "$err_msg\n\n";
-	    die "$!";

 	} else {

@@ -132,7 +131,12 @@ while (1==1) {
 	$lcdconnect = <$remote>;

 	} # end else
-	sleep 600;
+	for ( $i=1 ; $i < 600 ; $i++ ) {
+		$lcdconnect = <$remote>;
+		# printf "sleeping 1 second";
+#		sleep 1;
+	}
+#	sleep 600;
 }
 close($remote);
 exit;