(($in{'search'} eq "dmoz") || ($in{'search'} eq 'both') || ($in{'search'} eq '') || (!$in{'search'})) and &dmoz;
if (($in{'search'} eq "links") || ($in{'search'} eq 'both') or ($in{'search'} eq '') or (!$in{'search'})) {
my $status = &search (\@search_terms, $bool);
if ($status ne "ok") { &site_html_search_failure ($status); return; }

### dmozMOD WITH MODIFICATION SO IT WOULD
USE A TEMPLATE CALL DMOZ_LINKS.HTML###
FIRST: Follow all of the original DMOZ SEARCH.CGI
mod instructions then make the changes bellow.


### IMPORTANT: I did not write this code, I'm no
Perl expert. I just took parts of the altavista
search.cgi mod, compare notes and made changes
to the dmoz search.cgi mod with "smart" guesses
and trial and error :-) All I know is that it works.

######## So here it is:

#####-->In "search.cgi" take this part:

# Loop through the results pulling out each link.
if ($total) {
while ($results =~ m#<li><a href="([^"]+)">(.+?)</a> - (.+?)<br>#sog) {
$numlist= $numlist+1;
($url, $title, $description) = ($1, $2, $3);
$link_results2 .= qq~$numlist. <a href="$url">$title</a> -
$description<br><small>-- $url</small><p>~;

#####-->and replace with:
# Loop through the results pulling out each link. INCLUDES ALTAVISTA dmoz_link

if ($total) {
while ($results =~ m#<li><a href="([^"]+)">(.+?)</a> - (.+?)<br>#sog) {
$numlist= $numlist+1;
($url, $title, $description) = ($1, $2, $3);
%tmp = ("Count", $count, "URL", $url, "Title", $title, "Description", $description, "URL2", $url2, "Numlist", $numlist);
$link_results2 .= &site_html_dmoz_link (%tmp) . "\n";

#####--> Then in "site_html_templates.pl" add this routine:

sub site_html_dmoz_link {
# --------------------------------------------------------
# This routine is used to display what a link should look
# like.

<p><font face="Georgia, Times New Roman, Times, serif" size="2">
Your search returned <strong>
<%cat_hits%>
</strong> Categories and <strong>
<%link_hits%>
</strong> nuzLinks.</font></p>
<%if next%>
<%endif%>
<%if category_results%>