in reply to Re: Re: ICMP through proxy
in thread ICMP through proxy

You should probably read the documentation on HTTP::Response. 
% perldoc HTTP::Response

[download]
Here is an example taken from it: 
$response = $ua->request($request)
if ($response->is_success) {
    print $response->content;
} else {
    print $response->error_as_HTML;
}

[download]
I don't entirely understand your question, but this should get you pointed in the right direction.

-Blake

Replies are listed 'Best First'.
Re: Re: Re: Re: ICMP through proxy
by Anonymous Monk on Oct 03, 2001 at 13:16 UTC
    Please find the code and the output ... 
    #!c:\perl\bin;
use strict;
use LWP::UserAgent;
use CAIDA::NetGeoClient;
my $netgeo = new CAIDA::NetGeoClient();
my $ua = new LWP::UserAgent;

$ua->proxy(http => 'http://139.85.249.14:80');
my $req = new HTTP::Request('GET' , $netgeo->getCountry('202.54.12.30'
+)); 
my $result = $ua->request($req);
if ($result->is_success) {
     print $result->content;
}
else {
     print $result->error_as_HTML;
}

    [download]
    and the output is 
    <HTML>
<HEAD><TITLE>An Error Occurred</TITLE></HEAD>
<BODY>
<H1>An Error Occurred</h1>
400 URL missing
</BODY>
</HTML>

    [download]
    I feel I am missing something here .. Right now, I can't put my finger on it though ..
[reply]
[d/l]
[select]
      It looks like $netgeo->getCountry('202.54.12.30') isn't returning a URL, which is what HTTP::Request expects. Hence the error 400 URL missing.
[reply]
[d/l]
[select]
        Yes .. it returns a Hash from which the data can be retrieved using Keywords, eg :
        $result->{ COUNTRY }
        Pls tell me how I can route this through the Proxy. It works fine through a dialup connection. Is there any alternative ?? Thanks ..
        P.S The same anonymous monk .. just created a login ..
[reply]
[d/l]
Re: Re: Re: Re: ICMP through proxy
by Anonymous Monk on Oct 03, 2001 at 13:23 UTC
    Please find the code and the output ... 
    #!c:\perl\bin;
use strict;
use LWP::UserAgent;
use CAIDA::NetGeoClient;
my $netgeo = new CAIDA::NetGeoClient();
my $ua = new LWP::UserAgent;

$ua->proxy(http => 'http://139.85.249.14:80');
my $req = new HTTP::Request('GET' , $netgeo->getCountry('202.54.12.30'
+)); 
my $result = $ua->request($req);
if ($result->is_success) {
     print $result->content;
}
else {
     print $result->error_as_HTML;
}

    [download]
    and the output is 
    <HTML>
<HEAD><TITLE>An Error Occurred</TITLE></HEAD>
<BODY>
<H1>An Error Occurred</h1>
400 URL missing
</BODY>
</HTML>

    [download]
    I feel I am missing something here .. Right now, I can't put my finger on it though ..
    Hope this helps ..
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom