Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Location redirect

by choroba (Bishop)
on Nov 02, 2012 at 09:44 UTC ( #1001935=note: print w/replies, xml ) Need Help??

in reply to Location redirect

What technology are you using? CGI, Dancer, Catalyst, Plack, PHP...
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Location redirect
by himik (Acolyte) on Nov 02, 2012 at 09:46 UTC
    I use CGI. Sorry for not mentioning it.
      Have you read GENERATING_A_REDIRECTION_HEADER in CGI? What about that failed to work for you? Do you have some code in particular that has failed to function? If so, post it so we can be more specific. See How do I post a question effectively?.

      #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

        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$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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001935]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2018-06-25 02:53 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.