Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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
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 taking refuge in the Monastery: (8)
As of 2014-07-24 23:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (167 votes), past polls