comparison: bin/archive-dir
bin/archive-dir
- changeset 485
- a58682115510
- parent 477
- eeafc178ddc4
- child 529
- 99f120bc1ad9
equal
deleted
inserted
replaced
| 484:a32d6511d251 | 485:a58682115510 |
|---|---|
| 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; | 26 print($usage->text), exit if $opt->help || !@ARGV; |
| 27 | 27 |
| 28 archive_dir($opt, $_) for @ARGV; | 28 archive_dir($opt, $_) for @ARGV; |
| 29 } | 29 } |
| 30 | 30 |
| 31 sub archive_dir { | 31 sub archive_dir { |
