#!/usr/bin/perl -t

use warnings;
use strict;

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

#######
# collect data from form
#######
my $username = param("username");
my $password = param("password");


#########
# Cookie junk
#########
my $cookiename = "filemanager";
my $tasty = cookie($cookiename);


use DB_File;

my %users;
my $users = "users.db";                 # location of database
 
tie %users, "DB_File", "$users", O_CREAT|O_RDWR, 0644 or die "Cannot open file 'default.db': $!\n";

my ($savedpassword, $name, $email, $website, $start) = split(/::/, $users{$username});



###############################################################################################################
# COOKIE CHECKING
###############################################################################################################
# First check if we saved a cookie last time
if($tasty)
{
print header(-expires=>'now'),
start_html("You are logged in!");




&processing;

print end_html;
exit;
}
########################################################################################################
# Password checking
########################################################################################################
unless ($password eq $savedpassword)
    {
    print header(-expires=>'now'), start_html("You need to Login");

print <<"FORM";
     <table border="2" width="181" bgcolor="#AAAAAA">
     <form action="" method="post">
       <tr>
	   <td bgcolor="#CC0000" valign="bottom"><font color="#FFFFFF" face="Arial, Helvetica, sans-serif">Client Login </font></td>
       </tr>
       <tr>
	   <td valign="top">
	      <table width="181" border="0" align="center">
	      <form action="/cgi-bin/member/login.cgi" method="post">
       <tr>
           <td width="59">username</td>
           <td width="122" valign="top"><input name="username" type="text" size="15"></td>
       </tr>
       <tr>
           <td>password</td>
           <td valign="top"><input name="password" type="password" size="15"></td>
       </tr>
       <tr>
           <td>&nbsp;</td>
           <td valign="top"><div align="right">
           <input type="submit" name="Submit" value="Log In">
            </div></td>
       </tr>
	</form>
        </table>
FORM


    if (param())
    {
      if (exists $users{$username})
      {

         if ($password ne $savedpassword) 
         {
            print "<b>Wrong password!</b>";
            exit;
         }
      } }
      else
      {
          print "username does not exist";
          exit;
      }
    }


########################################################################################################
# Cookie setting
########################################################################################################
my $cookie = cookie(
    -NAME=> $cookiename,
    -VALUE=> $password,
    );
    print header(-COOKIE => $cookie, -expires=>'now');
    print start_html("Going through here");


&processing;



sub processing
{ 
 print "test";
}  ########### END PROCESSING SUB HERE




exit;