CGI::Session::ID::static - CGI::Session ID Driver for generating static IDs

CGI-Session documentation Contained in the CGI-Session distribution.

Index

Code Index:

NAME

Top

CGI::Session::ID::static - CGI::Session ID Driver for generating static IDs

SYNOPSIS

Top

    use CGI::Session;
    $session = CGI::Session->new("id:static", $ENV{REMOTE_ADDR});

DESCRIPTION

Top

CGI::Session::ID::static is used to generate consistent, static session ID's. In other words, you tell CGI::Session ID you want to use, and it will honor it.

Unlike the other ID drivers, this one requires that you provide an ID when creating the session object; if you pass it an undefined value, it will croak.

COPYRIGHT

Top

Copyright (C) 2002 Adam Jacob <adam@sysadminsith.org>,

This library is free software. You can modify and distribute it under the same terms as Perl itself.

AUTHORS

Top

Adam Jacob <adam@sysadminsith.org>,

LICENSING

Top

For additional support and licensing see CGI::Session

CGI-Session documentation Contained in the CGI-Session distribution. 
package CGI::Session::ID::static;

# $Id$

use strict;
use Carp ("croak");
use CGI::Session::ErrorHandler;

$CGI::Session::ID::static::VERSION = '4.43';
@::CGI::Session::ID::static::ISA   = qw( CGI::Session::ErrorHandler );

sub generate_id {
    my ($self, $args, $claimed_id ) = @_;
    unless ( defined $claimed_id ) {
        croak "'CGI::Session::ID::Static::generate_id()' requires static id";
    }
    return $claimed_id;
}

1;
__END__