in reply to ICMP through proxy

Try removing the ' marks from your last line: 
my $req = new HTTP::Request('GET' , $netgeo->getCountry(202.54.12.30) 
+);

[download]
As it is, you are attempting to use the literal url '$netgeo->getCountry(202.54.12.30)' which is certainly not what you want.

-Blake

Replies are listed 'Best First'.
Re: Re: ICMP through proxy
by Anonymous Monk on Oct 03, 2001 at 12:58 UTC
    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 ..
[reply]
[d/l]
      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]
        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