Changeset 476
- Timestamp:
- 1999-08-27T12:01:42+12:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/clean_archives.pl
r475 r476 16 16 print STDERR "\n usage: $0 [options] archive-dir\n\n"; 17 17 print STDERR " oprions:\n"; 18 print STDERR " -verbos ity 0 or 1\n\n";18 print STDERR " -verbose\n\n"; 19 19 } 20 20 … … 25 25 26 26 if (!parsargv::parse(\@ARGV, 27 'verbos ity/\d+/0', \$verbosity)) {27 'verbose', \$verbose)) { 28 28 &print_usage(); 29 29 die "\n"; … … 61 61 62 62 unlink ($filename); 63 print STDERR "removing $filename\n" if $verbos ity;63 print STDERR "removing $filename\n" if $verbose; 64 64 } 65 65 }
Note:
See TracChangeset
for help on using the changeset viewer.