package sqlsupport;
use strict;
use DBI;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw();

sub connectdb {
    my $database = shift;
    my $driver   = "mysql";
    my $server   = "localhost";
    my $url      = "DBI:$driver:$database:$server";
    my $user     = "perl\_interpreter";
    my $password = "crawdad";
    my $dbh = DBI->connect( $url, $user, $password ) or die "connectdb can't connect to mysql: $!\n";
    return $dbh;
}

sub dosql {
    my @results = ();
    my ($dbh,$sqlstatement,$response)= @_;
    my $sth = $dbh->prepare($sqlstatement);
    my @row;
    $sth->execute || die "Could not execute MySQL statement: $sqlstatement";
    if ($response) {
	while (@row=$sth->fetchrow_array) { push(@results, [ @row ]); }
    }
    $sth->finish();
    return @results;
}


1;