Index: trunk/ippMonitor/scripts/czartool_getServerStatus.pl
===================================================================
--- trunk/ippMonitor/scripts/czartool_getServerStatus.pl	(revision 41725)
+++ trunk/ippMonitor/scripts/czartool_getServerStatus.pl	(revision 41726)
@@ -6,13 +6,46 @@
 
 my $server = undef;
-GetOptions ("server|s=s" => \$server);
+my $proj = undef;
+my $user = undef;
 
-my @cmdOut = `echo "status;quit" | pantasks_client -c ~ipp/$server/ptolemy.rc 2>&1`;
+GetOptions (
+  "server|d=s" => \$server, 
+  "proj|p=s" => \$proj,
+);
+
+$server = 'stdscience' unless defined $server;
+$proj   = 'gpc1' unless defined $proj;
+
+
+if ($proj eq 'gpc1') {
+  $user = 'ippitc';
+} else {
+  $user = 'ippps2';
+}
+
+my @cmdOut = `echo "status;quit" | pantasks_client -c ~$user/$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>";}
+    if ($passedHeader){print "$line \n";}
 }
+
+my @cmdOut2 = `echo "control status -nohost;quit" | pantasks_client -c ~$user/$server/ptolemy.rc 2>&1`;
+my $line2;
+my $nline=0;
+foreach $line2 (@cmdOut2) {
+    chomp($line2);
+    my @fields = split /\s+/, $line2;
+
+#    run job example 
+# field0      1        2       3         4      5       6           7       8 
+#             0    ippc98    BUSY      0.27 0.0.0.b05   0 summit_copy.pl --uri http://ipp113.ifa.hawaii.edu/ds-gpc1/o9299g0050d/o9299g0050d13.fits --filename neb://ipp142.1.0/gpc1/20210326/o9299g0050d/o9299g0050d.ota13.fits --summit_id 1752711 --exp_name o9299g0050d --inst gpc1 --telescope ps1 --class chip --class_id ota13 --bytes 49432320 --md5 b282ba2fe613ff7bc5db3d511d26626d --dbname gpc1 --timeout 600 --verbose --copies 2 --compress --nebulous 
+#           222   ippc102    RESP      0.01 0.0.1.712d  0 warp_skycell.pl --threads @MAX_THREADS@ --warp_id 2358360 --warp_skyfile_id 177364032 --skycell_id skycell.1982.099 --tess_dir RINGS.V3 --camera GPC1 --outroot neb://ipp133.0/gpc1/BrightTwi.nt/2021/03/26//o9299g0680o.1757641/o9299g0680o.1757641.wrp.2358360.skycell.1982.099 --redirect-output --run-state new --reduction EUCLID_DEFAULT --dbname gpc1 --verbose
+
+#    print "$nline: $fields[0], $fields[1], $fields[2], $fields[3], $fields[4] | $line<br>";
+
+    if ($nline >= 8 && $fields[3] =~ m/.*BUSY.*/ && $fields[4] > 900){print "<font color=red>ind:$fields[1] state:$fields[3] stage:$fields[7] host:$fields[2] time:$fields[4]sec \n";}
+    $nline = $nline + 1;
+}