Changeset 28825 for trunk/tools/czartool.pl

Timestamp:

Aug 2, 2010, 11:06:32 AM (16 years ago)

Author:

rhenders

Message:

czartool.pl now using Pantasks method to get server status

File:

• trunk/tools/czartool.pl (modified) (2 diffs)

trunk/tools/czartool.pl

@@ -65 +65 @@
         if ($key eq "s") {checkServers();}
         elsif ($key eq "l") {checkAllLabels("new");}
-        elsif ($key eq "u") {serverStatus("stdscience");}
+        elsif ($key eq "u") {$pantasks->getServerCurrentStatus("stdscience");}
         elsif ($key =~ m/[0-9]/) {my $key2=getc; checkOneLabel($stdscienceLabels[($key.$key2)-1]);}
         printInstructions();
@@ -99 +99 @@
 
     return \@diff;
-}
-
-###########################################################################
-#
-# Prints the status of a given pantasks server
-#
-###########################################################################
-sub serverStatus {
-    my ($server) = @_;
-
-    my @cmdOut = `echo "status;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
-    my $line;
-    foreach $line (@cmdOut) {
-
-        chomp($line);
-
-        print "$line\n";
-    }
 }