CAM-App

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;
Module::Build->new(
                   module_name => 'CAM::App',
                   license => 'perl',
                   requires => {
                      'CGI'                      => '2.00',
                      'CAM::Template'            => 0,
                      'File::Spec'               => 0,
                   },
                   recommends => {
                      'CGI::Cookie'              => '1.00',
                      'CGI::Compress::Gzip'      => 0,
                      'DBI'                      => '1.10',
                      'CAM::Session'             => 0,
                      'CAM::SQLManager'          => 0,
                      'CAM::SQLObject'           => 0,
                      'CAM::EmailTemplate'       => 0,
                      'CAM::EmailTemplate::SMTP' => 0,
                      'CAM::Template::Cache'     => 0,
                   },
                   build_requires => {

META.yml  view on Meta::CPAN

  CGI: 2.00
  File::Spec: 0
recommends:
  CAM::EmailTemplate: 0
  CAM::EmailTemplate::SMTP: 0
  CAM::SQLManager: 0
  CAM::SQLObject: 0
  CAM::Session: 0
  CAM::Template::Cache: 0
  CGI::Compress::Gzip: 0
  CGI::Cookie: 1.00
  DBI: 1.10
build_requires:
  Test::More: 0
provides:
  CAM::App:
    file: lib/CAM/App.pm
    version: 1.07
generated_by: Module::Build version 0.2609

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
WriteMakefile(
              'NAME'		=> 'CAM::App',
              'VERSION_FROM'	=> 'lib/CAM/App.pm',
              'PREREQ_PM'		=> {
                 'CGI'                      => '2.00',
                 'CAM::Template'            => '0.76',
                 'Test::More'               => '0.01',

                 ## Optional
                 #'CGI::Cookie'              => '1.00',
                 #'CGI::Compress::Gzip'      => '0.11',
                 #'DBI'                      => '1.10',
                 #'CAM::Session'             => '0.01',
                 #'CAM::SQLManager'          => '0.01',
                 #'CAM::SQLObject'           => '0.01',
                 #'CAM::EmailTemplate'       => '0.15',
                 #'CAM::EmailTemplate::SMTP' => '0.20',
                 #'CAM::Template::Cache'     => '0.11',
              },
              'PL_FILES'        => {},

lib/CAM/App.pm  view on Meta::CPAN

      }
      else
      {
         return "";
      }
   }
   elsif (!$cgi->{'.header_printed'})
   {
      if ($self->{session})
      {
         return $cgi->header(-cookie => $self->{session}->getCookie(), @_);
      }
      else
      {
         return $cgi->header(@_);
      }
   }
   else
   {
      return "";
   }

lib/CAM/App.pm  view on Meta::CPAN

   if (!exists $self->{session})
   {
      my $class = $self->{config}->{sessionclass};
      if (!$self->loadModule($class))
      {
         $self->error("Internal error: Failed to load the $class library");
      }

      if ($self->{config}->{cookiename})
      {
         $class->setCookieName($self->{config}->{cookiename});
      }
      if ($self->{config}->{sessiontable})
      {
         $class->setTableName($self->{config}->{sessiontable});
      }
      if ($self->{config}->{sessiontime})
      {
         $class->setExpiration($self->{config}->{sessiontime});
      }
      if (!$class->getDBH())