StrayCatsCasino.com - Classic Online Casino Games

#!/usr/bin/perl $RamdomTextFile = "random-progressives.txt"; # En: Path of Text file. # Fr: Chemin du fichier de textes. $Delimiter = "\n--NEXT--\n*"; # En: Tags for Next Texte. # Fr: Separateur de texte. # Options: $UseLog = 0; # Use Log File ? 1 = YES; 0 = NO $LogFile = "/Absolute/path/to/Random-Text-Log.txt"; # Nothing Below this line needs to be altered! # ###################################################################### srand(time); open(LINKS,"$RamdomTextFile") || &Error("Cannot Open Links File : $RamdomTextFile, Error $!\n"); @TextFile = ; close(LINKS); $NbLines = @Text = split(/$Delimiter/, join('',@TextFile)); $Phrase = $Text[int rand $NbLines]; if ($UseLog) { @date = localtime(time); $date[4]++; $date[5] += 1900; $Time = "$date[4]/$date[3]/$date[5]"; open(LOG,">>$LogFile") || &Error("Cannot Write Log File : $LogFile, Error $!\n"); print LOG "[$Time] - $ENV{'REMOTE_HOST'} -> $Url\n"; close(LOG); } print "Content-type: text/html\n\n"; print $Phrase."\n"; sub Error { my($ErrorText) = @_; print "Content-type: text/html\n\n"; print "Error: ".$ErrorText; exit; }