remove unused getHyperEstraier_url

diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm
index 7764b30..c19730f 100644 (file)
--- a/lib/BackupPC/SearchLib.pm
+++ b/lib/BackupPC/SearchLib.pm
@@ -10,6 +10,7 @@ use vars qw(%In $MyURL);
 use Time::HiRes qw/time/;
 use XML::Writer;
 use IO::File;
+use Search::Estraier 0.04;
 
 my $on_page = 100;
 my $pager_pages = 10;
@@ -263,18 +264,6 @@ sub getFiles($) {
        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) = @_;