#!/usr/bin/perl

use strict;

use DBI;

use vars qw( $sth ); # cached connection

my $DB_PATH = "DBI:Sybase:server=192.168.70.56" ;
my $DB_USER = "twiki";
my $DB_PASS = "twiki";

my $dbh = DBI->connect($DB_PATH, $DB_USER, $DB_PASS)|| die "Couldn't connect to database";

print "Database connection established. \n";

my $args=<STDIN>;

my $sth = $dbh->prepare
(
my $sql ="SELECT Bug.ixBug, Bug.sTitle, Priority.sPriority, Person.sFullName, FixFor.sFixFor, Status.sStatus FROM Bug, Priority, Person, FixFor, Status WHERE (Bug.ixPriority=Priority.ixPriority) AND (Bug.ixPersonAssignedTo=Person.ixPerson) AND (Bug.ixStatus = Status.ixStatus) AND (Bug.ixFixFor = FixFor.ixFixFor) AND (Bug.ixBug = $args)");

$sth->execute;

#print out data

#my $headers =
#'| *ID* | *TITLE* | *PRIORITY* | *Assigned To* | *Fix For* | *Status* |';
my $headers = map { "*$_*" } qw/ ID Title Priority Assigned To 'Fix For' State /;
my $fmt = "| %s | %s | %s | %s | %s | %s | %s |\n ";

print "$headers \n";
my @row;
while ( @row = $sth->fetchrow_array() ) {
print "@row \n";
}



$dbh->disconnect;