Moved everything related to MO-P to mop/. This cleans up bin/.

[moe.git] / submit / remote-submit

diff --git a/submit/remote-submit b/submit/remote-submit
index 543ed7a4bb5d77c81aaaf3185482ac05d411604b..c2e13a0b06bddcb068b4f65496babd983ead0626 100755 (executable)
--- 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";
 }
 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 $ENV{"MO_ROOT"} . "/lib/perl5";

-use lib ".";           ### FIXME

 
 use MO::Submit;
 use Sherlock::Object;
 
 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 $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($) {
 $conn->connect or die $conn->{"error"} . "\n";
 
 sub or_die($) {