Re: Can't connect

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: Ranjit Prabhu: "Pod::PlainText Module"
• Previous message: Pauline Field: "Can't connect"

Pauline Field said...
>
>$url = www.surfnchattanooga.com;
>my $res = $ua->request(HTTP::Request->new(GET => $url));
>
>print STDERR $res->code . " " . $res->message . "\n";
>
>Output:
>500 Can't connect to www.surfnchattanooga.com:80 (Interrupted system
>call)
>
>Can anyone tell me what this means?

Perhaps setting $url to 'www.surfncha...' should be 'http://...'

This worked for me.

use URI;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new();
$ua->agent('Pauline_Field/1.0');
my $uri = URI->new('http://www.surfnchattanooga.com');

my $req = HTTP::Request->new(GET => $uri);
my $res = $ua->request($req);

if ($res->is_success) {
	print $res->content,"\n";
} else {
	print 'Did not get the page.',"\n";
}


-- 
Tim Allwine
IX Development Laboratories
(707)-543-8030 Ext.15

• Next message: Ranjit Prabhu: "Pod::PlainText Module"
• Previous message: Pauline Field: "Can't connect"