- Timestamp:
- Apr 21, 2014, 5:42:34 AM (12 years ago)
- Location:
- branches/eam_branches/ps2-tc3-20130727
- Files:
-
- 3 edited
-
. (modified) (1 prop)
-
pstamp/scripts (modified) (1 prop)
-
pstamp/scripts/pstamp_server_status (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branches/ps2-tc3-20130727
- Property svn:mergeinfo changed
-
branches/eam_branches/ps2-tc3-20130727/pstamp/scripts
- Property svn:mergeinfo deleted
-
branches/eam_branches/ps2-tc3-20130727/pstamp/scripts/pstamp_server_status
r35486 r36680 15 15 16 16 17 my ($rundir, $ verbose, $save_temps);17 my ($rundir, $workdir, $verbose, $save_temps); 18 18 my $br = '<br />'; 19 19 20 20 GetOptions( 21 21 'rundir=s' => \$rundir, 22 'workdir=s' => \$workdir, 22 23 'verbose' => \$verbose, 23 24 'save-temps' => \$save_temps, … … 155 156 } 156 157 } 158 if ($workdir) { 159 # get the space available in the working directory file system 160 my $df_output = `df -h $workdir`; 161 my @lines = split "\n", $df_output; 162 foreach my $line (@lines) { 163 next unless $line =~ /data/; 164 my ($total, $used, $free, $percent, $part) = split " ", $line; 165 print "<br><b>Server Working Directory:</b> $percent full. $free free out of $total total.<br>\n"; 166 } 167 168 } 157 169 158 170 # now run the script psstatus to check the status of running requests and finished requests
Note:
See TracChangeset
for help on using the changeset viewer.
