CGI::Session::MembersArea

A resource guardian based on CGI::Session
Download

CGI::Session::MembersArea Ranking & Summary

Advertisement

  • Rating:
  • 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