 |
#!/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;
}
|
|
|
|
Friday, September 05, 2008 |
casino |
|
|
|
|
| |
Just In... 3 New Slots! - , , and . |
|
CASHIER - Payment Options
Stray Cats Casino offers you the following secure payment solutions because they are guaranteed to be fast, easy and
effective. Stray Cats only uses payment processors that are secure and reputable. Our wide variety of deposit and
withdrawal options cater to your individual needs. Feel free to contact us for more transaction information of for
any assistance during the deposit or Withdrawal process.
|
 |
|
|
|
|
about us |
fair gaming |
terms and conditions |
F.A.Q. |
site map |
resources |
affiliate program
©2004-2005, All Rights Reserved
|
|
