Just another Perl shrine | |
PerlMonks |
Passing Parameters to CGI script?by anbutechie (Sexton) |
on Aug 24, 2009 at 04:16 UTC ( [id://790725]=perlquestion: print w/replies, xml ) | Need Help?? |
anbutechie has asked for the wisdom of the Perl Monks concerning the following question:
Hi, I m learning CGI script; I have created two scripts one for login page and another one for home page.On successful login (I used redirectional header to navigate to home page), i have to display the username in home page; How can i pass the username to home page which is entered in login page. My sample script is: Login.cgi #!/usr/local/bin/perl use CGI qw/:standard/; if(param('Login')) { #Validate user name and password; if valid user then print redirect('http:\\localhost\cgi-bin\home.cgi'); else {print header;} } else{print header;} print start_html('Login screen'), start_form, textfield(-name=>'username',-size=>50, -maxlength=>80); textfield(-name=>'Password',-size=>50, -maxlength=>80); submit('Login'),reset, end_form; end_html; home.cgi #!/usr/local/bin/perl use CGI qw/:standard/; print header, start_html('home'), start_form, Welcome, username which is enetered in login screen end_form; end_html; Regards, Anbarasu
Back to
Seekers of Perl Wisdom
|
|