1 files changed, 55 insertions, 0 deletions
diff --git a/qooxdoo/source/perl/CGI/Session/ID/static.pm b/qooxdoo/source/perl/CGI/Session/ID/static.pm
new file mode 100644
index 0000000..b77dde4
--- /dev/null
+++ b/qooxdoo/source/perl/CGI/Session/ID/static.pm
@@ -0,0 +1,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