From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 7 Jan 2011 18:03:02 +0000 (+0000)
Subject: remove unused getHyperEstraier_url
X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=commitdiff_plain;h=bbdafc107ba89fea5107b5f81b5ae06c1572696d

remove unused getHyperEstraier_url
---

diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm
index 7764b30..c19730f 100644
--- 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) = @_;