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) = @_;
$retHTML .=
qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
- qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle"> } . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
+ qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.png" alt="$typeStr" align="middle"> } . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{</td>} .
qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .