Changeset 35915
- Timestamp:
- Aug 8, 2013, 11:07:17 AM (13 years ago)
- Location:
- tags/ipp-20130712/pstamp/scripts
- Files:
-
- 2 edited
-
pstamp_save_server_status.pl (modified) (1 diff)
-
pstamp_server_status (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
tags/ipp-20130712/pstamp/scripts/pstamp_save_server_status.pl
r35570 r35915 61 61 $year, $month, $mday, $hour, $min, $sec; 62 62 63 my $command = "pstamp_server_status > $file"; 63 my $command = "pstamp_server_status --workdir $pstamp_workdir > $file"; 64 #my $command = "pstamp_server_status > $file"; 64 65 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 65 66 run(command => $command, verbose => $verbose); -
tags/ipp-20130712/pstamp/scripts/pstamp_server_status
r35914 r35915 162 162 foreach my $line (@lines) { 163 163 next unless $line =~ /data/; 164 # if (scalar @lines == 2) { 165 if (1) { 166 my ($total, $used, $free, $percent, $part) = split " ", $line; 167 print "<br><b>Working Directory:</b> $percent free: $free out of $total total<br>\n"; 168 } else { 169 print "<br>\n"; 170 print "unexpected output from df:\n$df_output\n"; 171 } 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"; 172 166 } 173 167
Note:
See TracChangeset
for help on using the changeset viewer.
