random page perl script

code :: CGI randomization

place this code in a file called index.cgi, chmod it to 775, and place it in a directory of html files. this script will pick one of the files in the specified directory at random, and print it to the screen. refresh the page for a new random one.

#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
#print "<pre>";
$basep = "/wwwroot/path2/randomdir";
 
srand(time ^ $$);
#print "got random time...\n";
 
@files = `ls $basep/*.html`;
#print "got file list...\n";
#foreach (@files) { print "-----$_\n";}
 
$file = rand(@files);
#print "got random file...$phrase\n";
 
$nupath = "$files[$file]";
#print "got new path...$nupath\n";
 
open(LOG, $nupath) or die "$!\n"; 
while () 
{
  print $_;
}
close (LOG);
#print "</pre>";

exit;