Current IP Check

Current IP Address: 192.0.2.47 ##

##

ScriptAlias /cgi-bin/ /var/www/perl-cgi/

        SetHandler perl-script
        PerlHandler ModPerl::Registry
        AllowOverride None
        Options +ExecCGI -MultiViews


##

##

#!/usr/bin/perl -T

use Data::Validate::IP qw(is_ip is_public_ip is_loopback_ip);

@IPs='';
if (defined $ENV{HTTP_X_FORWARDED_FOR}) {
  @IPs=split /,/, $ENV{HTTP_X_FORWARDED_FOR};
};
splice @IPs, 0, 0, $ENV{REMOTE_ADDR};
foreach $check (@IPs) {
  $check =~ s/^\s*(.*?)\s*$/\1/g;
  if (is_ip($check)) {
    if (defined $ip) {
      if (not is_public_ip($check)) { $check = $ip; };
      if (is_loopback_ip($check)) { $check = $ip; };
      if ($check eq "192.0.2.90") { $check = $ip; };
    };
    $ip = $check;
  };
};
print "Content-type: text/html\nCache-Control: max-age=0,no-cache,no-store,post-check=0,pre-check=0\n\nCurrent IP CheckCurrent IP Address: $ip";