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 [-
  35   my $lang = 'DE'; # TODO: use DEFAULT_LANGUAGE from config
  36   # TODO BUG: default-language seems to be allways EN here...
  37   $lang = $udat{-lang} if exists $udat{-lang};
  38
  39   $new_passwd = $db->new_account($fdat{'newlogin'},
  40                                     $fdat{'realname'},
  41                                     $fdat{'email'},
  42                                     $lang); -]
  43   [$ if $new_passwd $]
  44
  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') +]
  50
  51   [$ else $]
  52
  53     [+ $db->loc('LOGIN_REG_ERROR') +]<p>
  54
  55   [$ endif $]
  56
  57   <p><a href="login.epl">[+ $db->loc('LOGIN_REG_RETURN') +]</a>
  58
  59 [$ else $] [# ask for login-data or register #]
  60
  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">
  67     <p>
  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">
  71     <p>
  72     <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
  73   </form>
  74   [+ $db->loc('LOGIN_REG_MSG') +]
  75   <a href="login.epl?mode=register">[+$db->loc('LOGIN_REG_LINK')+]</a>.
  76
  77 [$ endif $]
  78
  79 </body>
  80 </html>