Parent Directory
| 
Revision Log
| 
Patch
| revision 7 by dpavlin, Mon Oct 15 22:34:20 2007 UTC | revision 10 by dpavlin, Tue Oct 16 09:27:16 2007 UTC | |
|---|---|---|
| # | Line 9 use strict; | Line 9 use strict; |
| 9 | use File::Find; | use File::Find; |
| 10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
| 11 | use Imager; | use Imager; |
| 12 | use Getopt::Long; | |
| my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n"; | ||
| 13 | ||
| 14 | # Mireo 1, Google 0 | # Mireo 1, Google 0 |
| 15 | my $flip_vertical = 0; | my $flip_vertical = 0; |
| 16 | ||
| 17 | GetOptions( | |
| 18 | 'flip-vertical' => \$flip_vertical, | |
| 19 | ); | |
| 20 | ||
| 21 | my $path = shift @ARGV || die "usage: $0 path_to_dump_dir\n"; | |
| 22 | ||
| 23 | my ( $range, $usage ); | my ( $range, $usage ); |
| 24 | ||
| 25 | my @files; | my @files; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |