#!/usr/bin/env perl
use strict;
use BatchSystem::SBS::ScriptsCommon;
BatchSystem::SBS::ScriptsCommon::init();
use Getopt::Long;
my($isFinished);
if (!GetOptions(
"isfinished"=>\$isFinished,
)
){
die;
}
foreach (@ARGV){
print STDERR "$_\tremoved\n" if $sbs->job_remove(id=>$_, isfinished=>$isFinished);
}