#! /tools/bin/perl  -w

use DBI;
use strict;

my $dbh=&ConnectToDatabase("push20");
my $dir;

&test_connect($dbh);

sub test_connect
{
my $handle=shift;
my $sth;

my $query ="select user_name from tags where id='1'";
$sth= $handle->prepare(qq{ $query } ) || &choke($sth->errstr);
$sth->execute() || &choke ($sth->errstr);
my ($user_list) = $sth->fetchrow_array();
$sth->finish(); #cleanup
print "TAG-$user_list\n";
} # End of test_connect

sub ConnectToDatabase {
    my $database = shift ;
    my ($dsn)="DBI:mysql:$database:keefer.epinions.com";
 DBI->trace(1, "load20.out");
        $dbh = DBI->connect($dsn, "root", "push")
            || die "$DBI::errstr - Can't connect to database server: .";
} # End of ConnectToDatabase

sub choke
{
my $reason=shift;
print "Failing because: $reason !!!!\n";
exit 1;
} # End of choke