Index: /tags/ipp-20130712/pstamp/scripts/pstamp_server_status
===================================================================
--- /tags/ipp-20130712/pstamp/scripts/pstamp_server_status	(revision 35913)
+++ /tags/ipp-20130712/pstamp/scripts/pstamp_server_status	(revision 35914)
@@ -15,9 +15,10 @@
 
 
-my ($rundir, $verbose, $save_temps);
+my ($rundir, $workdir, $verbose, $save_temps);
 my $br = '<br />';
 
 GetOptions(
     'rundir=s'      => \$rundir,
+    'workdir=s'     => \$workdir,
     'verbose'       => \$verbose,
     'save-temps'    => \$save_temps,
@@ -155,14 +156,18 @@
     }
 }
-{
+if ($workdir) {
     # get the space available in the working directory file system
-    my $df_output = `df -h .`;
+    my $df_output = `df -h $workdir`;
     my @lines = split "\n", $df_output;
-    if (scalar @lines == 2) {
-        my ($total, $used, $free, $percent, $part) = split " ", $lines[1];
-        print "<br><b>Working Directory:</b> $percent $free free out of $total total<br>\n";
-    } else {
-        print "<br>\n";
-        print "unexpected output from df:\n$df_output\n";
+    foreach my $line (@lines) {
+        next unless $line =~ /data/;
+        # if (scalar @lines == 2) {
+        if (1) {
+            my ($total, $used, $free, $percent, $part) = split " ", $line;
+            print "<br><b>Working Directory:</b> $percent free: $free out of $total total<br>\n";
+        } else {
+            print "<br>\n";
+            print "unexpected output from df:\n$df_output\n";
+        }
     }