UserAgent.pm error

I am getting following error when i check the link ttps://agency.octopi.org/octopidataentry/login/login1.aspx. The error is Can't call method "request" on an undefined value at /space/home/local/iw-home/iw-perl/lib/perl5/site_perl/5.005/LWP/UserAgent.pm line 227.

Code
my $link = qq(https://agency.octopi.org/octopidataentry/login/login1.aspx);
my $ua = new LWP::UserAgent;
$ua->timeout('10');
print "1\n";
my $request = new HTTP::Request 'POST', $link;
print "2\n";
my $response = $ua->request($request);
print "3\n";
$code = $response->code;
print "\nCode is $code\n";
$str = $response->as_string();
print "\nstring is $str\n";
if (!($response->is_success) )
{
print "Yes\n";
}

TIA
MM Guptha
TS5.0.1 on Solaris

Find more posts tagged with

Comments

Migrateduser

Can you check and see if $ua is in fact undefined. You might want to run it through the debugger. If it is, it seems odd to me that it throws the error there rather than a few lines up when you invoke the timeout method. I don't see anything that should cause it to go out of scope or get destroyed between those two lines.

Migrateduser

Also, I can't fully test your code because I don't have Crypt: Smiley Frustrated

SLeay installed on either my TeamSite server or my desktop running Activestate 5.8, but running it without still gets me past the line that is causing the error for you:


C:\test>perl ua.pl
1
2
3

Code is 501

string is 501 (Not Implemented) Protocol scheme 'https' is not supported (Crypt:SLeay not
installed)
Content-Type: text/plain
Client-Date: Wed, 10 Nov 2004 23:32:52 GMT
Client-Warning: Internal response

LWP will support https URLs if the Crypt:SLeay module is installed.
More information at <http://www.linpro.no/lwp/libwww-perl/README.SSL>.

Yes

megamala

Its working for me also now. It looks that server was down when I got the error. Now server is up, no error. Could you tell me how to handle this kind of errors. It might come this error in future.

TIA
MM Guptha
TS5.0.1 on Solaris

Migrateduser

Wrap the whole thing in an eval. If $@ is not null, you have an error and need to do appropriate error handling. I'm not sure what would be appropriate in your case, since I don't know the context of the code.

See this for a pretty good explanation:

http://www.cs.cf.ac.uk/Dave/PERL/node114.html

herald10

Here is a code snippet I am using. Wrote it based on perldoc.


                     use LWP;
 my $browser = LWP::UserAgent->new;
 my $url = "";
 my $request = HTTP::Request->new('GET', $url);

 my $html= $browser->request($request);
 if($html->status_line =~ /Not Found/){
                     }

Somewhere I remember reading that there is a difference between new class and class->new .
Probably some one can correct me if I am wrong.

Hope that helps
-H

Migrateduser

Nope. No difference, just different semantics. See


perldoc perlobj

for more info on invocation semantics. Also, I think Randal Schwartz has published a book recently called something like Objects, Modules, and References in Perl. I haven't read it, but Randal's a good guy, a good writer, and his knowledge of perl is darn near comprehensive.