submit/remote-status.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7         defined $ENV{"MO_ROOT"} or die "Please set MO_ROOT to the contest root directory first.\n";
   8 }
   9 use lib $ENV{"MO_ROOT"} . "/lib/perl5";
  10 use lib $ENV{"MO_ROOT"} . "/submit/lib/perl5";
  11
  12 use MO::Submit;
  13 use Sherlock::Object;
  14 use POSIX;
  15
  16 @ARGV == 0 or die "Usage: remote-status\n";
  17
  18 my $conn = new MO::Submit;
  19 $conn->connect or die $conn->{"error"} . "\n";
  20
  21 sub or_die($) {
  22         my $r = shift @_;
  23         if (!defined $r) { die $conn->{"error"} . "\n"; }
  24         my $err = $r->get("-");
  25         if ($err) { die "$err\n"; }
  26 }
  27
  28 my $r = new Sherlock::Object("!" => "STATUS");
  29 $r = $conn->request($r);
  30 or_die($r);
  31 #$r->write_indented(*STDOUT);
  32
  33 foreach my $t ($r->getarray("(T")) {
  34         my $task = $t->get("T");
  35         foreach my $p ($t->getarray("(P")) {
  36                 my $part = $p->get("P");
  37                 my $name = $task;
  38                 $part eq $task or $name .= "/$part";
  39                 printf "%-16s", $name;
  40
  41                 my $current_ver = $p->get("V");
  42                 my $printed = 0;
  43                 foreach my $v ($p->getarray("(V")) {
  44                         if ($v->get("V") == $current_ver) {
  45                                 my $time = strftime("%H:%M:%S", localtime $v->get("T"));
  46                                 print "OK (",
  47                                         "$part.", $v->get("X"), ", ",
  48                                         $v->get("L"), " bytes, ",
  49                                         $v->get("S"), " $time)\n";
  50                                 $printed = 1;
  51                         }
  52                 }
  53                 $printed or print "---\n";
  54         }
  55 }
  56
  57 $conn->disconnect;