lib/bin/bex-job

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