use Time::HiRes qw/time/;
use XML::Writer;
use IO::File;
+use Search::Estraier 0.04;
my $on_page = 100;
my $pager_pages = 10;
return ($results, \@ret);
}
-sub getHyperEstraier_url($) {
- my ($use_hest) = @_;
-
- return unless $use_hest;
-
- use Search::Estraier 0.04;
- die "direct access to Hyper Estraier datatase is no longer supported. Please use estmaster\n"
- unless ($use_hest =~ m#^http://#);
-
- return $use_hest;
-}
-
sub getFilesHyperEstraier($) {
my ($param) = @_;