← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.2-alpha0

« back to all changes in this revision

Viewing changes to Template/bin/qrlsjob

Added Template and HELAS into bzr

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/bin/qrlsjob
 
1
#!/usr/bin/perl
 
2
 
 
3
if ($#ARGV == -1) {
 
4
    open whom,"whoami | ";
 
5
    $name = <whom>;
 
6
    chomp $name;
 
7
    print "You must specify job (or user) name to delete (eg qholdjob $name) \n";
 
8
    close (whom);
 
9
}
 
10
else {
 
11
    if (open jobline,"/usr/local/bin/qstat | grep $ARGV[0] |"){
 
12
        $i = 0;
 
13
        while ($line = <jobline>){
 
14
            $i++;
 
15
            chomp $line;
 
16
            ($jobid,$back) = split(/\./,$line);
 
17
            system("/usr/local/bin/qrls $jobid");
 
18
        }
 
19
        close (jobline);
 
20
        print "Released $i jobs \n";
 
21
    }
 
22
    else {
 
23
        print "Error executing qstat \n";
 
24
    }
 
25
}