X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FSearchLib.pm;h=c19730f5f315d75f9907d389cff537cc75554750;hp=03d18c0a29f033ffc1ee2862ff5ad0c121497b4a;hb=bbdafc107ba89fea5107b5f81b5ae06c1572696d;hpb=4bebd36661ae62a8bae93097d00a8e43247a5064;ds=sidebyside diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm index 03d18c0..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) = @_; @@ -1119,7 +1108,7 @@ sub displayGrid($) { $retHTML .= qq{} . $file->{'hname'} . ':' . $file->{'sname'} . qq{} . - qq{$typeStr } . hilite_html( $file->{'filepath'}, $hilite ) . qq{} . + qq{$typeStr } . hilite_html( $file->{'filepath'}, $hilite ) . qq{} . qq{} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{} . qq{} . $file->{'size'} . qq{} . qq{} . epoch_to_iso( $file->{'date'} ) . qq{} .