From 4e1059a0054a8004e9dda39a4f84d6f71e72b9a9 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 29 Jun 2007 22:22:53 +0200
Subject: [PATCH] Act sensibly when connection to the server is lost.

---
 submit/MO/Submit.pm | 3 ++-
 submit/contest      | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/submit/MO/Submit.pm b/submit/MO/Submit.pm
index 554fda8..0aa165d 100644
--- a/submit/MO/Submit.pm
+++ b/submit/MO/Submit.pm
@@ -126,7 +126,7 @@ sub connect($) {
 sub request($$) {
 	my ($self, $obj) = @_;
 	my $sk = $self->{"sk"};
-	## $SIG{'PIPE'} = 'ignore';
+	local $SIG{'PIPE'} = 'ignore';
 	$obj->write($sk);
 	print $sk "\n";
 	$sk->flush();
@@ -152,6 +152,7 @@ sub reply($) {
 sub send_file($$$) {
 	my ($self, $fh, $size) = @_;
 	my $sk = $self->{"sk"};
+	local $SIG{'PIPE'} = 'ignore';
 	while ($size) {
 		my $l = ($size < 4096 ? $size : 4096);
 		my $buf = "";
diff --git a/submit/contest b/submit/contest
index 8e7f3f2..7d54456 100755
--- a/submit/contest
+++ b/submit/contest
@@ -258,6 +258,7 @@ sub refresh()
 	if (!$conn->is_connected && !$force_refresh) {
 		# Retry
 		$conn->log("Retrying");
+		$force_refresh = 1;
 		refresh();
 	}
 }
-- 
2.39.2