SPOPS::Key::Random - Creates a random alphanumeric code for the ID field

SPOPS documentation Contained in the SPOPS distribution.

Index

Code Index:

NAME

Top

SPOPS::Key::Random - Creates a random alphanumeric code for the ID field

SYNOPSIS

Top

 # In your SPOPS configuration

 $spops  = {
   'myspops' => {
       'isa'      => [ qw/ SPOPS::Key::Random  SPOPS::DBI / ],
       'id_width' => 12,
       ...
   },
 };

DESCRIPTION

Top

Very, very simple. We just use the generate_random_code() method from SPOPS::Utility to generate an n character code. The width of the code is determined by the configuration key id_width in your object class, or we use a default width (eight characters).

BUGS

Top

Getting a 'random' value

If you are using this under mod_perl, you might have the problem of colliding ID fields. This seems to happen because the httpd children all have the same random seed, since they are all forked off from the same parent.

The solution is to put a 'srand()' in the PerlChildInitHandler, although mod_perl versions greater than 1.25 are reported to take care of this for you.

TO DO

Top

Nothing known.

COPYRIGHT

Top

Copyright (c) 2001-2004 intes.net, inc.. All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHORS

Top

Chris Winters <chris@cwinters.com>

SPOPS documentation Contained in the SPOPS distribution. 
package SPOPS::Key::Random;

# $Id: Random.pm,v 3.4 2004/06/02 00:48:23 lachoy Exp $

use strict;
use Log::Log4perl qw( get_logger );
use SPOPS;
use SPOPS::Utility;

$SPOPS::Key::Random::VERSION  = sprintf("%d.%02d", q$Revision: 3.4 $ =~ /(\d+)\.(\d+)/);

use constant DEFAULT_ID_WIDTH => 8;

my $log = get_logger();

sub pre_fetch_id  {
    my ( $class, $p ) = @_;
    my $width = $p->{id_width};
    unless ( $width ) {
        my $config = eval { $class->CONFIG };
        if ( ref $config ) {
            $width = $class->CONFIG->{id_width};
        }
        $width ||= DEFAULT_ID_WIDTH;
    }
    my $code =  SPOPS::Utility->generate_random_code( $width );
    $log->warn( "Created insert ID [$code]" );
    return ( $code, 1 );
}

sub post_fetch_id { return undef }

1;

__END__