#!/usr/bin/perl 
use CGI::Carp qw(fatalsToBrowser);
# ------------------------------------------------------------ #
use DBI ;
use CGI qw(:standard);
require "conf/connect.cgi" ;
# require "conf/css.cgi"     ;
# require "conf/funky.cgi"   ;

# ------------------------------------------------------------ #
# $style = &getStyle(param('style'));

print "Content-type: text/html\n\n";
# ------------------------------------------------------------ #
&ro_connect('tracks');
$SQL = <<SQL;
	SELECT track, maker, size, type
	FROM tracks
      WHERE (status = '3')
	ORDER by ID DESC
SQL
&Do_SQL;
# ------------------------------------------------------------ #
# ------------------------------------------------------------ #
if ($rv > 0) {
print <<EOM;
  <table align=center width=500 cellspacing=0>
  <tr class=header2 align=center><td colspan=4>$rv tracks</td></tr>
  <tr class=header1><td>Track</td><td>Maker</td><td>Type</td><td>Size</td></tr>
EOM

while ($ary = $sth->fetchrow_hashref) {
	$track = $ary->{'track'} ;
	$maker = $ary->{'maker'} ;
	$size = $ary->{'size'} ;
	$type = $ary->{'type'} ;
print qq(<tr><td nowrap>$track</td><td>$maker</td><td>$type</td><td>${size}k</td></tr>\n);
}

print <<EOM;
    </td></tr></table>
EOM
}
# ------------------------------------------------------------ #
else {
print qq(<center>No entries yet</center>\n);
}
# ------------------------------------------------------------ #
# ------------------------------------------------------------ #

$sth->finish() ;
$dbh->disconnect();

$style = $SQL = $rv = $ary = $sth = $dbh = undef;
$track = $maker = $type = $size = undef;


# EOF