#!/usr/bin/perl

###############################################################
# This script is © 1999 - 2000 webmaster@wtv-tricks.cx        #
################################################### vers: 1.0 #
                                                  #############

# Set logports to "1" if you want to log the user's port as well.

$logports = "1";

print "Content-type: text/html\n\n";
print " ";

open (LOG, ">>ip.log");
print LOG "\n\n$ENV{'REMOTE_ADDR'}";
close (LOG);

if ($logports eq "1") {
open (PORTLOG, ">>ip.log");
print PORTLOG ":$ENV{'REMOTE_PORT'}";
close (PORTLOG);
}