CGI::Session::MembersAreaA resource guardian based on CGI::Session | |
Download |
CGI::Session::MembersArea Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Ron Savage
- Publisher web site:
- http://search.cpan.org/~rsavage/
CGI::Session::MembersArea Tags
CGI::Session::MembersArea Description
A resource guardian based on CGI::Session SynopsisCGI::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. Requirements: · Perl
CGI::Session::MembersArea Related Software