Apache-JAF

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

my $modules = [
  [ 'Apache::JAF', 
    [
      ['5.6.0'           => 'Perl 5.6.0 required'],
      ['Apache'          => 'mod_perl is required'],
      ['Apache::Request' => 'libapreq is required'],
      ['Template 2.08'   => 'Framework is based on Template-Toolkit'],
      ['DirHandle'       => 'This module is used for additional handlers loading'],
      ['File::Find'      => 'For compile-time templates loading'],
      ['Data::Dumper'    => 'Used for logging purposes'],
    ],
    [
      ['Time::HiRes' => 'For measuring rquest processing time' ],
      ['DBI 1.20' => 'Used in conjunction with Apache::Session::MySQL'],
      ['Apache::Filter' =>  'JAF is filter-aware'],
      ['Apache::Session::MySQL' => 'Used for transparent session handling'],
    ],
  ],
  [ 'JAF', 
    [

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
WriteMakefile(
    'NAME'		=> 'Apache::JAF',
    'VERSION_FROM'	=> 'lib/Apache/JAF.pm',
    'PREREQ_PM'		=> {
      'Apache' => 0,
      'Apache::Request' => 0,
      'Template' => 2.08,
      'DirHandle' => 0,
      'Data::Dumper' => 0,
    },
    PMLIBDIRS => [ 'lib', 'lib/JAF', 'lib/Apache' ],
);

__END__

lib/Apache/JAF.pm  view on Meta::CPAN

use Apache ();
use Apache::Util ();
use Apache::JAF::Util ();
use JAF::Util ();

use Apache::Request ();
use Apache::Constants qw( :common REDIRECT );
use Apache::File ();

use Data::Dumper qw( Dumper );
use File::Find ();

our $WIN32 = $^O =~ /win32/i;
our $RX = $WIN32 ? qr/\:(?!(?:\/|\\))/ : qr/\:/;
our $VERSION = do { my @r = (q$Revision: 0.21 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

# Constructor
################################################################################
sub new {
  my ($ref, $r) = @_;

lib/Apache/JAF.pm  view on Meta::CPAN

sub default_messages {
  my ($self, $modeller) = @_;
  
  %{$self->{cookies}} = Apache::Cookie->fetch() unless $self->{cookies};
  if ($self->{status} == REDIRECT) {
    my $messages = $modeller->messages();
    if ($messages) {
      Apache::Cookie->new($self->{r},
                          -name => 'messages', 
                          -path => '/',
                          -value => Data::Dumper::Dumper $messages)->bake();
    }
  } elsif ($self->{status} == OK && $self->{type} =~ /^text/ && !$self->{r}->header_only) {
    my $VAR1;
    if (exists $self->{cookies}{messages} && eval $self->{cookies}{messages}->value) {
      $self->{res}{messages} = $VAR1;
      Apache::Cookie->new($self->{r},
                          -name => $self->{res}{messages} ? 'messages' : 'error', 
                          -path => '/', 
                          -value => '')->bake();
    } else {

lib/JAF/DBI.pm  view on Meta::CPAN

package JAF::DBI;

use strict;
use DBI ();
use Data::Dumper 'Dumper';

sub new {
  my ($class, $self) = @_;
  return undef unless $self->{parent};
  bless $self, $class;
  $self->_init();
  return $self;
}

sub _init {