 |
#!/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 . |
|
|
|
|
Come and check out the newest online casino and poker rooms at GreenChip Casino.com
Casinopages.biz would like to invite you to unwind and relax in our lobby, where you can choose from over 65 first-class-games.
|
|
 |
|
|
|
|
about us |
fair gaming |
terms and conditions |
F.A.Q. |
site map |
resources |
affiliate program
©2004-2005, All Rights Reserved
|
|
