Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: Extending HTML::Template, how to do it?

by techcode (Hermit)
on Jun 17, 2005 at 13:47 UTC ( [id://467723]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Extending HTML::Template, how to do it?
in thread Extending HTML::Template, how to do it?

Yeah! As it seems CGI::Application was updated just few days ago - didnt know that.

But still, there are things (allready mentioned) that I simply dont like on CGI::Application, and some things that I miss (that "plugin" or however you want to call it possibility).

Eventialy, what I want to do. Create a plugin, it will be (use base/ISA) child of my mai<bn module so that I could use it's data (configs, db connections ...etc). And then be able to put simple tag to call that plugin in any template on my site (since everything goes over CGI::App)

To be precise, all requests except for graphic/css/similar, are processed by mod_rewrite and call index.cgi (yeah only one). Based on parameters, my main module derived from CGI::App calls specified modules. All works great, but it's not soo good as I hope.

I simply want more integration that more screens in one place. Basicly I want whole site, in central unit that does specific things (auth for instance) and then call on itself the rest of the code from specific modules/sections.

As it turned out I actualy faked OOP by passing $self as first param. And as I said, everything is working, but not as easy to maintan as I would like

For instance: (code included here)
package MList_Manager; use base 'CGI::Application'; use base 'MList_Manager::settings'; use base 'MList_Manager::mailing_lists'; use base 'MList_Manager::subscribers'; use base 'MList_Manager::admin_subscribers'; use base 'MList_Manager::admin_messages'; ######## ######## ######## When I add new section I need to add it here ######## ######## use CGI::Session; use Config::Trivial; use DBI; sub setup { my $self = shift; $self->mode_param('action'); $self->start_mode('main'); $self->run_modes([qw/ not_loged login logout main settings mailing_lists subscribers admin_subscribers admin_messages /]); ######## ######## ######## And here also ... ######## ######## } sub cgiapp_prerun() { my $self = shift; my $q = $self->query(); my $f = $q->Vars(); my $run_mode = $self->get_current_runmode(); unless($run_mode eq 'subscribers'){ my $session = CGI::Session->new('driver::File',$q,{Directory + => 'sessions'}); my $cookie = $q->cookie(CGISESSID => $session->id); $self->header_add(-cookie => [$cookie]); $self->param('session' => $session); # Configs my $c = $self->param('settings'); unless($run_mode eq 'login'){ unless(defined($session->param('admin_user')) && ($sess +ion->param('admin_user') eq $c->{'admin_user'}) && ($session->param('admin_pass') eq $c->{'admin_pass'})){ $self->prerun_mode('not_loged'); } } } } sub not_loged { my $self = shift; my $comments = shift; my $t = $self->load_tmpl(filename => 'login.html',die_on_bad_para +m=>0); $t->param(%{$comments}) if defined $comments; return $t->output(); } sub login { my $self = shift; my $q = $self->query(); my $f = $q->Vars(); # Configs my $c = $self->param('settings'); if($f->{admin_pass} eq $c->{admin_pass} && $f->{admin_user} eq $c +->{admin_user}) { # Login OK my $session = $self->param('session'); $session->param('admin_user' => $c->{admin_user}); $session->param('admin_pass' => $c->{admin_pass}); $session->expire('+5h'); my $cookie = $q->cookie(CGISESSID => $session->id); $self->header_add(-cookie => [$cookie]); my $settings = {}; my $config; if(-e 'config.dat'){ $config = Config::Trivial->new(config_file => 'config.d +at'); $settings = $config->read(); } # Fix !! Strip off everything after ? in the $f->{index} $f->{index} = split(/\?/,$f->{index}) if defined $f->{index} +; $settings->{'index_url'} = $f->{'index'} if ! defined $setti +ngs->{'index_url'}; Config::Trivial->write( config_file => 'config.dat', configuration => $settings ); return $self->main(); } else { # Login ERROR return $self->not_loged({'message' => 'Wrong username or pas +sword'}); } } sub logout { # He is allready loged in ... my $self = shift; my $session = $self->param('session'); $session->param('admin_user' => ''); $session->param('admin_pass' => ''); my $t = $self->load_tmpl(filename => 'logout.html', die_on_bad_pa +rams => 0); return $t->output(); } sub main { my $self = shift; my $t = $self->load_tmpl(filename => 'main.html', die_on_bad_param +s => 0); my $c = $self->param('settings'); if(defined $c->{total_ok} && $c->{total_ok} == 1){ $t->param({'mailing_lists' => $self->DB_execute({'sql' => 'S +ELECT COUNT(*) FROM mailing_lists', 'method' => 'fetchro +w_array'}), 'subscribers' => $self->DB_execute({'sql' => +'SELECT COUNT(*) FROM subscribers WHERE status = ?', 'data' => ['subscrib +ed'], 'method' => 'fetchro +w_array'}) }); } else { $t->param({'mailing_lists'=> "<FONT COLOR=red><A title=\"Ple +ase confirm that your settings are all OK\"> N/A </A></FONT>", 'subscribers' => "<FONT COLOR=red><A title=\"Plea +se confirm that your settings are all OK\"> N/A </A></FONT>"}); } $t->param('index_url' => $c->{index_url}); return $t->output(); } 1;
That is actualy nice compared to what those sections look like :
package MList_Manager::mailing_lists; .... sub mailing_lists { my $self = shift; my $q = $self->query(); my $f = $q->Vars(); # Code that calls each section from the file that it's # part of. In case some section doesnt exists, AUTOLOADER # is called automaticly. # If nothig is to be called, it calls mailing_lists_main if (defined($f->{section}) && (length($f->{section})>=1)){ my $section = $_file . $f->{section}; return &$section($self); ######## ######## faking it here since this is actualy ######## executed as main module wich inherited this ######## methods ... ######## ######## } return $self->mailing_lists_main(); } ....
OK it's probably partialy my fault as I was only starting with OOP when I wrote that but still ...

Any ideas of how do acomplish something like this, but in a more elegant way?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://467723]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2024-04-18 16:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found