#!/usr/bin/perl -w

use strict;
use diagnostics;
use Mysql;
use CGI;   # available from http://www.perl.com/CPAN

# Create an instance of CGI
my $query = new CGI;

# Send an appropriate MIME header
print $query->header("text/html");

# Get the name to match from the query string
my $name = $query->param("keywords");

# Check that a name was entered -- if not,
# allow people to enter one
if ($name eq "")
{
    print $query->start_html(-title => "No name given!");
    print "<P>Please enter a name for which to search.</P>";
    print "<isindex>\n";
    print $query->end_html;
    exit;
}

# Begin the HTML output
print $query->start_html(-title => "Query results");

# Connect via Unix sockets to the database on this server
my $dbh = Mysql->connect;

# Choose a database
$dbh->selectdb("test");

# Send our query
my $sth = 
    $dbh->query("select name,telephone from phone_book where name = \"$name\"");

# Iterate through the returned rows
my @arr = ();

# Create a table for results
print "<table border=3>\n";

while (@arr = $sth->fetchrow)
{
    # Begin a new table row 
    print "<tr>\n";
    
    # Print the first element in the first column
    print "<td>$arr[0]</td>\n";

    # Print the second element in the second column
    print "<td>$arr[1]</td>\n";

    # End the row
    print "</tr>\n\n";
}

# End the table
print "</table>\n";

# End the HTML
print $query->end_html;

exit;