 |
#!/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 . |
|
PAN POKER (PANGUINGUE POKER)
| Pan
Poker Description and Objective |
|
The object of Pan poker is to be the first to meld
all 10 cards in your hand, in addition to the final card drawn.
Pan poker uses 8 decks with one set of spades removed and all
the 8's, 9's and 10's removed, for a total of 310 cards. In
descending order, the cards rank K, Q, J, 7, 6, 5, 4, 3, 2,
A. The J and 7 are sequential.
Play goes counterclockwise.
|
| Pan
Poker Preview |
|
| Here are some more great Multi Player Poker Rooms for you to check out.
|
|
|
| |
|
 |
|
|
|
|
about us |
fair gaming |
terms and conditions |
F.A.Q. |
site map |
resources |
affiliate program
©2004-2005, All Rights Reserved
|
|
