I am most curious about this:
When a user clicks on "login", how would one authenticate this? Does this information pass to another cgi? (and if so, how). Does Ovid contend 'this' script is named login.cgi? I understand that it was beyond the scope of his lesson, but I just want to learn ... and I hear you can help ;-)#!C:/perl/bin/perl.exe -wT use strict; use CGI qw/:standard/; print header, start_html( "-title" => "Login in Weird Sports"), div( { -align => "center", -style => "color:#000000; font-family: Tahoma, helvetica, + arial;"}, h1( "Login to your account" ), p( "Here you can log in to the Weird Sports mailing list archi +ves. " . "In theory, you will be able to change your user settings. +In reality, " . "however, you can't because this is just an example from a +" . a( { -href => "http://www.easystreet.com/~ovid/cgi_course/" + }, "stupid CGI programming course" ), "." ), start_form( { -action => "login.cgi", -enctype => "application/x-www-form-urlencoded", -method => "post" } ), table( { -bgcolor => "#000000", -border => "0", -cellpadding => "2", -cellspacing => "1", -style => "font: 10pt;" }, Tr( { -style => "background-color:#CCCCCC" }, td( strong( "User Name:" ) ), td( input( { -maxlength => "30", -name => "username", -size => "30", -type => "text"} ) ) # end td ), # end Tr Tr( { -style => "background-color:#CCCCCC"}, td( strong( "Password:" ) ), td( input( { -maxlength => "30", -name => "password", -size => "30", -type => "password"} ) ) # end td ), # end Tr Tr( td( { -colspan => "2", -style => "background-color:#CCCCCC" }, input ( { -name => "remember", -type => "checkbox"} ), " Remember my ID on this computer. ", ) # end td ), # end Tr ), # End table p( input( { -type => "submit", -value => "Login"} ), " ", input( { -type => "reset"} ), ), # end p end_form, ), # End div end_html;
thanks, me
In reply to cgi form action by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |