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="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">
  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>