NAME

CGI::okSession - Perl extension for CGI Sessions.

SYNOPSIS

  use CGI qw/:standard/;
  use CGI::okSession;
  my $AppName = 'MyApplication';
  my $SessionID = 'MyAppSessionID';
  my $timeout = 15*60 # 15 minutes session life time
  my $Session = new CGI::okSession(
        dir=>'/tmp',
        id=>cookie($SessionID),
        app=>$AppName
        );
  $Session->{registred} = 1;
  $Session->{client}->{Email} = 'some@email.com';
  $Session->{client}->{Name} = 'John Smith';
  my $cookie = cookie(
        -name=>$SessionID,
        -value=>$Session->get_ID,
        -expires=>$Session->expires_www
        );
  print header(-cookie=>$cookie);

DESCRIPTION

This package was created to have an easy and enough sessions tools for CGI scripts. Sessions data are saved in the file. It does not work with DBs yet.

PACKAGE METHODS

new

 Creates Session object.

 Recevived parameters are:
 dir - directory where session data will be saved (must
     exist).
       Default: '/tmp'.
 timout - session life time in seconds.
       Default: 30*60
 app - application name. Application data has the list
     of sessions and an expiration time for each of
     sessions. (you can have different application
     names).
       Default: 'default'
 id - session ID. Session will be created if it does not
     exists. If this parameter is not defined then it
     will be generated. It's possible to get the session
     ID by method get_ID().

OBJECT METHODS

expires

 Returns expiration time of session in seconds.

expires_www

 Returns expiration time of session in HTTP format.

get_ID

 Returns ID of Session.

EXPORT

None by default.

SEE ALSO

Nothing yet.

AUTHOR

O. A. Kobyakovskiy, <ok@dinos.net>

COPYRIGHT AND LICENSE

Copyright 2003 by O. A. Kobyakovskiy

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.