Debian DokuWiki

This is an old revision of the document!

---

| index.cgi

#!/usr/bin/perl -wT                                                                                                      
use CGI qw(:standard);                                                                                                   
print "Content-type: text/html\n\n";                                                                                     
#print "<pre>\n";                                                                                                        
if ($ENV{HTTP_X_FORWARDED_FOR}){                                                                                         
        print $ENV{HTTP_X_FORWARDED_FOR};                                                                                
}                                                                                                                        
else                                                                                                                     
{                                                                                                                        
        print $ENV{REMOTE_ADDR};                                                                                         
}                                                                                                                        
print "\n";

Try it here !!

curl ip.k2patel.in