Changeset 29124 for branches/eam_branches/ipp-20100823/tools/czartool/Pantasks.pm

Timestamp:

Sep 7, 2010, 9:16:10 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/eam_branches/ipp-20100823

Files:

• . (modified) (1 prop)
• tools/czartool/Pantasks.pm (modified) (1 diff)

branches/eam_branches/ipp-20100823/tools/czartool/Pantasks.pm

@@ -73 +73 @@
     }
     return 1;
+}
+
+###########################################################################
+#
+# Gets nightlyscience status for today 
+#
+###########################################################################
+sub getNightlyScienceStatus {
+    my ($self, $status) = @_;
+
+    my @labels;
+
+    my ($day, $month, $year) = (localtime)[3,4,5];
+    my $today = sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day);
+
+    my @cmdOut = `echo "ns.show.dates;quit" | pantasks_client -c ~ipp/stdscience/ptolemy.rc 2>&1`;
+    my $line;
+    foreach $line (@cmdOut) {
+
+        chomp($line);
+        if (!$self->outputOk($line)) {return 0;}
+        if ($line =~ m/$today\s+(.+)/) {
+            ${$status} = $1;
+            return 1;
+        }
+    }
+
+    return 0;
 }