Re^4: Location redirect

Ok. First i have page login.cgi where i have form for submition

<form action="login.cgi" method="post">
  username <input type="text" name="usr">
  password:<input type="password" name="pwd">
  <input type="submit" value="LOGIN">
</form>
[download]

when i submit the form i take the parameters

my $req = new CGI;

my $usr = $req->param('usr');
my $pwd = $req->param('pwd');
[download]

finaly i want to redirect the person to other page (also with login form) if it is with usr eq 'test' and password eq 'test'.

if ( ($usr eq 'test') and ($pwd eq 'test'))
{
  print $req->header(-type=>'text/html', -location=>"http://www.exampl
+e.com/index.cgi?param1=10&param2=3&param3=2&user=$usr&password=$pwd")
+;
}
[download]

On the page index.cgi in example.cgi there is

<form action="index.cgi&param1=10&param2=3&param3=2" method="post">
  username <input type="text" name="user">
  password:<input type="password" name="password">
  <input type="submit" value="LOGIN">
</form>
[download]

This is working, but with get parameters. I want to do it with post. Thats all.

Comment on Re^4: Location redirect Select or Download Code

Replies are listed 'Best First'.
Re^5: Location redirect by Anonymous Monk on Nov 02, 2012 at 12:01 UTC
This is working, but with get parameters. I want to do it with post. Thats all. ?? use HTTP::Request::Common as CGI.pm won't help you craft a HTTP POST message	[reply]
Re^6: Location redirect by himik (Acolyte) on Nov 02, 2012 at 12:49 UTC
I can not work it out. Can you help me?	[reply]
Re^7: Location redirect by Anonymous Monk on Nov 02, 2012 at 14:31 UTC
I can not work it out. Can you help me? I have no idea what you're asking for `$ perl -MHTTP::Request::Common -e "print POST()->as_string " POST - Content-Length: 0 Content-Type: application/x-www-form-urlencoded` [download]	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks