Index: trunk/tools/czartool/Pantasks.pm
===================================================================
--- trunk/tools/czartool/Pantasks.pm	(revision 28920)
+++ trunk/tools/czartool/Pantasks.pm	(revision 29076)
@@ -73,4 +73,32 @@
     }
     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;
 }