package Request;

use strict;
use base 'Exporter';
use vars qw(@EXPORT);
@EXPORT = qw    (
                    handle_session
                    ...
                );

use Apache::Session::File;
use CGI;

sub handle_session
{
    my $cgi = CGI -> new;
    my %session;

    my $session_cookie  = $cgi -> cookie ('SID');

    tie %session, 'Apache::Session::File', $session_cookie,
    {
        Directory       => "../data/sessions",
        LockDirectory   => "../data/sessions"
    };

    unless ($session_cookie)
    {
        my $session_cookie = $cgi -> cookie (
                                                -name       =>'SID',
                                                -value      => $session{_session_id}
                                            );

        print $cgi -> header (-cookie => $session_cookie);
		print 'Mmmhh.. Cookie'; # debug purpose        
    }

    else 
	{
		print $cgi -> header; 
		print 'No cookie for you!'; #debug purpose
	}

    return \%session;
}

1;