!/usr/local/bin/perl #$random_file = "random.txt"; $random_file = "/home/velnetwe/public_html/searchenginemarketing/random.txt"; $delimiter = "\n\%\%\n"; open(FILE,"$random_file") || &error('open->random_file',$random_file); @FILE = ; close(FILE); $phrases = join('',@FILE); @phrases = split(/$delimiter/,$phrases); srand(time ^ $$); $phrase = rand(@phrases); print "Content-type: text/html\n\n"; print $phrases[$phrase]; exit; sub error { ($error,$file) = @_; print <<"END_ERROR"; Content-type: text/html

ERROR: Random File Unopenable

The random file, as specified in the \$random_file perl variable was unopenable.

END_ERROR if (-e $random_file) { print "The file was found on your system, so make sure that it is\n"; print "readable by the web server. This means you will need to\n"; print "execute the following command:

\n";
        print "    chmod 744 $random_file\n";
        print "

\n"; } else { print "The file was not found on your file system. This means that\n"; print "it has either not been created or the path you have specified\n"; print "in \$trrandom_file is incorrect.\n"; } exit; }