#!/usr/bin/perl
#
# $Id: rt3-stats,v 1.4 2004/02/12 06:28:28 carl Exp $
#
# rt3-staffreport
#


select(STDOUT); $|=1;

use DBI;

	
my $database = "rt3";
my $hostname = "";
my $port = '';
my $user = "rt_user";
my $password = "rt_pass";

my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, 
                        $user, 
                        $password,
                        {'RaiseError' => 1});



format STDOUT_TOP =


New or Open tickets for @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$userid

 Id    Status    Created             Queue      Subject
 ===== ========= =================== ========== =====================================
.

format STDOUT =
 @<<<< @<<<<<<<< @<<<<<<<<<<<<<<<<<< @<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $ary[0],$ary[1],$ary[2],            $ary[3],   $ary[4]
~~                                              ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
			                        $ary[4]
.

$userid = $ARGV[0];
$query = "select Tickets.id, Tickets.Status, Tickets.Created, Queues.Name, Tickets.Subject from Tickets,Queues,Users where Tickets.Queue=Queues.id and Tickets.Owner=Users.id and Users.Name='$userid' and Tickets.Status!='Resolved' and Tickets.Status!='Deleted';";
$sth = $dbh->prepare($query) or die "Can't prepare queue query";
$rc = $sth->execute
  or die "Can't execute statement: $DBI::errstr";

while (@ary = $sth->fetchrow_array) {
	write;
}

$dbh->disconnect;

exit 0;

