% if ($register && !$erro) {

Informação Actualizada com sucesso!<br><br>
<a href="index.html">Voltar ao Menu Principal</a>

% } else {

% if ($erro==1) {
<font color="red">Erro: Esse username já está registado.</font>
% }

<form action="register.html" method="post">
username: <input type="text" name="username" value="<% $username %>"><br>
password: <input type="password" name="password1"><br>
confirm password: <input type="password" name="password2"><br>
email: <input type="text" name="email" value="<% $email %>"><br>

<br><input type="submit" name="register" value="register">

</form>

% }


<%args>
$username => ""
$email => ""
$password1 => ""
$password2 => ""
$register => ""
</%args>

<%once>
use lib qw( /home/tfp/toupeira/lib );
use Toupeira::Users;
use Data::Dumper;
</%once>

<%init>
my $erro = 0;

if ($register) {

   eval {
   my $user = Toupeira::Users->create( username => $username, email => $email, password => $password1 );
   };

   $erro = 1 if ($@ =~ /user.*exists/i);

} 

</%init>