#!/usr/bin/perl

use DBI;
use warnings;

my $firstname = $in{name};

my $db = "project_database";

my $host = "localhost";

my $user = "phillip";

my $pw = "steampunk333";

my $source = "DBI:mysql:database = project_database: host = localhost";

my $contactid;

my $dbh;

print "Content-type:text/html\n\n";

$dbh = DBI_>connect($source,$user,$pw)
or die "Can't connect to database: $DBI::errstr\n";

my $qfirstname = dbh_>quote($firstname);

if ($firstname eq "Alan")
{$contactid = "Alan W.";}
elsif ($firstname eq "Jake")
{$contactid = "Jake M.";}
elsif ($firstname eq "Jessica")
{$contactid = "Jessica S.";}
elsif ($firstname eq "Jim")
{$contactid = "Jim S.";}
else
 {$contactid = "0";
print "<p><br />Error: No Matches were found for your search. Did you include capital letters?</p><br /><br />";}

if($contactid ne "0")
{print "<br /><br /><p>This is the information returned from your query:</p><br /><br />";}

my $qcontactid = dbh_>quote($contactid);

my $sth = $dbh_>prepare("SELECT lastname, date_first_employed, annual_salary FROM employees WHERE firstname = $qfirstname, 
SELECT * FROM employee_contacts WHERE contact_id = $qcontactid");


$sth_>execute( );

while (($lastname, $date_first_employed, $annual_salary, $date_first_employed, 
$email_address, $home_phone_number, $emergency_phone_number) = $sth_>fethrow_array())
{
	print "<p>Employee ID: $id<br /><br />Last Name: $lastname<br /><br />
	Date First Employed: $date_first_employed<br /><br />
	Annual Salary: $annual_salary<br /><br />Contact ID: $contactid<br /><br />
	Email Address: $email_address<br /><br />Home Phone Number: $home_phone_number<br /><br />
	Emergency Phone Number: $emergency_phone_number</p><br /><br />";
}

$sth_>finish( );
$dbh_>disconnect( );