X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=inline;f=submit%2Fremote-submit;h=c2e13a0b06bddcb068b4f65496babd983ead0626;hb=5fca32af49d84dcadf96317d54708c20a41ba151;hp=20917087b7f63b8f3ffa49c35827b25ca1841c62;hpb=f8d8a091ce25581ea862ee242305a8591e292c18;p=eval.git

diff --git a/submit/remote-submit b/submit/remote-submit
index 2091708..c2e13a0 100755
--- a/submit/remote-submit
+++ b/submit/remote-submit
@@ -7,7 +7,7 @@ BEGIN {
 	defined $ENV{"MO_ROOT"} or die "Please set MO_ROOT to the contest root directory first.\n";
 }
 use lib $ENV{"MO_ROOT"} . "/submit";
-use lib $ENV{"MO_ROOT"} . "/submit/lib/perl5";
+use lib $ENV{"MO_ROOT"} . "/lib/perl5";
 
 use MO::Submit;
 use Sherlock::Object;
@@ -28,6 +28,10 @@ my $s = stat(*F) or die;
 my $size = $s->size;
 
 my $conn = new MO::Submit;
+
+my $he = $conn->write_history($task, $part, $ext, $file);
+if (defined $he) { die "$he\n"; }
+
 $conn->connect or die $conn->{"error"} . "\n";
 
 sub or_die($) {