Changeset 309 for flickr2pics/trunk/flickr2pics

Timestamp:

04/17/06 17:38:22 (3 years ago)

Author:

ogawa

Message:

Employs Getopt::Long and Pod::Usage modules.

Files:

• flickr2pics/trunk/flickr2pics (modified) (3 diffs)

flickr2pics/trunk/flickr2pics

@@ -11 +11 @@
 use strict;
 use YAML;
+use Pod::Usage;
+use Getopt::Long;
 
 our $VERSION = '0.01';
 
-my $cfg = YAML::LoadFile($ARGV[0] || 'config.yaml');
+my %opt = (conf => 'config.yaml');
+GetOptions(\%opt, 'help', 'conf=s') or pod2usage(2);
+pod2usage(1) if $opt{help};
+
+my $cfg = YAML::LoadFile($opt{conf});
 die "Cannot find proper configuration for flickr2pics."
     unless $cfg->{flickr_username} && $cfg->{pics_username} && $cfg->{pics_password};
@@ -189 +195 @@
 
   % flickr2pics
-  % flickr2pics /path/to/config.yaml
+  % flickr2pics --conf /path/to/config.yaml
 
 =head1 DESCRIPTION
@@ -219 +225 @@
 =over 4
 
-=item path/to/config.yaml
+=item --conf /path/to/config.yaml
 
 Specified the path to a configuration file. By default, C<config.yaml>