NAME

CGI::AppBuilder - CGI Application Builder

SYNOPSIS

use CGI::AppBuilder;

my $cg = CGI::AppBuilder->new('ifn', 'my_init.cfg', 'opt', 'vhS:a:');
my $ar = $cg->get_inputs; 

DESCRIPTION

There are already many application builders out there. Why you need another one? Well, if you are already familiar with CGI::Builder or CGI::Application, this one will provide some useful methods to you to read your configuration file and pre-process your templates. Please read on.

new (ifn => 'file.cfg', opt => 'hvS:')

Input variables:

$ifn  - input/initial file name. 
$opt  - options for Getopt::Std

Variables used or routines called:

None

How to use:

my $ca = new CGI::AppBuilder;      # or
my $ca = CGI::AppBuilder->new;     # or
my $ca = CGI::AppBuilder->new(ifn=>'file.cfg',opt=>'hvS:'); # or
my $ca = CGI::AppBuilder->new('ifn', 'file.cfg','opt','hvS:'); 

Return: new empty or initialized CGI::AppBuilder object.

This method constructs a Perl object and capture any parameters if specified. It creates and defaults the following variables:

$self->{ifn} = ""
$self->{opt} = 'hvS:'; 

start_app ($prg,$arg,$nhh)

Input variables:

$prg  - program name 
$arg  - array ref for arguments - %ARGV
$nhh  - no html header pre-printed 
        1 - no HTML header is set in any circumstance
        0 - HTML header will be set when it is possible

Variables used or routines called:

build_html_header - build HTML header array
Debug::EchoMessage
  echo_msg  - echo messages
  start_log - start and write message log
CGI::Getopt
  get_inputs - read input file and/or CGI form inputs
  

How to use:

my ($q, $ar, $ar_log) = $self->start_app($0,\@ARGV);

Return: ($q,$ar,$ar_log) where

$q - a CGI object
$ar - hash ref containing parameters from input file and/or 
      CGI form inputs and the following elements:
  ifn - initial file name
  opt - command input options
  cfg - configuratoin array
  html_header - HTML header parameters (hash ref)
  msg - contain message hash
$ar_log - hash ref containing log information

This method performs the following tasks:

1) initial a CGI object
2) read initial file if specified or search for a default file
   (the same as $prg with .ini extension) and save the file name
   to $ar->{ifn}. 
3) define message level
4) start HTML header and body using I<page_title> and I<page_style>
   if they are defined.
5) parse CGI form inputs and combine them with parameters defined
   in initial file
6) read configuration file ($prg.cfg) if it exists and save the 
   array to $ar->{cfg}
7) prepare log record if write log is enabled

It checks the parameters read from initial file for page_title, page_style, page_author, page_meta, top_nav, bottom_nav, and js_src.

end_app ($q, $ar, $ar_log, $nhh)

Input variables:

$q    - CGI object 
$ar   - array ref for parameters 
$ar_log - hash ref for log record
$nhh  - no html header pre-printed 
        1 - no HTML is printed in any circumstance
        0 - HTML header will be printed when it is possible

Variables used or routines called:

Debug::EchoMessage
  echo_msg - echo messages
  end_log - start and write message log
  set_param - get a parameter from hash array

How to use:

my ($q, $ar, $ar_log) = $self->start_app($0,\@ARGV);
$self->end_app($q, $ar, $ar_log);

Return: none

This method performs the following tasks:

1) ends HTML document 
2) writes log records to log files 
3) close database connection if it finds DB handler in {dbh}

HISTORY

  • Version 0.10

    This version is to extract out the app methods from CGI::Getopt class. It was too much for CGI::Getopt to include the start_app, end_app, build_html_header, and disp_form methods.

    0.11 Rewrote start_app method so that content-type can be changed.
    0.12 Moved disp_form to CGI::AppBuilder::Form,
         moved build_html_header to CGI::AppBuilder::Header, and 
         imported all the methods in sub-classes into this class.
  • Version 0.20

SEE ALSO (some of docs that I check often)

Oracle::Loader, Oracle::Trigger, CGI::Getopt, File::Xcopy, CGI::AppBuilder, CGI::AppBuilder::Message, CGI::AppBuilder::Log, CGI::AppBuilder::Config, etc.

AUTHOR

Copyright (c) 2005 Hanming Tu. All rights reserved.

This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

1 POD Error

The following errors were encountered while parsing the POD:

Around line 300:

You forgot a '=back' before '=head1'