RE: Peculiar problem using LWP::UserAgent

[Rajesh Dorairajan]

David,

I tried this out. Still no luck. Then I tried a small vairation of your
code:

    my ( $Host, $Port ) = @_;
    my $url = $Host;
    $url .= ":$vesPort" if ( $vesPort && $vesPort != 80 );

This works!!!! Apparently LWP does not like it when the default port is
specified in the GET requests in some circumstances. But it works fine if I
hard-code the $url = "http://servername:80";. I am not sure if this is a bug
in the latest version of LWP. I've version 5.72

Thanks anyway. Also, thanks drieux to your suggestions too.

Rajesh

-----Original Message-----
From: david [mailto:[EMAIL PROTECTED]
Sent: Monday, November 10, 2003 3:19 PM
To: [EMAIL PROTECTED]
Subject: Re: Peculiar problem using LWP::UserAgent


Rajesh Dorairajan wrote:

> I ran into peculiar problem using LWP::UserAgent. I receive a 501 - Not
> yet implemented error when I connect to a web-server using the User-Agent.
> This happens when I pass in the Hostname and Portnumber as parameters in
> my function. However, if I hard-code the Server-name and port number it
> seems to work fine. I've included the piece of causing the problem below.
> Does anyone have suggestion why this is happening?
> 
> 
>     my ( $Host, $Port ) = @_;
>     my $url = "$Host:$Port";             #Does not work
>     #my $url = "http://servername:80";    #This works
>     
>     require LWP::UserAgent;
>     my $ua = LWP::UserAgent->new(env_proxy => 0,
>                               keep_alive => 0,
>                               timeout => 30,
>                              );
> 
>     $response = $ua->get( $url );
>

are you sure you construct the right path? for example:

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;

sub print_page{

        my($host,$port) = @_;

        my $url = $host;

        $url .= ":$port" if($port);

        my $ua = LWP::UserAgent->new(env_proxy  => 0, 
                                     keep_alive => 0, 
                                     timeout    => 30);

        my $r = $ua->request(HTTP::Request->new(GET => $url));

        print $r->content if($r->is_success);
        print $r->code,': ',$r->status_line unless($r->is_success);
        print "\n";
}

print_page('http://google.com');    #-- works fine
print_page('http://google.com',80); #-- works fine
print_page('google.com');           #-- 400: URL must be absolute
print_page('google.com',80);        #-- 501: Protocol not supported

__END__

you are most likely seeing the last one. make sure you specify the protocol.

david
-- 
$_=q,015001450154015401570040016701570162015401440041,,*,=*|=*_,split+local$
";
map{~$_&1&&{$,<<=1,[EMAIL PROTECTED]||3])=>~}}0..s~.~~g-1;*_=*
#,

goto=>print+eval

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]