support account option -A
authorDon Armstrong <don@donarmstrong.com>
Mon, 27 Jun 2016 19:15:37 +0000 (12:15 -0700)
committerDon Armstrong <don@donarmstrong.com>
Mon, 27 Jun 2016 19:15:37 +0000 (12:15 -0700)
dqsub

diff --git a/dqsub b/dqsub
index 27b8b39..910cafd 100755 (executable)
--- a/dqsub
+++ b/dqsub
@@ -31,6 +31,7 @@ dqsub [options]
    --ppn processors per node to use
    --mem memory to request
    --dir Directory to run the script in (default current directory)
+   --account, -A Account name to use
    --name, -N Name of the job
    --debug, -d debugging level (Default 0)
    --help, -h display this help
@@ -60,6 +61,10 @@ command run in the current directory.
 File to read array arguments from. If not provided, and B<--array> is
 given, arguments will be read from STDIN.
 
+=item B<--account, -A>
+
+Account name to use
+
 =item B<--debug, -d>
 
 Debug verbosity. (Default 0)
@@ -106,6 +111,7 @@ GetOptions(\%options,
            'array_slot_limit|array-slot-limit=i',
            'array_all_in_one_job|array-all-in-one-job!',
            'ppn|processors-per-node=i',
+           'account|A=s',
            'mem|memory=s',
            'time|walltime=s','cputime|cput=s','host=s',
            'pmem|process_mem|process-mem=s',
@@ -178,6 +184,9 @@ sub generate_qsub_options{
     if (defined $options->{ppn}) {
         $l[$#l] .= ':ppn='.$options->{ppn};
     }
+    if (defined $options->{account}) {
+        push @qo,'-A',$options->{account};
+    }
     my %l_options =
         (mem => 'vmem',
          time => 'walltime',