This part works in the browser #<form method="POST" #action="http://wwwqa1.bbtest.net:8005/payflowlink.cfm?";> #<input type="hidden" name="LOGIN" value="jmedlen"> #<input type="hidden" name="PARTNER" value="verisign"> #<!-- The transaction AMOUNT must be at least 1.00 (one dollar) --> #<input type="hidden" name="AMOUNT" value="2.45"> #<input type="hidden" name="TYPE" value="S"> #<input type="submit" value="Click here to Purchase"> #</form>
Perl script has an error. Any Ideas? ===================================================================== HTTP/1.1 302 (Found) Object Moved Location: error.cfm?CFID=4872187&CFTOKEN=61589738 Server: Microsoft-IIS/4.0 Content-Length: 155 Content-Type: text/html Client-Date: Thu, 18 Jul 2002 17:05:14 GMT Client-Peer: 192.168.100.19:8005 Title: Document Moved <head><title>Document Moved</title></head> <body><h1>Object Moved</h1>This document may be found <a HREF="error.cfm?CFID=48 72187&CFTOKEN=61589738">here</a> ====================================================================== use LWP::UserAgent; use HTTP::Request::Common qw(POST); use HTTP::Cookies; my $debug = 0; my $url = 'http://wwwqa1.bbtest.net:8005/payflowlink.cfm?'; my $ua = new LWP::UserAgent or die "new LWP::UserAgent: $!"; $ua->agent('Mozilla/5.0'); $ua->cookie_jar(HTTP::Cookies->new()); my $req = POST $url, [ 'LOGIN' => 'jmedlen', 'PARTNER' => 'jmedlen', 'AMOUNT' => '2.45', 'TYPE' => 'S', 'submit' => 'Click here to Purchase', ] or die "new HTTP::Request POST: $!"; print Data::Dumper->Dump([\$ua], [qw($ua)]) if $debug; print Data::Dumper->Dump([\$req], [qw($req)]) if $debug; my $res = $ua->request($req); my $content = $res->as_string; print $content; print Data::Dumper->Dump([\$ua], [qw($ua)]) if $debug; print Data::Dumper->Dump([\$res], [qw($res)]) if $debug; sleep (1); Thanks, -Jiri- _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
