in reply to Re^3: Location redirect
in thread 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>
when i submit the form i take the parameters
my $req = new CGI; my $usr = $req->param('usr'); my $pwd = $req->param('pwd');
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") +; }
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>
This is working, but with get parameters. I want to do it with post. Thats all.

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

      I can not work it out. Can you help me?

        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