#!/usr/bin/perl $dfile = "gear.txt"; # CGI programs must print their own HTTP response headers print "Content-type: text/html\n\n"; # Declare the SGML application as HTML print "\n"; # Begin HTML print "\n"; # A minimal document must include a header region with a title print "\n". "JSRC Gear\n". "\n\n"; # Javascripts go here print < ENDHTML # Start document body print "\n\n"; print "
\n"; print "

Offical JSRC Gear

\n"; print "Note: Please email ". "Penny". " when mailing in your order. Thanks.
\n"; print "Items are available at the Club's Weekly ". "Runs, Club Events and Meetings or can be ordered by Mail using the order form ". "below.
". "Many items are in stock, however some may require special order to replenish ". "inventory and may not be immediately available.
\n"; print "

". "Click Here for an Order Form

\n"; print "
\n"; # Put values in a table for readability print "\n\n"; # Include table headers print " \n". " \n". " \n". " \n"; $row=0; @row_colors = ("0067B0", "white"); open(F, "$dfile"); while () { @Fields = split '\|'; print "\n". " \n". " \n". " \n". " \n". " \n". " \n". " \n". " \n"; $row++; if ($row==2) { $row = 0; } } close(F); # End table print "
\n". " Item\n". " \n". " Color\n". " \n". " Price\n". " \n". " Size\n". " \n". " Gender\n". " \n". " Photo (Click to zoom)\n". "
\n". " $Fields[0]". " \n". " $Fields[1]". " \n". " $Fields[2]". " \n". " $Fields[3]". " \n". " $Fields[4]". " \n". " ". " ". "
\n\n"; print "
\n"; print "filler for braindead IE"; print "
\n"; # End document body print "\n"; # End HTML print "\n"; exit 0;