#!/usr/bin/perl
#!/usr/local/bin/perl


######################################################
# Hot Links SQL - searchfeed.com Search Results
######################################################
use CGI;
use DBI;
require 'config.pl';  # you may need to specify the full path

my $q = CGI->new;
print $q->header;


print <<"HTML";
  document.write(\"<table width='$popwidth' cellpadding=1 cellspacing=0 border=0 align=center>\");
  document.write(\"<tr><td valign=top nowrap class=bodytext bgcolor=$tablebg>\");
  document.write(\"<table width='100%' cellpadding=3 cellspacing=1 border=0 align=center bgcolor=$linkcolor>\");
  document.write(\"<tr><td class=bodytext bgcolor=$tablebg><font color=$linkcolor><img src='$imageurl/squares.gif'>&nbsp;Top Searches</font></td></tr>\");
HTML


my $dbh = DBI->connect("DBI:mysql:$dbname;$dbhost", $dblogin, $dbpass) || print "Could not connect to database<br>";
my $sth = $dbh->prepare("SELECT keywords FROM search WHERE keywords != '' ORDER BY count DESC") || print "could not access database";
$sth->execute();
while (my $results = $sth->fetchrow_hashref) {
  my $keywords = $results->{keywords};
  $count_keys++;
  if ($count_keys <= $topsearchcount) {print " document.write(\"<tr><td bgcolor=#FFFFFF class=bodytext><a href='$searchscript?search=$keywords'>$keywords</td></tr>\"); ";} else {last;}
}
$sth->finish;
$dbh->disconnect;

print <<"HTML";
  document.write(\"</td></tr></table>\");
  document.write(\"</td></tr></table>\");
HTML