Apache2::Controller::Const - constants for Apache2::Controller

Apache2-Controller documentation Contained in the Apache2-Controller distribution.

Index

Code Index:

NAME

Top

Apache2::Controller::Const - constants for Apache2::Controller

VERSION

Top

Version 1.000.111

SYNOPSIS

Top

 use Apache2::Controller::Const 
    '@RANDCHARS',
    qw( $NOT_GOOD_CHARS $ACCESS_LOG_REASON_LENGTH );

DESCRIPTION

Top

Various common Readonly constants for use by Apache2::Controller modules.

CONSTANTS

Top

@RANDCHARS

An array of the alphabet plus ascii symbols from which to pick random characters.

$NOT_GOOD_CHARS

A strict qr{} pattern of characters that are not good for basic user input. Maybe get rid of this one...

$DEFAULT_CONSUMER_SECRET

Some hardcoded garbage characters used to salt the sha hash of time for the OpenID consumer secret if one isn't specified or generated.

See Apache2::Controller::Auth::OpenID and A2C_Auth_OpenID_Consumer_Secret in Apache2::Controller::Directives.

$DEFAULT_SESSION_SECRET

Some hardcoded garbage characters used to salt the sha hash of time for the session key secret if one isn't specified or generated.

See Apache2::Controller::Session::Cookie and A2C_Session_Secret in Apache2::Controller::Directives.

SEE ALSO

Top

Apache2::Controller

Apache2-Controller documentation Contained in the Apache2-Controller distribution. 
package Apache2::Controller::Const;


use version;
our $VERSION = version->new('1.000.111');


use strict;
use warnings FATAL => 'all';
use Readonly;

use Log::Log4perl qw( :levels );
use Apache2::Const -compile => qw( :log );

use base 'Exporter';

our @EXPORT_OK = qw(
    @RANDCHARS
    $NOT_GOOD_CHARS
    $DEFAULT_CONSUMER_SECRET
    $DEFAULT_SESSION_SECRET
);


Readonly::Array our @RANDCHARS => ( 
    'A'..'Z', 'a'..'z', 0..9, '#', '(', ')', ',',
    qw( ! @ $ % ^ & * - _ = + [ ] { } ; : ' " \ | < . > / ? ~ ` )  
);



Readonly our $NOT_GOOD_CHARS => qr{ [^\w\#\@\.\-:/, ] }mxs;


Readonly our $DEFAULT_CONSUMER_SECRET => q|-qf_AD4#~a{~3)84cCvd+$6R89+,[l|;


Readonly our $DEFAULT_SESSION_SECRET => q|Je52oN~$VSE.8PNs-e$5tRzB<=l.IC|;


1;