/usr/share/perl5/CGI/Session/ID/incr.pm is in libcgi-session-perl 4.48-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | package CGI::Session::ID::incr;
# $Id$
use strict;
use File::Spec;
use Carp "croak";
use Fcntl qw( :DEFAULT :flock );
use CGI::Session::ErrorHandler;
$CGI::Session::ID::incr::VERSION = '4.43';
@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 = CGI::Session->new("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
|