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;
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($) {