File Coverage

blib/lib/CGI/Application/Plugin/Nes.pm

Criterion	Covered	Total	%
statement	21	31	67.7
branch	0	2	0.0
condition	1	2	50.0
subroutine	5	7	71.4
pod	2	3	66.6
total	29	45	64.4

# -----------------------------------------------------------------------------
#
#  CGI::Application::Plugin::Nes by Skriptke
#  Copyright 2009 - 2010 Enrique F. Castañón Barbero
#
#  Plugin for use Nes in CGI::Application
#  Requires Nes 1.03.3 or higher
#
# -----------------------------------------------------------------------------

package CGI::Application::Plugin::Nes;

our $VERSION = '0.00_1';

use warnings;
use strict;

use Nes;
use base 'CGI::Application';

our $MOD_PERL  = $ENV{'MOD_PERL'} || 0;
our $MOD_PERL1 = $MOD_PERL =~ /mod_perl\/1/ || 0;
our $MOD_PERL2 = $MOD_PERL =~ /mod_perl\/2/ || 0;

&nes_init;

if ( $MOD_PERL2 ) {
  require Apache2::RequestUtil;
  require Apache2::RequestIO;
  require APR::Pool;
  Apache2::RequestUtil->request->pool->cleanup_register(\&nes_init);
}

if ( $MOD_PERL1 ) {
  require Apache;
  Apache->request->register_cleanup(\&nes_init);
}

sub nes_init {

  $ENV{'CGI_APP_RETURN_ONLY'} = 1;
  $ENV{'CGI_APP_NES_BY_CGI'}  = 0;
  $ENV{'CGI_APP_NES_DIR'}     = '';
  $ENV{'CGI_APP_NES_DIR_CGI'} = '';

  $CGI::Application::Plugin::Nes::top_script   = $ENV{'SCRIPT_FILENAME'} || '';
  $CGI::Application::Plugin::Nes::top_dir      = $CGI::Application::Plugin::Nes::top_script;
  $CGI::Application::Plugin::Nes::top_dir      =~ s/\/[^\/]*\.cgi|pl$//;
  $CGI::Application::Plugin::Nes::top_template = $CGI::Application::Plugin::Nes::top_script;
  $CGI::Application::Plugin::Nes::top_template =~ s/\.cgi|pl$/\.nhtml/;

}

sub cgiapp_init {
  my $self = shift;
  my @args = (@_);

  $self->SUPER::cgiapp_init(@args);

  $self->{'nes_instance'} = Nes::Singleton->new(
                              $CGI::Application::Plugin::Nes::top_template,
                              $ENV{'CGI_APP_NES_DIR'},
                              $ENV{'CGI_APP_NES_DIR_CGI'}
                            );

}

sub cgiapp_get_query {
  my $self = shift;

  my $q;

  if ( $ENV{'CGI_APP_NES_BY_CGI'} ) {

    $q = $self->{'nes_instance'}->{'query'}->by_CGI;

  } else {

    $q = $self->{'nes_instance'}->{'query'};

  }

  return $q;

}


=head1 NAME

CGI::Application::Plugin::Nes - Nes templates in CGI::Application

=head1 SYNOPSIS

  use base 'CGI::Application::Plugin::Nes';

  # compatibility with CGI.pm (slightly slower)
  # $ENV{CGI_APP_NES_BY_CGI} = 1;

  # require if exec by .cgi
  # $ENV{CGI_APP_NES_DIR} = '/full/path/to/cgi-bin/nes';

=head1 DESCRIPTION

Plugin for use L templates in L. You can use any Nes
object or plugin, PHP, SH, PYTHON, ... in CGI::Application.

Live sample: L

=head1 INPLEMENTATION

In your .pm file instead of:

  use base 'CGI::Application';

used:

  use base 'CGI::Application::Plugin::Nes';

In addition to your myapp.cgi file, creates a nhtml file with the same name
for the Top Nes template:

myapp.cgi:

  use MyApp;
  my $app = MyApp->new();
  $app->run();
  1; # cgi should return 1 as the pm files.

myapp.nhtml:

  {: NES 1.0 ('myapp.cgi') :}


    ...

If you run your application by the CGI, you need to put the following
variable the full path to Nes cgi-bin directory in your .pm or .cgi file:

  $ENV{CGI_APP_NES_DIR} = '/full/path/to/cgi-bin/nes';

This is necessary for:

  http://example.com/myapp.cgi

It is not necessary for:

  http://example.com/myapp.nhtml

For compatibility with CGI.pm:

  $ENV{CGI_APP_NES_BY_CGI} = 1;

It's a bit slower than letting to Nes handle the query.

=head1 Compare

See L

Code in CGI::Application::Plugin::Nes for a similar result:

  package MinimalAppNes;
  use base 'CGI::Application::Plugin::Nes';
  use strict;

  # require if exec by .cgi
  # $ENV{CGI_APP_NES_DIR} = '/full/path/to/cgi-bin/nes';

  sub setup {
      my $self = shift;
      $self->start_mode('index');
      $self->mode_param('action');
      $self->run_modes(
          'index'  => 'index',
          'logout' => 'logout',
      );
  }

  sub index {
      my $self = shift;
      # only three lines of Perl script is necessary for generate form login
      my %nes_tags;
      $nes_tags{'action'} = 'login.nhtml';
      Nes::Singleton->instance->out(%nes_tags);
  }

  sub logout {
      my $self = shift;
      my %nes_tags;
      $nes_tags{'action'} = 'logout.nhtml';
      Nes::Singleton->instance->out(%nes_tags);
  }


In the instalation package see share/examples/compare directory

=head1 BUGS



=head1 TODO



=head1 AUTHOR

Skriptke: Enrique Castañón

=head1 VERSION

Version 0.00_1

=head1 COPYRIGHT

Copyright (c) Enrique F. Castanon Barbero. All rights reserved.

=head1 LICENSE

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

See http://dev.perl.org/licenses/

=head1 DISCLAIMER

THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS
OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
PARTICULAR PURPOSE.

Use of this software in any way or in any form, source or binary,
is not allowed in any country which prohibits disclaimers of any
implied warranties of merchantability or fitness for a particular
purpose or any disclaimers of a similar nature.

IN NO EVENT SHALL I BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT,
SPECIAL, INCIDENTAL,  OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OF THIS SOFTWARE AND ITS DOCUMENTATION (INCLUDING, BUT NOT
LIMITED TO, LOST PROFITS) EVEN IF I HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE

=head1 SEE ALSO

Sample to use Nes; L,
L, L


=cut



1;