Hi
what you are asking is very easy to do!
ip.pl.......
PHP Code:
#!/usr/local/bin/perl -w
print "Content-type: text/html\n\n";
$ip = "$ENV{'REMOTE_ADDR'}";
print "Your IP: $ip";
# log it maybe.....
$found = 0;
open (DATA, "log.txt");
while(<DATA>) {
$line = $_;
chop $line;
if ($line =~ m/^($ip)$/) {
$found = 1;
last;
}
}
if (!$found) {
open (DATA, ">>log.txt");
flock(DATA, 2);
print DATA "$ip\n";
close (DATA);
}
exit(0);
# end script
F!