lscgid: execve():/home/footbal/domains/footballoutlet.com/public_html/cgibin/header.cgi: No such file or directory
#!/usr/local/bin/perl print "Content-type: text/html", "\n\n"; &getplayers; print"
\n"; print "\n"; print "


"; &teamlist; print "

"; ########################### # Get Card List ########################### sub getplayers { @members = @blank; open(READFILE, "/home/footbal/players/list.cgi"); (@list) = ; chomp(@list); close READFILE; foreach $thisline(@list) { my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@filename, $profiles[0]); push (@players, $profiles[1]); push (@team, $profiles[2]); } @sortnums = sort(@thenums); @revnums = reverse(@sortnums); $LastNumber = $revnums[0]; chomp($LastNumber); } ########################## # Display Player Choice ########################## sub displayplayers { $number=0; foreach $item(@players) { print "

\n"; print "\n"; print "\n"; print "\n"; print "
\n"; } lscgid: execve():/home/footbal/domains/footballoutlet.com/public_html/cgibin/hotlist.cgi: No such file or directory


Search
by Player
Search
by Team
Complete
Sets
Inventory
Clearance

25% OFF
a different player
every day!
On Sale Today:
#!/usr/local/bin/perl &checksale; print "Content-type: text/html", "\n\n"; $linkname=$salename; $linkname=~ s/ //g; $linkname=lc($linkname); print "$salename"; sub checksale { open(READFILE, "/home/footbal/public_html/cgibin/todaysale.cgi"); ($salename,$DayDate,$DateDate,$MonthDate) = ; close READFILE; &getdateinfo; $DateDate=$DateDate+1; $DateDate=$DateDate-1; if ($DateDate eq $DayInMonth) {$match=0; return $salename;} else { @salelist = @blank; open(READFILE, "/home/footbal/players/list.cgi"); (@salelist) = ; chomp(@salelist); close READFILE; foreach $thisline(@salelist) { my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@salefiles, $profiles[0]); push (@saleplayers, $profiles[1]); push (@gunk, $profiles[2]); } $salenum=@salefiles; $salenum=$salenum-1; &randomize; $linkfile=$salefiles[$randplayer]; open (WRITEFILE, ">/home/footbal/public_html/cgibin/oldsales.cgi"); foreach $write(@oldsales) { print WRITEFILE "$write\n"; } print WRITEFILE "$randplayer\n"; close WRITEFILE; open(READFILE, "/home/footbal/players/$salefiles[$randplayer].cgi"); ($salename,@junk) = ; chomp(@junk); close READFILE; open (WRITEFILE, ">/home/footbal/public_html/cgibin/todaysale.cgi"); print WRITEFILE "$salename$DayOfWeek\n$DayInMonth\n$Month\n"; close WRITEFILE; ########################### # Create New Tally ########################### sub createtally { &doit; $front=substr($cardnums,0,2); $end=substr($cardnums,2,3); open (WRITEFILE, ">/home/footbal/public_html/cgibin/cardcount.js"); print WRITEFILE "document.write(\"$front,$end\");\n"; close WRITEFILE; } return $linkfile; } } sub getdateinfo { ($Seconds, $Minutes, $Hours, $DayInMonth, $Month, $Year, $DayOfWeek, $DayOfYear, $IsDST) = localtime(time); if ($DayOfWeek eq 0) {$Day="Sunday";} if ($DayOfWeek eq 1) {$Day="Monday";} if ($DayOfWeek eq 2) {$Day="Tuesday";} if ($DayOfWeek eq 3) {$Day="Wednesday";} if ($DayOfWeek eq 4) {$Day="Thursday";} if ($DayOfWeek eq 5) {$Day="Friday";} if ($DayOfWeek eq 6) {$Day="Saturday";} $Year=$Year+1900; $Month=$Month+1; } sub randomize { @passset=@blank; srand(time ^ $$); @passset = ('0'..$salenum); $randplayer = ""; for ($i = 0; $i < 1; $i++) { $randum_num = int(rand($#passset + 1)); $randplayer .= $passset[$randum_num]; } &checkdups; } sub checkdups { open(READFILE, "/home/footbal/public_html/cgibin/oldsales.cgi"); (@oldsales) = ; chomp(@oldsales); close READFILE; $numold=@oldsales; if ($numold eq "125") {@oldsales=@blank;} foreach $old(@oldsales) { $old=$old+1; $old=$old-1; if ($old eq $randplayer) {&randomize} } } ######################## # Read File ######################## sub readfile { $nam="nope"; @cards = @blank; open(READFILE, "/home/footbal/players/$player.cgi"); ($name,@cards) = ; chomp(@cards); close READFILE; foreach $thisline(@cards) { my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@brand, $profiles[0]); push (@price, $profiles[1]); push (@graphic, $profiles[2]); } } ########################### # Get Players List ########################### sub getplayers { @members = @blank; open(READFILE, "/home/footbal/players/list.cgi"); (@list) = ; chomp(@list); close READFILE; foreach $thisline(@list) { my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@filename, $profiles[0]); push (@players, $profiles[1]); push (@team, $profiles[2]); } $thisline="autos|Autographs|none"; my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@filename, $profiles[0]); push (@players, $profiles[1]); push (@team, $profiles[2]); $thisline="invclear|Inventory Clearance|none"; my @profiles = split(/\|/, $thisline); chomp($profiles[2]); push (@filename, $profiles[0]); push (@players, $profiles[1]); push (@team, $profiles[2]); @sortnums = sort(@thenums); @revnums = reverse(@sortnums); $LastNumber = $revnums[0]; chomp($LastNumber); } ############################# # Generate Search Index ############################# sub doit { &getplayers; $cardnums=0; foreach $player(@filename) { &readfile; $count = @cards; $cardnums=$cardnums+$count;} } 1;

lscgid: execve():/home/footbal/domains/footballoutlet.com/public_html/cgibin/footer.cgi: No such file or directory

#!/usr/local/bin/perl &parseform; $pagename=$FORM{'pagename'}; print "Content-type: text/html", "\n\n"; print "

"; &displaybanner; sub displaybanner { ##REMOVE EXIT TO SHOW BANNER #exit; open(READFILE, "/home/footbal/public_html/cgibin/ads/15.htm"); (@lines) = ; chomp(@lines); close READFILE; foreach $line(@lines) {print $line;} $hitbox="no"; if ($hitbox eq "yes") {print "

\n";} } ######################## # Parse Form ######################## sub parseform { if ($ENV{'REQUEST_METHOD'} eq "GET") { @parse = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@parse) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\///g; $value =~ s/