Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^4: Location redirect

by himik (Acolyte)
on Nov 02, 2012 at 11:52 UTC ( #1001953=note: print w/ replies, xml ) Need Help??


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.


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

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001953]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (19)
As of 2015-07-30 13:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (271 votes), past polls