sub setCookie($) {
   my($session) = @_;
   my $q = new CGI;
   $sid = $session->id();
   $cookie = $q->cookie(-name => "CGISESSID",
                        -value => $sid,
                        -expires => '+1h',
			-path => '/tmp/Sessions');
   print $q->header(-cookie=>$cookie);
}

sub retrieveSession() {
    $query = new CGI;
    $sid = $query->cookie("CGISESSID") || undef;
    $session = new CGI::Session(undef, $sid, {Directory=>'/tmp/Sessions'});
    $sid = $session->id();
    $session = getUser($sid);    
    print $session->param("log_name");
    return $session;
}

sub getUser($) {
   my ($sid) = @_;
   $select = "SELECT username, password FROM Employees WHERE session_id = '$sid'";
   $get_it = $db->prepare($select);
   $get_it->errstr, "\n";
   $rv = $get_it->execute() or die "Couldn't execute query '$select' \n";
   $get_it->bind_columns(undef, \$username, \$password); 
   $get_it->fetchrow_arrayref();   
   $session->param(-name=>"log_name", -value=>$username); $session->param(-name=>"log_password", -value=>$password);   
   return $session;
}