2 # Batch EXecutor 3.0 -- Management of Queues
3 # (c) 2011-2012 Martin Mares <mj@ucw.cz>
14 Usage: bex qman [<options>] <subcommand>
17 init <queue> Create a new queue
29 ) or die "Try `bex qman --help' for more information.\n";
31 my $op = shift @ARGV // 'ls';
34 my $queue_name = shift @ARGV or die "bex qman init requires a queue name\n";
35 my $path = $BEX::Config::home . '/' . $queue_name;
36 -d $path and die "Queue directory $path already exists\n";
40 print "Queue $queue_name initialized.\n";
41 } elsif ($op eq 'ls' && @ARGV == 0) {
42 opendir D, $BEX::Config::home or die "Cannot read BEX home directory\n";
43 for my $q (sort readdir D) {
45 my $d = $BEX::Config::home . '/' . $q;
46 if (-d $d && -d "$d/hosts" && -d "$d/jobs") {
52 die "Invalid subcommand\n";