sub get_session {
my $sessionID = shift;
my $params = _get_session_params();
unless ( $sessionID ) {
my $http_cookie = $ENV{HTTP_COOKIE};
if ( $http_cookie && $http_cookie =~ m{CGISESSID=([^,:]*)} ) {
$sessionID = $1;
}
my $session = Data::Session->new( %$params, ($sessionID ? ( id => $sessionID ) : () ) ) || die $Data::Session::errstr;
$session->new_session unless $sessionID;
return $session;
-