sub get_session {
my $sessionID = shift;
my $params = _get_session_params();
my $session = Data::Session->new( %$params, id => $sessionID ) || die $Data::Session::errstr;
my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
$session->new_session unless $sessionID;
return $session;
}
-