CGI::Session::MembersArea 2.06

Synopsis

CGI::Session::MembersArea is a Perl module that does not have to be used in a module derived from CGI::Application, but this synopsis assumes that that is in fact what you are trying to do.

 use CGI::Application;
 use CGI::Session::MembersArea;
 use DBIx::Admin::DatabaseModel;

 our @ISA = qw/CGI::Application/;

 sub setup
 {
 my($self) = @_;
 ...
 $self -> param(database => '');
 $self -> param(guardian => '');
 $self -> param(profile => '');
 $self -> mode_param(&setup_mode);

 } # End of setup.

 sub setup_mode
 {
 ...
 $self -> param(guardian => CGI::Session::MembersArea -> new
 (
 username => 'root',
 password => 'pass',
 query => $self -> query(),
 ) );

 $self -> param(profile => $self -> param('guardian') -> init() );

 if ($self -> param('profile') )
 {
 $self -> param
 (
 database => DBIx::Admin::DatabaseModel -> new
 (
 dsn => $self -> param('my_dsn'),
 username => $$profile{'username'},
 password => $$profile{'password'},
 )
 );

 $self -> param('database') -> param(profile => $self -> param('profile') );
 }

 } # End of sub setup_mode.


Product's homepage

Requirements:

· Perl