#!/usr/bin/perl -w

use DBI;
use Guest;

# Connect to database
my $dbh = DBI->connect( "dbi:mysql:xxx", 'xxx', 'xxx' )
   or die "Can't connect to MySQL database: $DBI::errstr\n";

my $last_name = "Rodriguez"; 
my $q_last_name = $dbh->quote($last_name);
my $first_names = "Alex"; 
my $q_first_names = $dbh->quote($first_names);

# Fetch One
my ($add,$city,$state,$zip,$cnt) =
      $dbh->selectrow_array( "SELECT address, city, 
                                     state, zip, est_count
                              FROM  guest
                              WHERE last_name = $q_last_name
                              AND   first_names = $q_first_names" );

my $guest = new Guest ($last_name,$first_names,$add,
                       $city,$state,$zip,$cnt);

#### Test Update
print "Testing Update...\n";
$guest->state("TX");
$guest->update($dbh);

$dbh->disconnect();
exit;