5 $udat{-current} = 'login.epl';
9 $db->set_language($udat{-lang}) if exists $udat{-lang};
11 if(exists $udat{-id}){ # we are logged in, so log out (deleting user-data)
22 [$ if $fdat{'mode'} eq 'register' $] [# register form #]
24 [+ $db->loc('LOGIN_REG_FORM_HEAD') +]<p>
25 <form method="get" action="login.epl">
26 [+ $db->loc('LOGIN_USERNAME') +]: <input type="text" name="newlogin" size="20" maxlength="20"><p>
27 [+ $db->loc('LOGIN_REALNAME') +]: <input type="text" name="realname" size="30" maxlength="30"><p>
28 [+ $db->loc('LOGIN_EMAIL') +]: <input type="text" name="email" size="40" maxlength="40"><p>
29 <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
32 [$ elsif defined $fdat{'newlogin'} $] [# validate data from register form #]
34 [- $new_passwd = $db->new_account($fdat{'newlogin'},
40 [+ $db->loc('LOGIN_REG_OK_HEAD',$lang) +]<p>
41 [+ $db->loc('LOGIN_USERNAME') +]: [+ $fdat{'newlogin'} +]<p>
42 [+ $db->loc('LOGIN_REALNAME') +]: [+ $fdat{'realname'} +]<p>
43 [+ $db->loc('LOGIN_EMAIL') +]: [+ $fdat{'email'} +]<p>
44 [+ $db->loc('LOGIN_REG_OK_TAIL') +]
48 [+ $db->loc('LOGIN_REG_ERROR') +]<p>
52 <p><a href="login.epl">[+ $db->loc('LOGIN_REG_RETURN') +]</a>
54 [$ else $] [# ask for login-data or register #]
56 [+ $db->loc('LOGIN_WELCOME') +]<p>
57 <form method="get" action="player.epl">
58 [+ $db->loc('LOGIN_USERNAME') +]: <input type="text" name="login"
59 size="20" maxlength="20">
60 [+ $db->loc('LOGIN_PASSWORD') +]: <input type="password" name="passwd"
61 size="20" maxlength="20">
63 [+ $db->loc('CHANGE_PASSWORD') +]:
64 <input name="passwd2" type="password" size="20" maxlength="20">
65 <input name="passwd3" type="password" size="20" maxlength="20">
67 <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
69 [+ $db->loc('LOGIN_REG_MSG') +]
70 <a href="login.epl?mode=register">[+$db->loc('LOGIN_REG_LINK')+]</a>.