Perl Web 开发： CGI::Application 及相关模块

package MyWeb;

use strict;
use warnings;

use base 'CGI::Application';

use CGI::Application::Plugin::Config::Simple;
use CGI::Application::Plugin::AutoRunmode;
use CGI::Application::Plugin::AnyTemplate;
use CGI::Application::Plugin::Session;
use CGI::Application::Plugin::ValidateRm;

use Class::DBI::Loader;
use Class::DBI::Pageset;

sub cgiapp_init {
    my $self = shift;

    $self->header_add( -charset => 'GBK');
    
    $self->config_file('./config/site.ini');
    $self->{'__cdbi__loader__'} = Class::DBI::Loader->new(
        dsn            => $self->config_param('db.dsn'),
        user        => $self->config_param('db.user'),
        passsword    => $self->config_param('db.password'),
        namespace    => 'MyWeb',
        additional_classes    => qw/Class::DBI::Pageset/,
    );
    
    $self->template->config(
        default_type                => 'TemplateToolkit',
        include_paths                => './template',
        auto_add_template_extension => 0,
    );
    
    $self->session_config();
}

sub teardown {
    my $self = shift;
}
    
1;

#!/usr/bin/perl

use strict;
use warnings;

use lib './lib';
use MyWeb::Dispatch;

MyWeb::Dispatch->dispatch();

package MyWeb::Dispatch;

use strict;
use warnings;

use base 'CGI::Application::Dispatch';

sub dispatch_args {
    return {
        args_to_new => { TMPL_PATH => './template/', },
        prefix => 'MyWeb',
        table => [
            '' => { app => 'View', },
            ':app' => {},
            ':app/:rm' => {},
            ':app/:rm/:id' => {},
        ],
    };
}

1

package MyWeb::View;

use strict;
use warnings;

use base 'MyWeb';

#
# Runmodes -----------------------
#
sub default : StartRunmode {
    my $self = shift;

    $self->template->fill('default.tt');        
}
    
sub node : Runmode {
    my $self = shift;
    
}

sub error : ErrorRunmode {}
    
1;

package MyWeb::Search;

use strict;
use warnings;

use base 'MyWeb';
use URI::Escape;

#
# Runmodes -----------------------
#

sub default : StartRunmode {
    my $self = shift;
    
    my %tables = (
        '中药' => 'zhongyao',
        '方剂' => 'fj_info_gb2312',
        '西药' => 'xiyao',
        '辞典' => 'fangji',
    );
    my $q        = $self->query->param('q'); # if $q is null, it should be redirected to an error page...

    my $meta    = $self->query->param('meta');     
    my $query = '%' . $q . '%';
    
    my $dict    = $self->{'__cdbi__loader__'}->find_class($tables{"$meta"});

    my $pager = $dict->pager({
        entries_per_page => 20,
        current_page => $self->query->param('page') || 1,
        pages_per_set => 5,
    });
 
    my $results = $pager->search_like(mingcheng => $query);
    
    $self->template->fill('search.tt',
        { results => $results,
         pager => $pager,
         q => uri_escape($q),
         meta => uri_escape($meta),
         lib => uri_escape($meta),}
    );        

}

=head    
sub node : Runmode {
    my $self = shift;
    
}
=cut

sub error : ErrorRunmode {}

1;