I keep getting the following warning message using
DBIx::Chart.
In spite of the message, the chart does generate OK.
I'm using Activestate 5.6.1 with DBI v1.48,
DBIx::Chart
v.01, DBD::Chart v.80, DBD-DB2 v.78
When I run the script, I get the following on execute:
DBI handle 0x2121820 has uncleared implementors data
at tst.pl line 30.
dbih_clearcom (sth 0x2121820, com 0x21306c8, imp
DBD::DB2::st):
FLAGS 0x80113: COMSET IMPSET Warn PrintError
PARENT DBIx::Chart::db=HASH(0x212173c)
KIDS 0 (0 Active)
IMP_DATA undef
LongReadLen 32700
NUM_OF_FIELDS 1
NUM_OF_PARAMS 0
Here is the script:
===============================================================
use DBIx::Chart;
$tbl = "PS_JOB";
$dbh = DBIx::Chart->connect("dbi:DB2:mydb","", "",
{ PrintError => 0, RaiseError
=> 0, AutoCommit => 0 })
or die "Cannot connect\n";
$qry = $dbh->prepare(qq(
select
char(date(capture_dt),ISO) as capturedt,
tblsz as TotalMB
from
mystats
where
tabname = 'PS_JOB'
order by
capture_dt
RETURNING linegraph(*)
WHERE
WIDTH=600 AND HEIGHT=400 AND format='PNG' and
KEEPORIGIN=1 and SHOWGRID=1 and linewidth=2 and
gridcolor='lgray' and x_orient='VERTICAL' and
x_axis = ' ' and y_axis = 'MB' and
SIGNATURE='abc (Ver 1.0)' and
TITLE = 'Table Growth ($tbl)'
))
|| die("Prep chart:\n$DBI::errstr\n");
$qry->execute() || die("Exec chart:\n$DBI::errstr\n");
$img = $qry->fetchrow_arrayref;
open(OUTF, ">$oimg.$ifmt");
binmode OUTF;
print OUTF $$img[0];
close OUTF;
$qry->finish;
$dbh->commit;
$dbh->disconnect;
===============================================================
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
