Index: trunk/ippMonitor/raw/czartool_labels.php
===================================================================
--- trunk/ippMonitor/raw/czartool_labels.php	(revision 28706)
+++ trunk/ippMonitor/raw/czartool_labels.php	(revision 28708)
@@ -29,4 +29,6 @@
 
 $userSelection = $_GET[selection];
+$selectedServer = $_GET[server];
+
 if ($userSelection == "") {$userSelection = $_POST['state'];}
 if ($userSelection == "") {$userSelection = "new";}
@@ -97,4 +99,6 @@
 echo "</table>\n";
 
+if ($selectedServer) showServerStatus($selectedServer);
+
 menu_end();
 
@@ -352,6 +356,6 @@
     foreach ($servers as &$server) {
 
-        //$link = "czartool_servers.php?pass=" . $pass . "&proj=" . $proj . "&server=" . $server;
-        $link = "";
+        $link = "czartool_labels.php?pass=" . $pass . "&proj=" . $proj . "&server=" . $server;
+  //      $link = "";
 
         getServerStatus($db, $server, $alive, $running);
@@ -403,4 +407,24 @@
 }
 
+###########################################################################
+#
+# Shows the status of the provided pantasks server 
+#
+###########################################################################
+function showServerStatus($server) {
+
+    echo "<p> Status for $server server </p>";
+
+    $results=array();
+    exec("czartool_getServerStatus.pl -s $server", $results, $status);
+
+    foreach ($results as &$line) {
+        echo "<pre>\n";
+        echo "$line\n";
+        echo "</pre>\n";
+
+    }
+
+}
 
 
Index: trunk/ippMonitor/scripts/czartool_getServerStatus.pl
===================================================================
--- trunk/ippMonitor/scripts/czartool_getServerStatus.pl	(revision 28708)
+++ trunk/ippMonitor/scripts/czartool_getServerStatus.pl	(revision 28708)
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use warnings;
+use strict;
+use Getopt::Long;
+
+my $server = undef;
+GetOptions ("server|s=s" => \$server);
+
+my @cmdOut = `echo "status;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
+my $line;
+my $passedHeader=0;
+foreach $line (@cmdOut) {
+
+    chomp($line);
+    if ($line =~ m/.*Task Status.*/) {$passedHeader=1;next;}
+    if ($passedHeader){print "$line<br>";}
+}