Hello Bill,

Thanks for your response, but something still is wrong.

When I try your code (I checked and as far as I can see I adapted mine to
your example) I get this error message:

Can't call method "content" on an undefined value at
./neopost_fetch_machinetype_new.pl line 98, <FILEHANDLE>  line 1.

FILEHANLDE is the file I get the value from...

The code in the row that goes wrong is the following:
	return $res-> content;

I printed $res and got this result:
HTTP::Response=HASH(0x858bb9c)

I think I can't call content directly from the $res. What must change?

Kind regards, 

Marijn


-----Original Message-----
From: Bill Luebkert [mailto:dbecoll@[...].com] 
Sent: maandag 29 januari 2007 22:55
To: Marijn Pessers
Cc: Perl-Win32-Web@[...].com
Subject: Re: HTTP request arguments/content

Marijn Pessers wrote:
>  Hello,
>  
>   
>  
>  I have been trying to open a html page in perl. It works but I can't 
>  send the correct arguments (post values) with it to work.

Try this one:

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub get_page_http ($$$$$;$);

my $ua = LWP::UserAgent-> new;
my $remote = 'localhost';	# fix me
my $path = '/somecgi.pl';	# fix me
my $leverancier_nr = 'stuff';
my $FMnummer = 'more stuff';
my $datastring = 'what goes here?';

my ($hdr, $ct) = get_page_http ($ua, $remote, $path, $leverancier_nr,
   $FMnummer, $datastring);
print "\nhdrs:\n$hdr\nct:\n$ct\n";
exit;

sub get_page_http ($$$$$;$) {
	my $ua = shift;
	my $remote = shift || 'localhost';
	my $path = shift || '/';
	my $leverancier_nr = shift;
	my $FMnummer = shift;
	my $datastring = shift || '';	# raw datastring for ?????

# print "get_page: http:$remote$path ('$datastring')\n";

my $url = "http://$remote$path";
my $req = POST $url, Content =>  [
     'submit_waarde' =>  '', 'page' => 'zks1', 'submit_waarde' => '',
     'leverancier_nr' =>  $leverancier_nr, 'FMnummer' => $FMnummer ];

for (1 .. 2) {
	my $res = $ua-> request($req);
	if ($res-> is_error) {
		sleep 1;	# wait a sec and try again
		next;
	}
	if (wantarray) {
		return ($res-> headers_as_string, $res->content);
	} else {
		return $res-> content;
	}
}

# failed return null string(s)

if (wantarray) {
	return ('', '');
} else {
	return '';
}

}

__END__

__________ NOD32 2017 (20070129) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com


_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs