[- $udat{-current} = 'login.epl'; use FROGS::DataBase; $db = DataBase->new(); $db->set_language($udat{-lang}) if exists $udat{-lang}; if(exists $udat{-id}){ # we are logged in, so log out (deleting user-data) delete $udat{-id}; delete $udat{-game}; } Execute("menu.epl"); $escmode = 0; -]
[$ if $fdat{'mode'} eq 'register' $] [# register form #] [+ $db->loc('LOGIN_REG_FORM_HEAD') +]

[+ $db->loc('LOGIN_USERNAME') +]:

[+ $db->loc('LOGIN_REALNAME') +]:

[+ $db->loc('LOGIN_EMAIL') +]:

[$ elsif defined $fdat{'newlogin'} $] [# validate data from register form #] [- $new_passwd = $db->new_account($fdat{'newlogin'}, $fdat{'realname'}, $fdat{'email'}, $udat{-lang}); -] [$ if $new_passwd $] [+ $db->loc('LOGIN_REG_OK_HEAD',$lang) +]

[+ $db->loc('LOGIN_USERNAME') +]: [+ $fdat{'newlogin'} +]

[+ $db->loc('LOGIN_REALNAME') +]: [+ $fdat{'realname'} +]

[+ $db->loc('LOGIN_EMAIL') +]: [+ $fdat{'email'} +]

[+ $db->loc('LOGIN_REG_OK_TAIL') +] [$ else $] [+ $db->loc('LOGIN_REG_ERROR') +]

[$ endif $]

[+ $db->loc('LOGIN_REG_RETURN') +] [$ else $] [# ask for login-data or register #] [+ $db->loc('LOGIN_WELCOME') +]

[+ $db->loc('LOGIN_USERNAME') +]: [+ $db->loc('LOGIN_PASSWORD') +]:

[+ $db->loc('CHANGE_PASSWORD') +]:

[+ $db->loc('LOGIN_REG_MSG') +] [+$db->loc('LOGIN_REG_LINK')+]. [$ endif $]