Browse our Inventory of Football Cards
|
|
|
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; |
|
|
|
Yes, we are open for business and all inventory listed is in stock and orders will be shipped as usual.
With the downturn in the economy after 2008 we were forced to downsize and stop purchasing additional inventory.
But rest assured, we are here to fulfill your football card needs as we have since 1995!
Thank you to all of our long time customers for your business and support!
If you are looking for value of a football card, you might want to purchase a Beckett Football Card Price Guide.
|
#!/usr/local/bin/perl
print "Content-type: text/html", "\n\n";
open(READFILE, "/home/footbal/players/list.cgi");
(@salelist) = ;
chomp(@salelist);
close READFILE;
foreach $thisline(@salelist) {
my @profiles = split(/\|/, $thisline);
chomp($profiles[2]);
my @rearrange = split(/\, /, $profiles[1]);
chomp($rearrange[1]);
$actualname="$rearrange[1] $rearrange[0]";
push (@salefiles, $profiles[0]);
push (@saleplayers, $profiles[1]);
push (@correctname, $actualname);
push (@image, $profiles[2]); }
open(READFILE, "/home/footbal/hotlist/0folder/weeklist.cgi");
(@hotlist) = ;
chomp(@hostlist);
close READFILE;
for ($i = 0; $i < 19; $i++) {
my @breakdown = split(/\|/, $hotlist[$i]);
chomp($breakdown[1]);
push (@num, $breakdown[0]);
push (@players, $breakdown[1]);
}
## Old width 145
print "
| \n
Top Selling Players:\n
| \n
\n";
$x=0;
foreach $line(@players) {
$x=$x+1; $numlist=$numlist+1;
if ($x eq 1) {print " | \n";}
else {print " | | \n"; $x=0;}
$length=length($line);
#$filename=substr($line,0,$length-1);
$filename=$line;
$lowername=0;
foreach $realname(@salefiles) {
if ($realname eq $filename) {$match=$lowername;}
$lowername=$lowername+1;
}
$namematch=$correctname[$match];
$namematch =~ s/ \(Dolphins\)//g;
$namematch =~ s/ \(Vikings\)//g;
print " | \n"; }
print " ";
1;
|
|
|
![](\"http://www.footballoutlet.com/ebay/dot.gif\"){kind=small}