I think I am going to move this over to the CGI list! :o)
Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.pacificonline.com -----Original Message----- From: Scott Lutz Sent: February 17, 2003 4:58 PM To: [EMAIL PROTECTED] Subject: help with HTTP::Request for POST This is a vary slightly modified version of the example in the docs, and yet it returns no more data than this in my log : [Mon Feb 17 17:04:05 2003] [error] [client 66.51.160.131] Premature end of script headers: /var/cgi-bin/parse.cgi Any help with what might be missing would be great Here is the script: #!/usr/bin/perl -wT use strict; use HTTP::Request::Common; use LWP::UserAgent; use CGI; use CGI::Carp qw(fatalsToBrowser); my $q = new CGI; my $ua = LWP::UserAgent->new; if ($q->param("domain") =~ /\.ca$/) { $ua->request(POST 'https://domains/perl/ca_reg.cgi', [ domain => $q->param("domain"), affiliate_id => $q->param("affiliate_id"), action => $q->param("lookup"), ]); } else { $ua->request(POST 'https://domains/perl/reg_system.cgi', [ domain => $q->param("domain"), affiliate_id => $q->param("affiliate_id"), action => $q->param("lookup"), ]); } Please do not hesitate to contact me directly if you have any more questions! Cheers, Scott Lutz Pacific Online Support Phone: 604.638.6010 Fax: 604.638.6020 Toll Free: 1.877.503.9870 http://www.pacificonline.com * Manage Your Account Online ! Pacific Online Control Panel http://www.pacificonline.com/customer_support -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
