bjob

   1 #!/usr/bin/perl
   2 # Batch EXecutor 2.0 -- Operations on a Job
   3 # (c) 2011 Martin Mares <mj@ucw.cz>
   4
   5 use strict;
   6 use warnings;
   7 use Getopt::Long;
   8
   9 use lib 'lib';
  10 use BEX;
  11
  12 my $edit;
  13 my $queue_name;
  14
  15 GetOptions(
  16         "e|edit!" => \$edit,
  17         "q|queue=s" => \$queue_name,
  18 ) && @ARGV == 1 or die <<AMEN ;
  19 Usage: bjob [<options>] <job-id>
  20
  21 Options:
  22 -e, --edit              Run editor on the given job (no locking)
  23 -q, --queue=<name>      Act on the given queue
  24 AMEN
  25
  26 my $queue = BEX::Queue->new($queue_name);
  27 my $fn = $queue->job_file($ARGV[0]);
  28 -f $fn or die "No such job " . $ARGV[0] . "\n";
  29
  30 if ($edit) {
  31         system "editor", $fn;
  32 } else {
  33         system "cat", $fn;
  34 }