$session = new CGI::Session("driver:File", $session_id, {Directory=>"$session_dir"});

if ($session_id eq '' or $session_id eq '$SESSIONID') {
    $session_id = $session->id();    
    
}


##</code><code>##


#sql code to retrieve user info and compare to the password

if ($user_name && $user_password) {
#put into session the username and different variables
            $session = new CGI::Session("driver:File", $session_id, {Directory=>"$session_dir"});
            $session->expire('+2h');   	    
	    local our  $id = $session->id();
    
	    $session->param( "username", "$user_name");
	    $session->param( "level", "$level");
	    $session->param("ip", "$current_ip");
	    clearBasket($user_name);


##</code><code>##


sub loadPersonalData {
    	open (FILE, "<$dir/personal_data.html") or die "cannot open file $dir/personal_data.html";    	
	local our $selectionIndex = $articleClass->loadArticleSelection();;
	local our $selection = $articleClass->viewArticleSelectionByIndex();;
	local our $menu = $lp->loadMenu();
	local our $content;
	$session = new CGI::Session("driver:File", $session_id, {Directory=>"$session_dir"});
        local our  $username = $session->param('username');
	print "Content-Type: text/html\n\n";
	print "session id $session_id<br/>";
	print "username $username<br/>";
	print "session dir $session_dir<br/>";