=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>
$ERRORS.="unknown database(s)" if
@{$options{databases}} and
- grep {$_ !~ /^(?:ncbi|genecard|harvester)$/i} @{$options{databases}};
+ grep {$_ !~ /^(?:ncbi|genecard|harvester|ensembl|uniprot)$/i} @{$options{databases}};
if (not length $options{results}) {
$ERRORS.="results directory not specified";
next if /^\s*[#;]/;
next unless /\w+/;
chomp;
+ s/\r$//;
my ($keyword,$weight) = split /\t/, $_;
$weight = 1 if not defined $weight;
$state{keyword_weight}{$keyword} = $weight;
}
}
+$SIG{INT} = sub {
+ save_state(\%state);
+};
for my $state (qw(get parse)) {
my %databases;