#!/usr/bin/perl -w

#
# When we work with databases, aren't there a few queries
# we keep typing every day, over and over, to find out how
# the database is going along? Well, since I'm too Lazy to
# keep typing the same stuff, I wrote a tiny program to 
# take a number of queries and report its results 
# automatically.
#
# All there's to be done to add new queries is to fill in 
# the structures on the top of the program, and adjust to
# your favorite RDBMS. Hopefully everything is self-
# explanatory.
#
<READMORE>
use DBI;
use DBD::Pg;
use CGI qw(:standard);

use strict;
use integer;

print header ();

my @qlist = (
	{
		query => 'SELECT count(*) FROM item',
		desc => 'Number of items',
		labels => [ 'Number' ],
	},
	{
		query => 'SELECT a, b, c FROM mytable',
		desc => 'stuff from mytable',
		labels => [ 'A', 'B', 'C' ],
	},
);

my $dbh = DBI->connect ("dbi:Pg:dbname=beta", 'cbraga', '', { AutoCommit => 1, RaiseError => 1 } ) || die "error connecting to db";

foreach my $query (@qlist) {
	print "<h1> $query->{desc} </h1>\n";

	my $sth = $dbh->prepare ($query->{query});
	$sth->execute ();

	unless ($sth->rows) {
		print "No results. <p>\n";
		next;
	}

	print "<table border> <tr>\n";
	my $line = $query->{labels};
	foreach my $label (@$line) {
		print "<td> <b> $label </b>\n";
	}

	while (my $row = $sth->fetchrow_arrayref) {
		print "<tr>";
		foreach my $col (@$row) {
			print "<td> $col\n";
		}
	}

	print "</table>\n";
}

$dbh->disconnect ();