use utf8;
use Devel::StackTrace;

#MYSQL
#verbind met MySQL-server
sub mysqlconnect
{
    my $dbh = DBI->connect('DBI:mysql:database=furbie:host=localhost', 'furbie', `cat /home/furbie/.furbie.mysql`); #;)
    eval {
        $dbh->do("set names utf8");
    };
    if ($@) {
        my $trace = Devel::StackTrace->new;
        print $trace->as_string; # like carp
        print "|$@|\n";
    }
    $dbh->{mysql_enable_utf8} = 1;
    return $dbh;
}

#voer select-query uit en geef resultaat terug
sub mysqlselect
{
    my ($dbh, $query) = @_, my @results = (), my ($sth, $ref);

    eval {
        $sth = $dbh->prepare($query);
        $sth->execute();
    };
    if ($@) {
        my $trace = Devel::StackTrace->new;
        print $trace->as_string; # like carp
        print "|$@|\n";
    }
    while ($ref = $sth->fetchrow_hashref())
    { push(@results, $ref); }

    return @results;
}

#voer andere query uit (geen resultaat)
sub mysqldo
{
    my ($dbh, $query) = @_, my $sth;

    $sth = $dbh->prepare($query);
    $sth->execute();
}

1;