use IO::Pipe;
use IO::Handle;
+use Commods;
+
my $aadepth=2;
#---------- pixmaps ----------
$pirate= '';
}
-my $caller= $ENV{'REMOTE_ADDR'};
-$caller= 'LOCAL' unless defined $caller;
-
-my $fwdf= $ENV{'HTTP_X_FORWARDED_FOR'};
-if (defined $fwdf) {
- $fwdf =~ s/\s//g;
- $fwdf =~ s/[^0-9.,]/?/g;
- $caller= "$fwdf,$pirate";
-}
+my $caller= cgi_get_caller();
my $kind;
my @xa;