Search-index.cgi (part 3)

$query->endform,

"<P><A HREF=html>[BROWSE]</A>";

}

sub do_msql_init {

unless ($dbh = Msql->connect($msql_hostname,

$msql_databasename)) {

print $Msql::db_errstr;

}

}

sub do_search {

print

"<CENTER><H1>Search Results</H1></CENTER>",

"<HR>";

foreach $kwd (@keywords) {

$doc_ct++;

$kwd =~ tr/A-Z/a-z/;

foreach $doc_no (split /\n/, $INDEX{$kwd}) {

$match{$doc_no}++;

}

}

print

"<P>Total number of words in query: $doc_ct",

"<P>Top $max_output URLs that match the query: <B>@keywords</B><P>",

"<CENTER>",

"<TABLE BORDER>",

Previous slide

Next slide

Back to first slide

View graphic version