Test script for retrieving data from mysql (actually a query from bugzilla)

test-mysql.pl (text/plain), 644 bytes, created by Haroon Rafique on 2005-10-24 12:33:48 UTC

#!/usr/bin/perl -Tw

use strict;
use DBI;
use DBD::mysql;

my $dbh;

eval {
    $dbh = DBI->connect(
        'dbi:mysql:database=bugs', 'bugs', 'nothing',
        {
            RaiseError  => 1,
            PrintError  => 0,
            AutoCommit  => 0,
        });
};
        # do not proceed any further if connection to database is
        # unsuccessful
if( $@ ) {
    die "Database connection failure: $@";
        exit;
}

eval {
    my $sth = $dbh->selectrow_array("
        SELECT schema_data, version FROM bz_schema
        ");
    $sth->finish;
};
if( $@ ) {
    $dbh->rollback;
    $dbh->disconnect;
    die $@;
}
$dbh->disconnect;