 |
#!/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 . |
|
CASHIER - Player Certification Program
 Customer Protection! Speed Up your payouts
Welcome to Player Payment Certification Program, where you will
have the opportunity to receive your withdrawal
requests without
any fax documents.
The requirements for the Certification of your account are as follows:
1: You must be a U.S. Resident.
2: All your deposits must be completed via Neteller or PrePaidATM at
all times.
3: If you use a different method, your Certification wil be void.
In order to certify your account, just fill out the required information below this text and then click on the Submit button so it can be
processed properly.
|
 |
|
|
|
|
about us |
fair gaming |
terms and conditions |
F.A.Q. |
site map |
resources |
affiliate program
©2004-2005, All Rights Reserved
|
|
