comment on

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;
[download]

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();
}
....
[download]

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?

In reply to Re^4: Extending HTML::Template, how to do it? by techcode
in thread Extending HTML::Template, how to do it? by techcode

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.