package tools;

use strict;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use Digest::MD5;
use vars qw($DBH $CGI);

sub new {
  my ($this) = shift;
  my $class = ref($this) || $this;
  my $self = {};
  bless ($self, $class);
  return $self;
}

sub display_add_user {
  my $cgi = shift;
  my $dbh = shift;
  print "<h1>Add user</h1>";
  print $cgi->CGI::start_multipart_form(-method=>'post',
               -action=>'./adduser.pl',
               -name=>'add_user');
  print "<table>";
  print "<tr><td>User</td>";
  print "<td>".$cgi->CGI::textfield(-name=>'username',-size=>'100')."</td></tr>";
  print "<tr><td>Password</td>";
  print "<td>".$cgi->CGI::password_field(-name=>'password',
                -size=>'50')."</td></tr>";
  print "</table>";
  print $cgi->CGI::submit(-name=>'submit',
           -value=>'AddUser');
  print $cgi->CGI::end_form;
}
1;