#!/usr/bin/perl
###########################################################
#
# newuser.cgi
# Version 0.1  12/6//2004
# Ben Martin
#
###########################################################
use strict;
use warnings;
use CGI;
#use CGI::Carp qw(fatalstobrowser);
use ForumHTML;
use User;

  my $warning=''
  my $username=param('username')||'';
  my $password=param('password')||'';
  my $confirm=param('confirm')||'';
  my $email=param('email')||'';

  if param('submit'){
    my $check = User->check_user($username, $password, $confirm);
    if ($check == 1){
      $warning = qq{<font color="red", size="5">That username already exists</font>};
    }
    elsif ($check == 2){
      $warning = qq{<font color="red", size="5">Passwords don't match, please retype</font>}
    }
    else {
      my $newbie = User->new();
      $newbie->set_userinfo($username, $password, $email);
      $newbie->save_userinfo();
      $warning = qq(<a href="signin.cgi">User created click to continue</a>)
    }
  }

  print "content-type: text/html\n\n";
  print ForumHTML->page_top("create user");
  print  qq{<form method="POST">
            $warning<br>;
            <table>
             Username: <input type="text" name="username" value=""><br>
             Password: <input type="password" name="password" value=""><br>
             Confirm Password: <input type="password" name="confirm" value=""><br>
             E-mail Address: <input type="text" name="email" value=""><br>
             <input type="submit" name="submit">
            <table>
            </form>
           };
  print ForumHTML->page_bottom();