#! /usr/bin/perl # (c) 1999 the RAID GROUP / for the.raidgroup.net # golemite@pacbell.net # ---------------------------- define variables --------- $version = "v2.0"; $n = 0; $m = 0; $showall = 0; @search_terms = split(/ /, $variable); @hand[0] = "Test Handle"; if (length($ENV{'QUERY_STRING'}) > 0) { $showall=1; } # ---------------------------- header ------------------- print "Content-type: text/html\n\n"; print "\n\ns4biturbo.com: Audi S4 Owners' Resource: Audi 2.7L Biturbo Timeslips"; open (FILE,"header_plain.inc"); @file = ; close FILE; print @file; open (FILE,"incl_ad1.inc"); @file = ; close FILE; print @file; print<<"EOF";

Audi 2.7L Biturbo Timeslips
This is the NEW timeslips page!
Bookmark it!
EOF &footer; exit; # ---------------------------- subroutines -------------- sub process_slip { $string = $data[$n]; ($handle,$box,$chip,$downpipes,$exhaust,$octane,$misc_mods,$track,$degrees,$s,$e,$f,$mph,$slip,$award) = split(/;/,$string); if ($handle eq 'Special') { $special_count++; if ($special_count == 4) { print "
"; open (FILE,"incl_ad2.inc"); @file = ; close FILE; print @file; print ""; } print "$box Second ETs\n"; } else { $handlefound=0; for ($m = 0; $m < scalar(@hand); $m++) { if ($hand[$m] eq $handle) { $handlefound=1; } } if($handlefound==0) { $hand[$m+1] = $handle; &print_slip; } elsif($showall==1) { &print_slip; } elsif(length($award) > 1) { &print_slip; } } } sub print_slip { print "$handle"; if ($award ne '') { print "
$award"; } print "$chip"; if ($box ne '?') { print " $box-box"; } if ($downpipes ne 'Stock') { print ", $downpipes downpipes"; } print ", $exhaust exhaust"; if ($octane ne '???') { print ", $octane\oct"; } if ($misc_mods ne '') { print ", $misc_mods"; } print "$s$e$f$mph"; print "DETAILS\n"; } sub error { print "No String Entered!\n"; &footer; exit; } sub footer { print<<"EOF";

raidgroup.net $version (c)2004

EOF open (FILE,"incl-footer.html"); @file = ; close FILE; print @file; }