% if ($update) {

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

% } else {

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

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

</form>

% }


<%args>
$email => ""
$password1 => ""
$password2 => ""
$update => ""
</%args>

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

<%init>
my $user = Toupeira::Users->new( username => 'tfp' );

if ($update) {
   $user->password($password1) if $password1;
   $user->email($email) if !($email eq $user->email);

   if ($password1 || !($email eq $user->email)) {
      $user->save_userconf;
   }
} 

</%init>