#!/usr/bin/perl
###########################################################
#
# signin.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')||'';

  if(User->get_user($username)){
    $warning=qq{<a href="threads.cgi">welcome $username, click to enter</a>};
  }
  else{
    $warning=qq{<font color="red" size="5">Bad username or password</font>};
  }
  
  print "content-type: text/html\n\n";
  print ForumHTML->page_top("create user");
  print qq{<form method="POST">
           $warning<br>
           <input type="text" name="username">
           <input type="password" name="password">
           <input type="submit" name="login">
           </form>
          };