Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
P is for Practical
 
PerlMonks  

Re^4: Location redirect

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

Help for this page

Select Code to Download


  1. or download this
    <form action="login.cgi" method="post">
      username <input type="text" name="usr">
      password:<input type="password" name="pwd">
      <input type="submit" value="LOGIN">
    </form>
    
  2. or download this
    my $req = new CGI;
    
    my $usr = $req->param('usr');
    my $pwd = $req->param('pwd');
    
  3. or download this
    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")
    +;
    }
    
  4. or download this
    <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>
    

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 surveying the Monastery: (5)
As of 2014-04-19 02:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (475 votes), past polls