add support for more -l options to qsub
authorDon Armstrong <don@donarmstrong.com>
Thu, 6 Aug 2015 21:11:13 +0000 (14:11 -0700)
committerDon Armstrong <don@donarmstrong.com>
Thu, 6 Aug 2015 21:11:13 +0000 (14:11 -0700)
dqsub

diff --git a/dqsub b/dqsub
index 89578d0..27b8b39 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -107,6 +107,10 @@ GetOptions(\%options,
            'array_all_in_one_job|array-all-in-one-job!',
            'ppn|processors-per-node=i',
            'mem|memory=s',
+           'time|walltime=s','cputime|cput=s','host=s',
+           'pmem|process_mem|process-mem=s',
+           'pvmem|process_virtual_mem|process-virtiual-mem=s',
+           'max_file|max-file|file=s',
            'dir=s',
            'name=s',
            'debug|d+','help|h|?','man|m');
@@ -174,8 +178,19 @@ sub generate_qsub_options{
     if (defined $options->{ppn}) {
         $l[$#l] .= ':ppn='.$options->{ppn};
     }
-    if ($options->{mem}) {
-        push @l,'mem='.$options->{mem};
+    my %l_options =
+        (mem => 'vmem',
+         time => 'walltime',
+         cputime => 'cput',
+         host    => 'host',
+         pmem => 'pmem',
+         pvmem => 'pvmem',
+         max_file => 'file',
+        );
+    for my $k (keys %l_options) {
+        if ($options->{$k}) {
+            push @l,$l_options{$k}.'='.$options{$k};
+        }
     }
     push @qo,'-l',join(',',@l) if @l;
     if ($options->{interactive}) {