submit/test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib ".";
   7 use lib "lib/perl5";
   8
   9 use MO::Submit;
  10 use Sherlock::Object;
  11
  12 my $conn = new MO::Submit;
  13 $conn->connect or die;
  14
  15 #$req = new Sherlock::Object;
  16 #$req->set("!" => "SUBMIT", "T" => "plans", "X" => "pas", "S" => 100);
  17 #req($req);
  18 #$reply = reply();
  19 #print $sk "<..................................................................................................>";
  20 #$reply = reply();
  21
  22 my $r = new Sherlock::Object("!" => "STATUS");
  23 $r = $conn->request($r) or die;
  24 $r->write_indented(*STDOUT);
  25
  26 $conn->disconnect;