man => 0,
dir => '.',
keyword => undef,
+ keywords => 0,
);
GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m');
FILENAME => 8,
};
+if ($options{keywords}) {
+ if (@ARGV != 1) {
+ pod2usage("If the --keywords option is used, exactly one argument (the keyword) must be passed");
+ }
+ $option{dir} = "$ARGV[0]_results_harvester";
+}
+
+
+
if (not -d $options{dir}) {
die "$options{dir} does not exist or is not a directory";
}