#!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); # ------------------------------------------------------------ # use DBI ; use CGI qw(:standard); require "conf/connect.cgi" ; require "conf/css.cgi" ; # ------------------------------------------------------------ # $style = &getStyle(param('style')); $truckurl = 'http://mtm2.com/~trucks'; print "Content-type: text/html\n\n"; # ------------------------------------------------------------ # print < expo2003 - Trucks

expo2003 - Trucks


EOM # ------------------------------------------------------------ # &ro_connect('trucks'); $SQL = < $rv trucks Truck Maker DL Type Date Size EOM # ------------------------------------------------------------ # while ($ary = $sth->fetchrow_hashref) { $ID = $ary->{'ID'} ; $status = $ary->{'status'} ; # $dir = $ary->{'dir'} ; # $file = $ary->{'file'} ; $truck = $ary->{'truck'} ; $maker = $ary->{'maker'} ; $date = $ary->{'date'} ; $type = $ary->{'type'} ; $size = $ary->{'size'} ; $DL = $ary->{'DL'} ; $pic = $ary->{'pic'} ; # $description = $ary->{'description'} ; $link = qq(${truck}); if ($pic) { $detail = qq($type); } else { $detail = $type; } print qq(${link}${maker}${DL}${detail}${date}${size}k\n); } # ------------------------------------------------------------ # # HereDoc output print <



EOM $sth->finish() ; $dbh->disconnect(); $style = undef ; $op_a = $op_d = $op_n = $op_m = $op_t = $op_s = $op_w = $d = $s = undef ; $SQL = $ary = $sth = $dbh = $rv = undef ; $link = $ID = $status = $truck = $maker = $date = $type = $size = $DL = $pic = undef ; # EOF