#!/usr/local/bin/perl
use CGI;
use DbFunctions;
my $q = new CGI;
my $username = $q->param("username");
my $password = $q->param("password");
my $role = '';
my $redirectto;
if ( $username ne ""  && $password ne "" ) {

        my $validated = Authenticate($username,$password);
        if ( $validated ){
                if( $role eq 'view' ){
                        $redirectto = "searchresults.cgi";
                }
                else{
                        $redirectto = "application.cgi";
                }
                my $cookie_value = $username."^".$password."^".$role;
                my $cookie = $q->cookie( -name    => "cookie_user",
                       -value   => "$cookie_value",
                       -domain  => "",
                       -expires => "+1d",
                       -path    => "");
                #print $q->header(-cookie => $cookie);
                print $q->redirect( -location => $redirectto,
                    -cookie => $cookie );
        }
        else{
                print $q->redirect( -location => "index.cgi?msg=1");
                exit;
        }

}
else {

        print $q->redirect( -location => "index.cgi");
}

exit;