# Return unless we have results.
((keys %link_results > 0) or ($#category_results >= 0)) or
&site_html_search_failure ("no matching records") and return;

# Return unless we have results.
((keys %link_results > 0) or ($#category_results >= 0)) or &extra_search;

sub extra_search {

use LWP::Simple;

my $term = $in{'query'};

my $url = "http://www.google.com/search?q=$term";

@data = get($url);

foreach (@data) {
$page .= $_;
}

&site_html_search_results($page);
}

page => $page,

<%page%>

sub site_html_search_results {
# --------------------------------------------------------
# This routine displays the search results.
#
my $term = &urlencode ($in{'query'});
&html_print_headers;
print &load_template ('search_results.html', {
term => $term,
link_results => $link_results,
category_results => $category_results,
next => $next,
cat_hits => $cat_hits,
link_hits => $link_hits,
%in,
%globals
});
}

sub site_html_search_results {
# --------------------------------------------------------
# This routine displays the search results.
#
my $term = &urlencode ($in{'query'});
my $page = shift;
&html_print_headers;
print &load_template ('search_results.html', {
term => $term,
link_results => $link_results,
category_results => $category_results,
next => $next,
cat_hits => $cat_hits,
link_hits => $link_hits,
page => $page,
%in,
%globals
});
}

# Return unless we have results.
((keys %link_results > 0) or ($#category_results >= 0)) or
&site_html_search_failure ("No matching records") and return;

# Return unless we have results.
unless ((keys %link_results > 0) or ($#category_results >= 0)) {
use LWP::Simple;
my $term = $in{'query'};
my $url = "http://search.dmoz.org/cgi-bin/search?search=$term";

@data = get($url);

foreach (@data) {
s/src=\"(.+)\"/src=\"http:\/\/www.dmoz.org$1\"/gi;
$page .= $_;
}
&site_html_search_results($page);
return;

}