submit/show-submits.pl

   1 #!/usr/bin/perl
   2
   3 use lib "lib/perl5";
   4 use Sherlock::Object;
   5
   6 foreach my $user (split /\s+/,`cd solutions && echo *`) {
   7         print "$user:\t";
   8         if (open S, "solutions/$user/status") {
   9                 my @status = ();
  10                 my $s = new Sherlock::Object;
  11                 $s->read(\*S) or die "Cannot load status";
  12                 foreach my $t ($s->getarray("(T")) {
  13                         my $task = $t->get("T");
  14                         foreach my $p ($t->getarray("(P")) {
  15                                 my $part = $p->get("P");
  16                                 my $ver = $p->get("V");
  17                                 my $name = $task . ($part eq $task ? "" : "/$part");
  18                                 push @status, "$name(v$ver)";
  19                         }
  20                 }
  21                 close S;
  22                 print join(" ", @status), "\n";
  23         } else {
  24                 print "---\n";
  25         }
  26 }