Changeset 99
- Timestamp:
- Oct 7, 2003, 11:47:46 PM (23 years ago)
- File:
-
- 1 edited
-
trunk/Ohana/src/perl/src/checkconfig (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Ohana/src/perl/src/checkconfig
r17 r99 13 13 if ($camera eq "cfhtir") { last; } 14 14 if ($camera eq "megacam") { last; } 15 if ($camera eq "meganorth") { last; } 15 16 &escape ("camera $camera not supported, skipping"); 16 17 } … … 21 22 &ck_fifos; 22 23 23 if ($camera eq "cfh12k") { 24 &ck_detrend; 25 }24 if ($camera eq "cfh12k") { &ck_detrend; } 25 if ($camera eq "megacam") { &ck_detrend; } 26 if ($camera eq "meganorth") { &ck_detrend; } 26 27 &goodbye; 27 28 } … … 166 167 # check available space 167 168 if ($bytes) { 168 @answer = `df $filename`; 169 @words = split (" ", $answer[1]); 170 $left = $words[3]; 169 $left = `sdf $filename`; 171 170 $left = sprintf "%5.1f", ($left / 1024 / 1024); 172 171 if ($VERBOSE) { &pnotice ("$dir : $left GB free : $filename"); }
Note:
See TracChangeset
for help on using the changeset viewer.
