|
|
&display_featuredsitelink;
sub display_featuredsitelink {
srand(time|$$);
open(F, "$ENV{DOCUMENT_ROOT}/subdocs/featured.txt");
@A = ;
close(F);
print "Featured Site ";
$line = @A[int(rand(@A))];
$line =~ /(\S+) (.+)/;
print "$2";
}
|
|
open(F, "$ENV{DOCUMENT_ROOT}/subdocs/features.txt");
@A = ;
close(F);
&mkcol(4,@A);
|
|
open(F, "$ENV{DOCUMENT_ROOT}/subdocs/searchengines.txt");
@A = ;
close(F);
&mkcol(4,@A);
|
|
To see a list of our favorite links click here. 
|
|
|
&includefile("/subdocs/bottom.html");
