3 files changed, 173 insertions, 0 deletions
diff --git a/qooxdoo/source/perl/CGI/Session/ID/incr.pm b/qooxdoo/source/perl/CGI/Session/ID/incr.pm
new file mode 100644
index 0000000..75324b5
--- /dev/null
+++ b/qooxdoo/source/perl/CGI/Session/ID/incr.pm
@@ -0,0 +1,77 @@
+package CGI::Session::ID::incr;
+
+# $Id: incr.pm 351 2006-11-24 14:16:50Z markstos $
+
+use strict;
+use File::Spec;
+use Carp "croak";
+use Fcntl qw( :DEFAULT :flock );
+use CGI::Session::ErrorHandler;
+
+$CGI::Session::ID::incr::VERSION = '4.20';
+@CGI::Session::ID::incr::ISA     = qw( CGI::Session::ErrorHandler );
+
+
+sub generate_id {
+    my ($self, $args) = @_;
+
+    my $IDFile = $args->{IDFile} or croak "Don't know where to store the id";
+    my $IDIncr = $args->{IDIncr} || 1;
+    my $IDInit = $args->{IDInit} || 0;
+
+    sysopen(FH, $IDFile, O_RDWR|O_CREAT, 0666) or return $self->set_error("Couldn't open IDFile=>$IDFile: $!");
+    flock(FH, LOCK_EX) or return $self->set_error("Couldn't lock IDFile=>$IDFile: $!");
+    my $ID = <FH> || $IDInit;
+    seek(FH, 0, 0) or return $self->set_error("Couldn't seek IDFile=>$IDFile: $!");
+    truncate(FH, 0) or return $self->set_error("Couldn't truncate IDFile=>$IDFile: $!");
+    $ID += $IDIncr;
+    print FH $ID;
+    close(FH) or return $self->set_error("Couldn't close IDFile=>$IDFile: $!");
+    return $ID;
+}
+
+
+1;
+
+__END__;
+
+=pod
+
+=head1 NAME
+
+CGI::Session::ID::incr - CGI::Session ID driver
+
+=head1 SYNOPSIS
+
+    use CGI::Session;
+    $session = new CGI::Session("id:Incr", undef, {
+                                Directory   => '/tmp',
+                                IDFile      => '/tmp/cgisession.id',
+                                IDInit      => 1000,
+                                IDIncr      => 2 });
+
+=head1 DESCRIPTION
+
+CGI::Session::ID::incr is to generate auto incrementing Session IDs. Compare it with L<CGI::Session::ID::md5|CGI::Session::ID::md5>, where session ids are truly random 32 character long strings. CGI::Session::ID::incr expects the following arguments passed to CGI::Session->new() as the third argument.
+
+=over 4
+
+=item IDFile
+
+Location where auto incremented IDs are stored. This attribute is required.
+
+=item IDInit
+
+Initial value of the ID if it's the first ID to be generated. For example, if you want the ID numbers to start with 1000 as opposed to 0, that's where you should set your value. Default is C<0>.
+
+=item IDIncr
+
+How many digits each number should increment by. For example, if you want the first generated id to start with 1000, and each subsequent id to increment by 10, set I<IDIncr> to 10 and I<IDInit> to 1000. Default is C<1>.
+
+=back
+
+=head1 LICENSING
+
+For support and licensing information see L<CGI::Session|CGI::Session>
+
+=cut
diff --git a/qooxdoo/source/perl/CGI/Session/ID/md5.pm b/qooxdoo/source/perl/CGI/Session/ID/md5.pm
new file mode 100644
index 0000000..82864e0
--- /dev/null
+++ b/qooxdoo/source/perl/CGI/Session/ID/md5.pm
@@ -0,0 +1,41 @@
+package CGI::Session::ID::md5;
+
+# $Id: md5.pm 351 2006-11-24 14:16:50Z markstos $
+
+use strict;
+use Digest::MD5;
+use CGI::Session::ErrorHandler;
+
+$CGI::Session::ID::md5::VERSION = '4.20';
+@CGI::Session::ID::md5::ISA     = qw( CGI::Session::ErrorHandler );
+
+*generate = \&generate_id;
+sub generate_id {
+    my $md5 = new Digest::MD5();
+    $md5->add($$ , time() , rand(time) );
+    return $md5->hexdigest();
+}
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CGI::Session::ID::md5 - default CGI::Session ID generator
+
+=head1 SYNOPSIS
+
+    use CGI::Session;
+    $s = new CGI::Session("id:md5", undef);
+
+=head1 DESCRIPTION
+
+CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments. 
+
+=head1 LICENSING
+
+For support and licensing see L<CGI::Session|CGI::Session>
+
+=cut
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