Changeset 28829

Timestamp:

Aug 2, 2010, 1:23:37 PM (16 years ago)

Author:

rhenders

Message:

Added methid to get current revert status for a given stage

File:

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

trunk/tools/czartool/Pantasks.pm

@@ -135 +135 @@
 }
 
+###########################################################################
+#
+# Gets revert status for this stage 
+#
+###########################################################################
+sub getRevertStatus {
+    my ($self, $stage, $reverting) = @_;
 
+    my $server = $self->getServerForThisStage($stage);
+
+    if ($stage eq "cam") {$stage = "camera";}
+
+    my @cmdOut = `echo "status;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
+    my $line;
+    foreach $line (@cmdOut) {
+
+        chomp($line);
+        if ($line =~ m/\s+([+-])[+-]\s+$stage\.revert.*/) {
+
+            if ($1 =~ m/-/) {${$reverting} = 0;}
+            elsif ($1 =~ m/\+/) {${$reverting}=1;}
+        }
+    }
+}
+