X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=blobdiff_plain;f=bin%2Fparse_harvester_results;h=a35c9b902f5a9ff840d6bb3450862ae0989cd9e1;hp=29d07194a8a4e7c830fe7af55bdaa4d9e873a15d;hb=79c0f28d89ba108bcfca68a8b5d4f0e3855455dc;hpb=672a430873e686b884bccb1b027321658c541b25

diff --git a/bin/parse_harvester_results b/bin/parse_harvester_results
index 29d0719..a35c9b9 100755
--- a/bin/parse_harvester_results
+++ b/bin/parse_harvester_results
@@ -77,6 +77,7 @@ my %options = (debug    => 0,
 	       man      => 0,
 	       dir      => '.',
 	       keyword  => undef,
+	       keywords => 0,
 	      );
 
 GetOptions(\%options,'keyword|k=s','dir|D=s','debug|d+','help|h|?','man|m');
@@ -99,6 +100,15 @@ use constant {NAME        => 0,
 	      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";
 }