%once>
use DBI;
%once>
<%shared>
my $serverName;
my $dumpdate;
my $dbh = DBI->connect("dbi:Sybase:server=mydb", 'info', 'infopwd', { RaiseError => 1, PrintError => 1 } );
$dbh->do("use sybase_dba");
my $query = "select serverName, min(dumpdate) from dbLastBackup group by serverName";
my $sth = $dbh->prepare($query);
$sth->execute;
$sth->bind_columns(undef, \$serverName, \$dumpdate);
%shared>
Server Name | backup date |
<% while ($sth->fetch) { %>
<% $serverName %> | <% $dumpdate %> |
<% } %>
####
<%shared>
my %serverDump;
my $dbh = DBI->connect("dbi:Sybase:server=mydb", 'info', 'infopwd', { RaiseError => 1, PrintError => 1 } );
$dbh->do("use sybase_dba");
my $query = "select serverName, min(dumpdate) from dbLastBackup group by serverName";
my $sth = $dbh->prepare($query);
$sth->execute or die "Error: unable to run query! " . $dbh->errstr;
%shared>
% while (my $row = $sth->fetchrow_arrayref ) {
<% $row->[0] %> | <% $row->[1] %> |
% }