 |
#!/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;
}
|
|
|
|
Wednesday, November 19, 2008 |
casino |
|
|
|
|
| |
Just In... 3 New Slots! - , , and . |
|
AZTEC'S TREASURE SLOT MACHINE
|
 |
|
|
|
|
about us |
fair gaming |
terms and conditions |
F.A.Q. |
site map |
resources |
affiliate program
©2004-2005, All Rights Reserved
|
|
