-affected in BUILD_ARK gesetzt
[aymargeddon/current.git] / html / login.epl
1 <html>
2 <head></head>
3 <body>
4 [-
5   $udat{-current} = 'login.epl';
6
7   use FROGS::DataBase;
8   $db = DataBase->new();
9   $db->set_language($udat{-lang}) if exists $udat{-lang};
10
11   if(exists $udat{-id}){  # we are logged in, so log out (deleting user-data)
12     delete $udat{-id};
13     delete $udat{-game};
14   }
15
16   Execute("menu.epl");
17
18   $escmode = 0;
19 -]
20 <hr>
21
22 [$ if $fdat{'mode'} eq 'register' $] [# register form #]
23
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') +]">
30   </form>
31
32 [$ elsif defined $fdat{'newlogin'} $] [# validate data from register form #]
33
34   [- $new_passwd = $db->new_account($fdat{'newlogin'},
35                                     $fdat{'realname'},
36                                     $fdat{'email'},
37                                     $udat{-lang}); -]
38   [$ if $new_passwd $]
39
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') +]
45
46   [$ else $]
47
48     [+ $db->loc('LOGIN_REG_ERROR') +]<p>
49                 
50   [$ endif $]
51
52   <p><a href="login.epl">[+ $db->loc('LOGIN_REG_RETURN') +]</a>
53
54 [$ else $] [# ask for login-data or register #]
55
56   [+ $db->loc('LOGIN_WELCOME') +]<p>
57   <form method="post" 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">
62     <p>
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">
66     <p>
67     <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
68   </form>
69   [+ $db->loc('LOGIN_REG_MSG') +]
70   <a href="login.epl?mode=register">[+$db->loc('LOGIN_REG_LINK')+]</a>.
71
72 [$ endif $]
73
74 </body>
75 </html>