|
1
by Piotr Roszatycki
Import upstream version 0.5 |
1 |
#!/usr/bin/perl -w
|
2 |
||
3 |
use strict; |
|
4 |
use LWP::UserAgent; |
|
5 |
use HTTP::Request; |
|
6 |
use HTTP::Headers; |
|
7 |
||
8 |
my $ip = shift || '10.0.0.1'; |
|
9 |
||
10 |
my $ua = LWP::UserAgent->new; |
|
11 |
my $headers = HTTP::Headers->new(); |
|
12 |
||
13 |
$headers->header('X-Forwarded-For' => "192.168.0.1, " . $ip); |
|
14 |
$headers->header('X-Host' => 'localhost'); |
|
15 |
||
16 |
my $request = HTTP::Request->new('GET', 'http://localhost:8080/', $headers); |
|
17 |
||
18 |
my $response = $ua->request($request); |
|
19 |
||
20 |
if ($response->is_success) { |
|
21 |
print "Ok! Please check your server log for a supposed connection from $ip\n"; |
|
22 |
} else { |
|
23 |
print "Something went wrong\n"; |
|
24 |
}
|
|
25 |
||
26 |
__END__
|