#!/usr/bin/perl
 
use CGI;
use DBI;
use DBD::mysql;
use POSIX;
 
my $dbh,$sth;
my @row;
my $q = new CGI;
 
## Change  here !!!
my $database_name="ZZZ";
my $database_host="localhost";
my $database_port="3306";
my $database_user="ZZZ";
my $database_passwd="ZZZ";
my $sql_query;


print $q->header;
print $q->start_html(-title => "Search Engine Statistics", -BGCOLOR =>'#FFFFCC');
print "\n";

 
##############################################
##
##  Connect to DB
##
##############################################
# 
#print "Connected to database Successfully<BR>\n" if
         $dbh =
DBI->connect("DBI:mysql:database=$database_name:$database_host:$database_port;","$database_user","$database_passwd");
 	       $dbh =
DBI->connect("DBI:mysql:$database_name","$database_user","$database_passwd");
 
 
print "<H1>Search engine statistics</H1>\n";
 
print "<H2>Most popular queries</H2>\n";
 
$sql_query = "SELECT query, count(query) as query_count
                 FROM stat
                GROUP BY query
                HAVING query_count>1
                ORDER BY query_count DESC;";
                                                       
    #print "Prepared Query<BR>\n" if
        $sth = $dbh->prepare($sql_query);
 
#print "Exceuted Query<BR>\n" if
        $sth->execute();
 
 
print "<TABLE BORDER=\"1\">\n";
print " <TR>\n";
print "  <TH> Query word[s] </TH>\n";
print "  <TH>  of queries</TH>\n";
print " </TR>\n";
 
 
while (@row = $sth->fetchrow_array)
{
         print " <TR>\n";
         foreach (@row)
         {
                 print "  <TD> ";
                 print $_;
                 print " </TD>\n";
         }
         print " </TR>\n";
}
 
print "</TABLE>\n";
 
# More queries to add here ...
 
#############################################
#
#  Disconnect from DB
#
#############################################
 
 
#print "Disconnected from database Successfully<BR>\n" if
        $dbh->disconnect;
 
 
print $q->end_html;
 
exit 0;