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

Thanks .. it works .. kind of .. This is the value stored in the variable ... 
HTTP::Response=HASH(0x1f59de8)

[download]
The NetGeo returns a hash from which values can be accessed using keywords ... but now, I have the text included. I tried substring, but I am unable to access the values using keywords from the hash as I get an error message. Pls help ..

Replies are listed 'Best First'.
Re: Re: Re: ICMP through proxy
by blakem (Monsignor) on Oct 03, 2001 at 13:09 UTC
    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

[reply]
[d/l]
[select]
      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]
      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