X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=inline;f=submit%2Fremote-submit;h=c2e13a0b06bddcb068b4f65496babd983ead0626;hb=bc146dd87d43e294fd477f92f20e8dd43da83f21;hp=543ed7a4bb5d77c81aaaf3185482ac05d411604b;hpb=3043ffa0cb666e509d5b07e479ead4792fbf722d;p=moe.git

diff --git a/submit/remote-submit b/submit/remote-submit
index 543ed7a..c2e13a0 100755
--- a/submit/remote-submit
+++ b/submit/remote-submit
@@ -6,8 +6,8 @@ use warnings;
 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"} . "/lib/perl5";
-use lib ".";		### FIXME
 
 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($) {