* Default back to ncbi genecards and harvester, but indicate that ensembl and unipro...

git-svn-id: file:///srv/svn/function2gene/trunk@37 a0738b58-4706-0410-8799-fb830574a030

diff --git a/bin/function2gene b/bin/function2gene
index 66b02bb51ca6e48ed400a5e40abc3b7f325761fb..962be188411a6a59d31b893001924bcedba161ec 100755 (executable)
--- a/bin/function2gene
+++ b/bin/function2gene
@@ -53,8 +53,8 @@ the system
 =item B<--database>
 
 Databases to search, can be specified multiple times. [Defaults to
 =item B<--database>
 
 Databases to search, can be specified multiple times. [Defaults to

-NCBI, GeneCards and Harvester, the only currently supported
-databases.]
+NCBI, GeneCards and Harvester, but ensembl and uniprot are also
+supported currently.]

 
 =item B<--restart-at>
 
 
 =item B<--restart-at>
 


@@ -142,7 +142,7 @@ elsif (not -d $options{results} or not -w $options{results}) {
 pod2usage($ERRORS) if length $ERRORS;
 
 if (not @{$options{databases}}) {
 pod2usage($ERRORS) if length $ERRORS;
 
 if (not @{$options{databases}}) {

-     $options{databases} = [qw(ncbi genecard harvester ensembl uniprot)]
+     $options{databases} = [qw(ncbi genecard harvester)]

 }
 
 $DEBUG = $options{debug};
 }
 
 $DEBUG = $options{debug};


@@ -297,6 +297,9 @@ for my $keyword (@{$state{keywords}}) {
      }
 }
 
      }
 }
 

+$SIG{INT} = sub {
+     save_state(\%state);
+};

 
 for my $state (qw(get parse)) {
      my %databases;
 
 for my $state (qw(get parse)) {
      my %databases;