# SimpleApp CBB
# This file uses the "Perlish" coding style
# please read http://perl.4pro.net/perlish_coding_style.html
### DESCRIPTION ###
# This is a CBB written to give a basic example
# of a very simple application using just CGI::Builder.
# This same application is available in other examples using also
# other integrations such as Apache::CGI::Builder and
# CGI::Builder::Magic
# Please, check the other examples too, which will show how to use other
# useful integration, in order to reduce coding and programming effort
# Feel free to add more features to this CBB in order to better understand
# the documentation
############ CBB START ###########
# defines the CBB package
; package SimpleApp
########## BUILD INCLUSION #########
# with this statement this CBB will inherit the CBF capabilities
# and methods. In this CBB, we don't need to include other extensions
# or super classes
; use CGI::Builder
########## OVERRUNNING HANDLERS ##########
# We need no overrunning handler for this very basic application
############## PER-PAGE HANDLERS ################
# These are the handlers called on a per page basis,
# i.e. each per Page Handler is called ONLY for a certain requested page.
# Unless you use some extension that sets the page_content on its own,
# you usually need one PH_* handler per page in order to set the page_content
# This CBB implements just the index and 2 page handlers
# called when no page has been requested (i.e. no 'p' param defined)
; sub PH_index
{ my $s = shift
; my $Time = $s->Time()
; $s->page_content = << "EOS"
Index Page
This page is the index (default) page of the application.
Go to page 'pass_page'
The following link will not show you the env_page (because of the SH_env_page), instead it will switch you to the pass_page regardless the URL
Go to page 'env_page'
Generated by $app_name at $Time
EOS
}
# this handler is called just for page 'pass_page'
# it contain a simple form which requires a password
; sub PH_pass_page
{ my $s = shift
; my $Time = $s->Time()
; $err = $s->page_error
; $s->page_content = << "EOS"
Password Page
This page is a sort of simplified login page. By filling the 'password' field with the correct password you can go to the 'env_page', while you will have this page displayed again if the password is wrong.
$$err{err_password}
Generated by $app_name at $Time
EOS
}
# This is a Switch Handler and it is called just for page 'env_page'.
# It checks if the user correctly fills the 'password' field
# by using 'CBF' as password, and switches back to pass_page on error
# after setting a page_error string (used in the pass_page)
; sub SH_env_page
{ my $s = shift
; unless ( $s->cgi->param('password')||'' eq 'CBF' )
{ $s->page_error(err_password=>'Wrong password! Please, retry...')
; $s->switch_to('pass_page')
}
}
# this handler is called just for page 'submitted_page'
# it is called only if the password is 'CBF' (see SH_env_page)
# it displays the ENVIRONMENT
; sub PH_env_page
{ my $s = shift
; my $Time = $s->Time()
; $s->page_content = << 'EOSTART'
ENVIRONMENT
| ENVIRONMENT |
EOSTART
; while (my ($name, $value) = each %ENV)
{ $s->page_content .= << "EOTABLE"
| $name |
$value |
EOTABLE
}
; $s->page_content .= << "END" ;
Generated by $app_name at $Time
END
}
# PH_AUTOLOAD is called when no page handler have been defined
# for a certain requested page, and no page_content has been defined so far.
# You should define it only if you need to display some special page in the
# above situation, anyway, if you don't define it, the CBF will handle
# the request automatically by sending the correct header to the client
; sub PH_AUTOLOAD
{ my $s = shift
; $s->page_content = << "EOS"
Unknown page!
Unknown page!
Generated by $app_name at $Time
EOS
}
############## PRIVATE SECTION ################
# This section is not part of the CBF, and is defined
# just for this specific CBB
; our $app_name = 'SimpleApp 1.0'
; sub Time
{ scalar localtime
}
; 1