#!/usr/bin/perl #--------------------------- # I N T E L L I S C R I P T . N E T - i A w a r d # Designed by Jason Silver of Intelliscript.net, CrookedBush.com Inc. # All Rights Reserved. International Copyright Secured. # Violators Will Be Prosecuted to the FULL EXTENT of the law. # Do Not remove this copyright notice. #--------------------------- $html_start = ""; # is always displayed at the beginning of the quote $html_end = ""; # is always displayed at the end of the quote $random_file = "/home/mojoscri/public_html/testimonials.txt"; # the file in which all of your random text phrases are stored. $delimiter = "\n\%\%\n"; # separates each group of html or quotes # ...you're all set... #___________________________ #--------------------------- print "Content-type: text/html\n\n"; open(FILE,"$random_file") || &error('open->random_file',$random_file); @FILE = ; close(FILE); $phrases = join('',@FILE); @phrases = split(/$delimiter/,$phrases); # If you are on a machine which doesn't put the # pid into $$ (ie. Macintosh, Win NT, etc...), change # this line to: srand(time ^ 22/7); srand(time ^ $$); $phrase = rand(@phrases); $phrase2 = rand(@phrases) unless ($phrase eq $phrase2); $phrase3 = rand(@phrases) unless ($phrase eq $phrase3 || $phrase2 eq $phrase3); print "\n"; print "\n"; print "\n"; print "\n"; print "
READ MORE TESTIMONIALS HERE!

\n"; print $html_start.$phrases[$phrase].$html_end; print "
"; print $html_start.$phrases[$phrase2].$html_end; print "
"; print $html_start.$phrases[$phrase3].$html_end; print "
\n"; print "Click here to submit a quote!
\n"; print "
\n"; print " \;\n\n"; print "\n"; print "\n"; print "\n"; print " \;\n\n"; exit; sub error { ($error,$file) = @_; print qq~ Content-type: text/html ERROR: Random File Unopenable

ERROR: Random File Unopenable

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

~; 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; }