% if ($message) {
 <table><tr><td class="message">
   <% $message %>
 </td></tr></table>
 <p />
% }


<form>
  <table>
    <tr>
      <td>name :</td>
      <td><input name="name" type="text" value="<%$name%>" /></td>
    </tr>
    <tr>
      <td>password :</td>
      <td><input name="password_1" type="password"/></td>
    </tr>
    <tr>
      <td>please type your password again:</td>
      <td><input name="password_2" type="password"/></td>
    </tr>
  </table> 
  <input name="action" type="submit" value="Create account" />
</form>
<p />


%#
%# ========================================================================
%#
<%args>
 $action => ''
 $name   => ''
 $password_1  => ''
 $password_2 => ''
</%args>
%#
<%init>
require CGI::Cookie;

 my $message = 'Please enter your desired username and password:';
 my $logtime = '+5m'; 
 my %user_Cookie = fetch CGI::Cookie;
 my $user_Password;





if ($action =~ /Create/){
    if (($password_1) && ($password_1 == $password_2)){
      if (!Person->search(name => $name)){
           Person->create( {name => $name, password => $password_1} );
      }
      else {
           $message = "That name is taken, please try again.";
      }
    }
    else {
      $message = "Oops, please make sure you enter your password the same both times.";
    }
}



</%init>