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 #]
35 my $lang = 'DE'; # TODO: use DEFAULT_LANGUAGE from config
36 # TODO BUG: default-language looks to be allways EN here...
37 $lang = $udat{-lang} if exists $udat{-lang};
39 $new_passwd = $db->new_account($fdat{'newlogin'},
45 [+ $db->loc('LOGIN_REG_OK_HEAD',$lang) +]<p>
46 [+ $db->loc('LOGIN_USERNAME') +]: [+ $fdat{'newlogin'} +]<p>
47 [+ $db->loc('LOGIN_REALNAME') +]: [+ $fdat{'realname'} +]<p>
48 [+ $db->loc('LOGIN_EMAIL') +]: [+ $fdat{'email'} +]<p>
49 [+ $db->loc('LOGIN_REG_OK_TAIL') +]
53 [+ $db->loc('LOGIN_REG_ERROR') +]<p>
57 <p><a href="login.epl">[+ $db->loc('LOGIN_REG_RETURN') +]</a>
59 [$ else $] [# ask for login-data or register #]
61 [+ $db->loc('LOGIN_WELCOME') +]<p>
62 <form method="post" action="player.epl">
63 [+ $db->loc('LOGIN_USERNAME') +]: <input type="text" name="login"
64 size="20" maxlength="20">
65 [+ $db->loc('LOGIN_PASSWORD') +]: <input type="password" name="passwd"
66 size="20" maxlength="20">
68 [+ $db->loc('CHANGE_PASSWORD') +]:
69 <input name="passwd2" type="password" size="20" maxlength="20">
70 <input name="passwd3" type="password" size="20" maxlength="20">
72 <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
74 [+ $db->loc('LOGIN_REG_MSG') +]
75 <a href="login.epl?mode=register">[+$db->loc('LOGIN_REG_LINK')+]</a>.