Changeset 28825 for trunk/tools/czartool/Pantasks.pm

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/Pantasks.pm (modified) (2 diffs)

trunk/tools/czartool/Pantasks.pm

@@ -113 +113 @@
         if ($line =~ m/Scheduler is running/) {${$running} = 1; ${$alive}=1;last;}
         if ($line =~ m/Task Status/) {last;}
-
     }
 }
@@ -125 +124 @@
     my ($self, $server) = @_;
 
-
     my @cmdOut = `echo "status;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
     my $line;
     my $passedHeader=0;
+    print "\n";
     foreach $line (@cmdOut) {
 
-        chomp($line);
         if ($line =~ m/.*Task Status.*/) {$passedHeader=1;next;}
-        if ($passedHeader){print "$line<br>";}
+        if ($passedHeader){print "$line";}
     }
 }