support multiple job ids for delete/cancel

diff --git a/README b/README
index 305f2ac..426347c 100644 (file)
--- a/README
+++ b/README
@@ -32,7 +32,7 @@ You can delete job using:
 
 dpavlin@t42:~/safeq$ curl -XPOST -d OPR=CANCEL -d JOBS=00015c32/ http://10.60.3.35/JOBCTRL.cmd
 
 
 dpavlin@t42:~/safeq$ curl -XPOST -d OPR=CANCEL -d JOBS=00015c32/ http://10.60.3.35/JOBCTRL.cmd
 

-or use d[elete] or c[ancel] aruguments and job id:
+or use d[elete] or c[ancel] aruguments and job id(s):

 
 dpavlin@t42:~/safeq$ ./xwc-jobs 10.60.3.35 d 00015c41
 10.60.3.35  00015c41  CANCEL  REQUEST: ACCEPTED
 
 dpavlin@t42:~/safeq$ ./xwc-jobs 10.60.3.35 d 00015c41
 10.60.3.35  00015c41  CANCEL  REQUEST: ACCEPTED

diff --git a/xwc-jobs.pl b/xwc-jobs.pl
index 3d13b07..69c3d72 100755 (executable)
--- a/xwc-jobs.pl
+++ b/xwc-jobs.pl
@@ -16,7 +16,7 @@ if ( $op =~ m/^l/i ) { # list
 } elsif ( $op =~ m/^h/i ) { # history
        $url = 'jbhist.htm';
 } elsif ( $op =~ m/^(d|c)/i ) { # delete/cancel
 } elsif ( $op =~ m/^h/i ) { # history
        $url = 'jbhist.htm';
 } elsif ( $op =~ m/^(d|c)/i ) { # delete/cancel

-       my $job_id = shift @ARGV || die "expected job_id missing";
+       my $job_id = join('/', @ARGV) || die "expected job_id(s) missing";

        open(my $curl, '-|', "curl --silent -XPOST -d OPR=CANCEL -d JOBS=$job_id/ http://$ip/JOBCTRL.cmd");
        while (<$curl>) {
                if ( m/<title>/i ) {
        open(my $curl, '-|', "curl --silent -XPOST -d OPR=CANCEL -d JOBS=$job_id/ http://$ip/JOBCTRL.cmd");
        while (<$curl>) {
                if ( m/<title>/i ) {