#!/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')); $trackurl = 'http://mtm2.com/~tracks'; print "Content-type: text/html\n\n"; # ------------------------------------------------------------ # # HereDoc output print < expo2003 - Tracks
EOM # ------------------------------------------------------------ # &ro_connect('tracks'); $SQL = < $rv tracks Track/Info Maker Type/Revue Size/Pic EOM # ------------------------------------------------------------ # while ($ary = $sth->fetchrow_hashref) { $ID = $ary->{'ID'} ; # $status = $ary->{'status'} ; $mtmg = $ary->{'mtmg'} ; # $dir = $ary->{'dir'} ; # $file = $ary->{'file'} ; $track = $ary->{'track'} ; $maker = $ary->{'maker'} ; # $date = $ary->{'date'} ; $type = $ary->{'type'} ; $size = $ary->{'size'} ; # $DL = $ary->{'DL'} ; $phpbb = $ary->{'phpbb'} ; $pic = $ary->{'pic'} ; # $description = $ary->{'description'} ; $brief = $ary->{'brief'} ; if (defined $mtmg) { $down = qq(${track}   O); } else { $down = qq(${track}); } if (defined $brief) { $detail = qq($type); } elsif ((defined $phpbb) && ($phpbb != '') ) { $detail = qq($type); } else { $detail = $type; } if ( (defined $pic) && ($pic =~ /\.jpg/i) ) { $info = qq(${size}); } else { $info = $size; } print qq(${down}${maker}${detail}${info}k\n); } # ------------------------------------------------------------ # # HereDoc output print <
EOM # ------------------------------------------------------------ # $sth->finish() ; $dbh->disconnect(); $op_03 = $op_02 = $op_01 = $op_00 = $op_99 = $op_98 = $op_97 = undef ; $op_a = $op_d = $op_n = $op_m = $op_t = $op_s = $op_w = undef ; $y = $d = $s = undef ; $forum = $whatever = $direction = $sortcriteria = undef ; $rv = $SQL = $ary = $sth = $dbh = undef ; $ID = $mtmg = $track = $maker = $type = $size = $review = $pic = $brief = undef ; $down = $detail = $info = undef ; $style = undef ; # EOF