Index: trunk/ippToPsps/scripts/getExpIdFromJob.pl
===================================================================
--- trunk/ippToPsps/scripts/getExpIdFromJob.pl	(revision 27801)
+++ trunk/ippToPsps/scripts/getExpIdFromJob.pl	(revision 27844)
@@ -9,8 +9,10 @@
 my $path = undef;
 my $list = undef;
+my $job = undef;
 
 GetOptions(
         'path|p=s' => \$path,
         'list|l=s' => \$list,
+        'job|j=s' => \$job,
         ) or pod2usage( 2 );
 
@@ -21,13 +23,29 @@
         "--path <pathToJobsDir>\n".
         "--list <listOfJobNames>\n\n",
+        "--job <job>\n\n",
         -exitval => 3
         ) unless
 defined $path and
-defined $list;
+(defined $list || defined $job);
 
-my $job;
-open (LIST, "$list") || die "couldn't open the file at '$list'";
+if (defined $job) {getExpId($job);}
+else {
 
-while ($job = <LIST>) {
+    open (LIST, "$list") || die "couldn't open the file at '$list'";
+
+    while ($job = <LIST>) {
+
+        getExpId($job);
+
+    }
+
+close(LIST);
+}
+#################################################################
+#
+#
+#################################################################
+sub getExpId {
+    my ($job) = @_;
 
     chomp($job);
@@ -45,9 +63,4 @@
 
     }
-
 }
 
-close(LIST);
-
-
-