Re^2: Send user to a different server


Problems? Is your data what you think it is?
	PerlMonks

Re^2: Send user to a different server

by Michalis (Pilgrim)

on Jul 27, 2004 at 15:01 UTC ( [id://377757]=note: print w/replies, xml )

Need Help??

in reply to Re: Send user to a different server
in thread Send user to a different server

Gladly, but what part. Here is the thing I tried:


if (param('paymethod') == 1) {
my $ua = LWP::UserAgent->new(agent => 'InterZone client');
$ua->redirect(1);
my $resp = $ua->request(
  POST 'https://secure.server.gr/cgi-bin/mepayment.sc',
  Content_Type => 'application/x-www-form-urlencoded',
  Content       => [ 'paymethod' => param('paymethod'),
    'tr_id' => param('tr_id'),
    'price'  => param('price'),
    'totalseats' => param('totalseats'),
    'agree' => param('agree'),
    'double' => param('double')
]);

if (!$resp->is_success) {
  errorandout($Message[27], $lang."/out.html");
  mail_inform('adm','site','Error',"Error".self_url(-full=>1,-query=>0
+)."\n");
  exit;
} else {

That's what I'm looking for

}

}
[download]

-- Michalis