#!/usr/bin/perl
use strict;
use CGI::Widget::Tabs;
use CGI;
use DBI;
use HTML::Template;
my $cgi = CGI->new;
my $tab = CGI::Widget::Tabs->new;
$tab->cgi_object($cgi);
$tab->headings( qw/Football Baseball/ );
$tab->wrap(3);
$tab->default("Football");
my $heading = $tab->render;
my $sql = q!
SELECT team as TEAM, url as URL
FROM sports
WHERE sport = ?
!;
my $dbh = DBI->connect("dbi:Oracle:$dbname", $user, $passwd,
{RaiseError => 1})
or die "Oracle Connect Failed: ", DBI->errstr;
my $sth = $dbh->prepare($sql);
$sth->execute($tab->active);
my @rows;
while (my @f = $sth->fetchrow_array) {
push @rows, {
TEAM => $f[0],
URL => $f[1],
};
}
my $template = HTML::Template->new( filehandle => *DATA );
$template->param(TITLE=>"ENV Spreadsheet" );
$template->param(HEADINGS=>$heading, ROWS=>\@rows );
print "Content-Type: text/html\n\n",$template->output;
__DATA__
<TMPL_VAR name=TITLE>