comparison: bin/archive-dir
bin/archive-dir
- changeset 529
- 99f120bc1ad9
- parent 485
- a58682115510
- child 549
- 0bd45054802e
equal
deleted
inserted
replaced
| 528:ed01b5ca7b58 | 529:99f120bc1ad9 |
|---|---|
| 18 default => 'year', | 18 default => 'year', |
| 19 } | 19 } |
| 20 ], | 20 ], |
| 21 ['age|a=i' => "minimum age in days for archival", {default => 60}], | 21 ['age|a=i' => "minimum age in days for archival", {default => 60}], |
| 22 ['files|f' => "operate on plain files only"], | 22 ['files|f' => "operate on plain files only"], |
| 23 ['yes|y' => "actually move stuff"], | 23 ['yes|Y' => "actually move stuff"], |
| 24 ['help|h' => "print usage message and exit", {shortcircuit => 1}], | 24 ['help|h' => "print usage message and exit", {shortcircuit => 1}], |
| 25 ); | 25 ); |
| 26 print($usage->text), exit if $opt->help || !@ARGV; | 26 print($usage->text), exit if $opt->help || !@ARGV; |
| 27 | 27 |
| 28 archive_dir($opt, $_) for @ARGV; | 28 archive_dir($opt, $_) for @ARGV; |
