Replaced FREE_PASCAL_RTE by a generic EXIT_CODE_HOOK.

[moe.git] / submit / remote-submit

diff --git a/submit/remote-submit b/submit/remote-submit
index 20917087b7f63b8f3ffa49c35827b25ca1841c62..c2e13a0b06bddcb068b4f65496babd983ead0626 100755 (executable)
--- 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($) {