[- use Embperl::Form::Validate; use File::Basename ; $epf1 = new Embperl::Form::Validate([ -key => 'user_email', required => 1, -key => 'user_password', required => 1, length_min => 5], 'login'); $epf2 = new Embperl::Form::Validate([ -key => 'user_email', required => 1], 'newuser'); $r = shift ; $fdat{user_email} ||= $fdat{email} ; -] <script> [+ do { local $escmode = 0 ; $epf1 -> get_script_code } +] [+ do { local $escmode = 0 ; $epf2 -> get_script_code } +] </script> [$ if not $udat{user_id}$] [$ if ($fdat{-newuser} || $fdat{-newpassword}) && !$r -> {error}$] <p>[= loginnew =]</P> [$else$] <p>[= login1 =]</P> [$endif$] <form action="[+ $param[0] +]" method="POST" name="login" onSubmit="return epform_validate_login()"> <table> <tr> <td class="cText">[= user_email =]</td> <td class="cInput"><input type="text" name="user_email"></td> </tr> <tr> <td class="cText">[= user_password =]</td> <td class="cInput"><input type="password" name="user_password"></td> </tr> </table> <p> <input type="submit" name="-login" value="[= login =]"> [$ hidden $] </p> </form> <p>[= cookie_note =]</p> [$ if (!$fdat{-newuser} && !$dat{-newpassword}) ||$r -> {error} $] <hr> <P ALIGN="left">[= login2 =]</P> <P ALIGN="left">[= login3 =]</P> <form action="[+ $param[0] +][#+ $r -> app -> posturl('login.epl') +#]" method="POST" name="newuser" onSubmit="return epform_validate_newuser()"> <table> <tr> <td class="cText">[= user_email =]</td> <td class="cInput"><input type="text" name="user_email"></td> </tr> <tr> [- $fdat{user_name} ||= "$fdat{firstname} $fdat{lastname}" -] <td class="cText">[= user_name =]</td> <td class="cInput"><input type="text" name="user_name"></td> </tr> </table> <p> <input type="submit" name="-newuser" value="[= newuser =]"> <input type="submit" name="-newpassword" value="[= newpassword =]"> [$ hidden $] </p> </form> [$ endif $] [$ else $] <form action="[+ $param[0] +]" method="POST"> <p> [= already_logged_in_as =] [+ $udat{user_email} +] [$ if $udat{user_admin} $] [Admin] [$ endif $] <p> [= logoff =] <p> <input type="submit" name="-logout" value="[= logout =]"> [$ hidden $] </p> </form> [$ endif $]