2001-05-12 #
# Copyright 2001 (c) Teca Web. All rights reserved. #
#######################################################################
# #
# Teca Web: #
# http://www.tecaweb.com/ #
# Teca Scripts: #
# http://www.teca-scripts.com/ #
# Support: #
# http://www.teca-scripts.com/forum/ #
# #
# ################################################################### #
# #
# You can distribute this script and use it freely as #
# long as this header is not edited in the script. #
# #
#######################################################################
############ This is the only thing required
# chmod 644
$rand_file = "randex.txt";
############ Advanced Options ; Ignore the following if you are not interested
# chmod 666
$rand_data = "data.txt";
# chmod 666
$rand_ip = "iplog.txt";
# number of ip to store in iplog.txt
$number_ip = 20;
########################################################
#
# That's it, setup ends.
#
########################################################
if (is_writeable($rand_data) && is_writeable($rand_ip) && $number_ip > 0) {
$advanced = 1;
}
$codes = split("\[\%\%BREAK\%\%\]", join("", file($rand_file)));
srand((double) microtime()*1000000);
$index = rand(0, count($codes)-1);
if (($advanced) && count($codes) > 0) {
##################
# Check IP
$lines = file($rand_ip);
for ($i=0;$i
See MORE... Bisexual Party!
