Here is the altavista sub that I am using. Like I mentioned before, it was working up until today. Can someone be so kind to take a look at it and tell what I can do to get it to work.
sub altavista {
# --------------------------------------------------------
# Search Altavista
my %in = &parse_form;
use LWP::Simple;
my $query = $in{'query'};
my $query_q = &urlencode($query);
my $page = ($in{'nh'} * 10) || 0;
my $pageXX = $page - 10;
my $url = "http://www.altavista.com/cgi-bin/query?q=$query_q&text=yes&stq=$pageXX";
my $results = get ($url);
#$results or &site_html_search_failure ({ error => "No Results Available.", %in }) and return;
if (!$in{'query'}) { return ("Please enter one or more keywords."); }
# If we see this, then we couldn't get a match.
my $none = quotemeta ("AltaVista found no document matching your query.");
if ($results =~ m/$none/) {
return;
}
else {
if ($results =~ /([^>\s]+) pages found./) { $link_hits2 = $1; }
else {return;
}
my $FONT = 'font face="verdana, arial" size="2"';
my $FONT_SMALL = 'font face="verdana, arial" size="1"';
if ($link_hits2) {
while ($results =~ m#<dl><dt>\n<b>(\d+)\.\s*</b>\n<a href="([^"]+)">\n<b>([^<]+)</b></a></dt>\n<dd>([^<]*)</dd>\n
<b>URL:</b> <font color="\#808080">([^<]+)</font>\n
<font color="\#808080">\n([^<]+\n[^<]+)</font>#sog) {
($count, $url, $title, $description, $url2, $last) = ($1, $2, $3, $4, $5, $6);$url2 =~ s,/$,,;
$last =~ s,\n,,;$last =~ s,\s\s+, ,;
$link_results2 .= qq~<p>\n<$FONT_SMALL><b>$count.</b></font> <$FONT><a href="$url">$title</a>
\n$description</font>
\n<$FONT_SMALL><b>URL:</b> <font color="#808080">http://$url2</font></font>\n~;
}
}
}
$next2 = &next_hits($page, $link_hits2, 10);
if ($in{'search'} eq "both") {
#$link_results2 = $link_results2;
#$link_hits2 = $link_hits2;
#$next2 = $next2;
return;
}
&site_html_search_results;
exit;
}
Thank you
John
