Changeset 30586 for branches/czw_branch/20101203/tools/czartool/Pantasks.pm

Timestamp:

Feb 11, 2011, 4:29:48 PM (15 years ago)

Author:

watersc1

Message:

Trying to merge back into trunk.

Location:

branches/czw_branch/20101203

Files:

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

branches/czw_branch/20101203/tools/czartool/Pantasks.pm

@@ -120 +120 @@
         chomp($line);
         if (!$self->outputOk($line)) {return \@labels;}
-        if ($line =~ m/pantasks:\s+/) {$passedHeader=1; next;}
-        if ($passedHeader) {push(@labels, $line);}
+
+        # sometimes a label can be on the same line as the panstasks prompt
+        if ($line =~ m/pantasks: (.*)/) {
+            $line = $1;
+            $passedHeader=1;
+        }
+
+        if ($passedHeader && length($line) > 0){push(@labels, $line);}
     }
 
@@ -191 +197 @@
     }
 }
+
+###########################################################################
+#
+# Gets current dates for this server
+#
+###########################################################################
+sub getDates {
+    my ($self, $server) = @_;
+
+    my @dates;
+
+    my $prefix;
+
+    if ($server eq "stdscience") {$prefix = "ns";}
+    elsif ($server eq "registration") {$prefix = "register";}
+
+    my @cmdOut = `echo "$prefix.show.dates;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
+    my $line;
+    my $passedHeader=0;
+    foreach $line (@cmdOut) {
+
+        chomp($line);
+        if (!$self->outputOk($line)) {return \@dates;}
+
+        # sometimes content is on same line as pantasks prompt
+        if ($line =~ m/pantasks: (.*)/) {
+            $line =~ s/pantasks: //; 
+                $passedHeader=1;
+        }
+
+        if ($passedHeader && length($line) > 0){
+
+            # strip out only the date part
+            if ($line =~ m/([0-9]{4}-[0-9]{2}-[0-9]{2}).*/) {
+
+                push(@dates, $1);
+            }
+        }
+    }
+
+    return \@dates;
+}
+
+
 1;