blob: b77dde4e7b1cddcf5b7ce0f7690db6d5878ff622 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
package CGI::Session::ID::static;
# $Id: static.pm 351 2006-11-24 14:16:50Z markstos $
use strict;
use Carp ("croak");
use CGI::Session::ErrorHandler;
$CGI::Session::ID::static::VERSION = '4.20';
@::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__
=head1 NAME
CGI::Session::ID::static - CGI::Session ID Driver for generating static IDs
=head1 SYNOPSIS
use CGI::Session;
$session = new CGI::Session("id:static", $ENV{REMOTE_ADDR});
=head1 DESCRIPTION
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.
=head1 COPYRIGHT
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.
=head1 AUTHORS
Adam Jacob <adam@sysadminsith.org>,
=head1 LICENSING
For additional support and licensing see L<CGI::Session|CGI::Session>
=cut
|