cgi_script_to_print_visitor_ip
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision | ||
|
cgi_script_to_print_visitor_ip [2011/08/11 19:52] k2patel |
cgi_script_to_print_visitor_ip [2011/10/10 17:45] k2patel |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| <code cgi | index.cgi> | <code cgi | index.cgi> | ||
| - | #!/usr/bin/perl -wT | + | #!/usr/bin/perl -wT |
| - | # Ketan Patel | + | use CGI qw(:standard); |
| - | + | print "Content-type: text/html\n\n"; | |
| - | use strict; | + | #print "<pre>\n"; |
| - | use CGI; | + | if ($ENV{HTTP_X_FORWARDED_FOR}){ |
| - | my $q=CGI->new(); | + | print $ENV{HTTP_X_FORWARDED_FOR}; |
| - | print $q->header().$q->remote_addr()."\n"; | + | } |
| + | else | ||
| + | { | ||
| + | print $ENV{REMOTE_ADDR}; | ||
| + | } | ||
| + | print "\n"; | ||
| </code> | </code> | ||
| Line 12: | Line 17: | ||
| <code bash> | <code bash> | ||
| - | curl --insecure https://108.35.33.156:12000/ip/index.cgi | + | curl ip.k2patel.in |
| </code> | </code> | ||
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
