use strict;
use warnings;


while (1)
{
    $_ = make_choice();
    /^1$/ and do { mysql(); last };
    /^2$/ and do { skip();  last };
}


sub make_choice
{
    print "\n\n";
    print "Choose which driver to test\n";
    print "[1] MySQL\n";
    print "[2] Skip Tests\n";
    my $choice = <STDIN>;
    chomp ($choice);
    return $choice;
}


sub mysql
{
    print "DSN String ['DBI:mysql:database=test']: ";
    my $dsn = <STDIN>;
    chomp ($dsn);
    $dsn = 'DBI:mysql:database=test' unless ($dsn);

    print "User ['root']: ";
    my $user = <STDIN>;
    chomp ($user);
    $user = 'root' unless ($user);

    print "Password [undef]: ";
    my $pass = <STDIN>;
    chomp ($pass);
    $pass = '' unless ($user);
    
    print "Writing driver info... ";
    open FP, ">t/driver.nfo" or die "Cannot write-open t/driver.nfo. Reason: $!";
    print FP <<EOF;
use TripleStore::Driver::MySQL;
\$VAR1 = new TripleStore::Driver::MySQL ('$dsn', '$user', '$pass');
EOF
    close FP;
    print "OK\n";
}


sub skip
{
    print "Skipping\n";
} 


1;


__END__