From bc41e78bdea398679782ff3a53aa33d80ae6e097 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 Aug 2015 10:02:04 -0700
Subject: [PATCH] add support for array options

---
 dqsub | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/dqsub b/dqsub
index 7257d5c..98e4947 100755
--- a/dqsub
+++ b/dqsub
@@ -202,6 +202,23 @@ sub write_qsub_script {
 # this script was written by dqsub
 EOF
     if (defined $opt->{array}) {
+        my $array_opt = join("\n",@{$array});
+        $script .= <<EOF;
+OPT=\$(sed -n -e "\$PBS_ARRAYID p"<<'_HERE_DOC_END'
+$array_opt
+_HERE_DOC_END_
+)
+EOF
+        if ($opt->{array} eq 'chdir') {
+            $script .= <<EOF;
+cd "\$OPT";
+exec $command;
+EOF
+        } else {
+            $script .= <<EOF;
+exec $command "\$OPT";
+EOF
+        }
         die "--array is currently not implemented";
     } else {
         $script .= <<EOF;
-- 
2.39.2