Re: [MacPerl] User Agent will not receive response ?

["Paul J. Schinder" <schinder@pobox.com>]

On Mon, Aug 02, 1999 at 11:19:04AM +0100, Julian Madle wrote:
} I'm trying to create a small web client that will send a post request, although the code runs fine on
} both PC and UNIX, it receives no response at all on a MAC. I have tested on two MACS, a PPC(Performa 
} 6320) running MacOS 8.1, and a G3 running MacOS 8.5. Both run Web Sharing and MacPerl v5.004 set to 
} 8MB of memory. I have updated all the modules used, ie. LibWWW v5.44, URI v1.03, and the Mac port of
} MIME v2.11. 
} 
} Does anybody know why this does not work, or have any suggestions of how make it work ?

What happens when you turn debugging on in LWP::

use LWP::Debug '+';

at the top of your script?

} 
} 
} require LWP::UserAgent;
} require HTTP::Request;
} 
} $url = "http://194.242.130.251:80/;
} $ua = new LWP::UserAgent;
} 
} $request = new HTTP::Request 'GET', $url;
} $response = $ua->request($request);
} 
} if ($response ->is_success) {$gotit = $response->content();print "Content-Type: text/html\n\n$gotit"}
} else {print "Content-Type: text/html\n\nThis script has malfunctioned!"};
} 
} 
} I have tried the URL as an IP and as localhost, both with and without the port number, but it made no
} difference. Any help or suggestions will be much appreciated - Julian.

-- 
Paul Schinder
schinder@pobox.com

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org