#!/usr/local/bin/perl5
my %ads, @random, @lines, @breaks, $randnum, @code, $codefile;
#print "Content: text/html \n\n";
#/DocRicketts/cgi-bin/ads/adserver.cfg
open (ADS, "adserver.cfg") || print "Couldn't open /DocRicketts/cgi-bin/ads/adserver.cfg: $!";
@lines = ;
close(ADS);
foreach $item ( @lines ){
@breaks = split(/\|/,$item);
#print "Breaks: 0- $breaks[0] 1- $breaks[1]
";
$ads{$breaks[0]} = $breaks[1];
@random = (@random, $breaks[0]);
}
$randnum = rand( 100 ) % scalar( @random );
#print "Randnum: $randnum\n";
#print "The file: $ads{$random[$randnum]}
\n";
$codefile = $ads{$random[$randnum]};
open (ADSTUFF, "$codefile")|| die "Couldn't open $ads{$random[$randnum]}: $!";
@code = ;
close(ADSTUFF);
foreach $line ( @code ){
print "$line\n";
}
Test Stuff...
test