#!/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;

##</code><code>##

#!/usr/local/bin/perl
use CGI;

my $q = new CGI;
use LWP;
use HTTP::Request::Common qw(POST GET);
use LWP::UserAgent;


print "Content-type: text/html\n\n";

$ip_line="http://XXXXXX/setcookie.cgi";

my $ua = new LWP::UserAgent;
#$ua->agent("AgentName/0.1 " . $ua->agent);

#my $req = new HTTP::Request "POST","$ip_line";
#$req->content("username=user&password=pwd");
$ua->timeout(45);                       # 45-sec timeout

my $req = POST $ip_line, [
    username => "user",
    password => "pwd"
];

my $res = $ua->request($req);
print "status=[".$res->status_line."]n";
#$content = $res->content();
#print $content;