Changeset 35914

Timestamp:

Aug 8, 2013, 10:57:14 AM (13 years ago)

Author:

bills

Message:

take workdir as argument

File:

• tags/ipp-20130712/pstamp/scripts/pstamp_server_status (modified) (2 diffs)

tags/ipp-20130712/pstamp/scripts/pstamp_server_status

@@ -15 +15 @@
 
 
-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 +156 @@
     }
 }
-{
+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";
+        }
     }