[原创] [原创]Sledge学习 -- Sledge流程

PerlRequire /path/to/Sledge/etc/startup.pl

<Location /sledge_www>

SetHandler perl-script

PerlHandler Sledge::Dispatcher::Properties

PerlSetVar SledgeMapFile /path/to/Sledge/etc/map.properties

AddAcceptForwarder All

</Location>

SledgeExtension

SledgeStaticExtension

SledgeDispatchStatic

SledgeDirectoryIndex

SledgeMapFile

$loadclass	#需要加载的业务类模块名称

$page		#对应页面名称

$is_static	    #判断是否请求的是静态页面的标志位

$slash		#判断uri格式是否是以/结尾

my @indexes = $r->dir_config('SledgeDirectoryIndex') ? split(/\s+/, $r->dir_config('SledgeDirectoryIndex')) : 'index';

for my $index (@indexes) {

    if ($loadclass->can("dispatch_$index")) {

        $page = $index;

        last;

    }

}

$page ||= $indexes[0];

if (!$loadclass->can("dispatch_$page")) {

    if ($no_static) {				#如果设定了SledgeDispatchStatic为关闭则同样不能使用dispatch_$page处理,返回"拒绝"

        debug($r, "access to slash, but no_static is on");

        return DECLINED;

    }

    $class->_generate_method($r, $loadclass, $page);		#如果没有设定SledgeDispatchStatic为关闭,则生成$loadclass和$page的对应关系

}



$loadclass->new->dispatch($page);					#开始使用$loadclass的dispatch_$page方法进行处理.从此出跳转到业务类进行处理.

package Sample::Pages::Index;



use strict;

use base qw(Sample::Pages);



use Data::Dumper;

use Sample::Data::EventsMember;



__PACKAGE__->tmpl_dirname('.');



sub dispatch_index {

    my $self = shift;

    my $entry = Sample::Data::EventsMember->retrieve('1');



    $self->load_fillin_form;

    $self->fillin_form->fdat($entry);

    $self->tmpl->param(entry => $entry);

    $self->tmpl->param(title => 'Powered By Sledge');

}



sub post_dispatch_index {

    my $self = shift;

    my $events_id = $self->r->param('events_id');

    my $member_id = $self->r->param('member_id');

    my $id = $self->r->param('id');



    my $entry = Sample::Data::EventsMember->retrieve($id);

    $entry->events_id($events_id);

    $entry->member_id($member_id);

    $entry->update;

}



1;



__END__

package Sample::Pages;



use strict;

#use base qw(Sledge::Pages::Apache);

use Sledge::Pages::Compat;

use Sledge::Authorizer::Null;

use Sledge::Charset::Default;

use Sledge::SessionManager::Cookie;

use Sledge::Session::MySQL;

use Sledge::Template::TT;



use Sample::Config;



sub create_authorizer {

    my $self = shift;

    return Sledge::Authorizer::Null->new($self);

}



sub create_charset {

    my $self = shift;

    return Sledge::Charset::Default->new($self);

}



sub create_config {

    my $self = shift;

    return Sample::Config->instance;	

}



sub create_manager {

    my $self = shift;

    return Sledge::SessionManager::Cookie->new($self);

}



sub create_session {

    my($self, $sid) = @_;

    return Sledge::Session::MySQL->new($self, $sid);

}



1;



__END__

use constant MOD_PERL => defined $ENV{MOD_PERL};

sub import {

    my $base = MOD_PERL ? 'Sledge::Pages::Apache' : 'Sledge::Pages::CGI';

    eval qq{require $base};

    {

	my $pkg = caller;

	no strict 'refs';

	unshift @{"$pkg\::ISA"}, $base;

    }

}



1;

__PACKAGE__->mk_accessors(

    'r',			# Apache::Request or Sledge::Request::CGI

    'session',			# Sledge::Session

    'manager',			# Sledge::SessionManager

    'authorizer',		# Sledge::Authorizer

    'charset',			# Sledge::Charset

    'tmpl',			# Sledge::Template

    'fillin_form',		 	# Sledge::FillInForm

    'finished',			# flag whether request is finished

    'page',			# page name (arg to dispatch())

    'filters',			# filter subs

);

sub create_authorizer { Sledge::Exception::AbstractMethod->throw }

sub create_manager    { Sledge::Exception::AbstractMethod->throw }

sub create_charset    { Sledge::Exception::AbstractMethod->throw }

sub create_session    { Sledge::Exception::AbstractMethod->throw }

sub create_config     { Sledge::Exception::AbstractMethod->throw }

sub create_request    { Sledge::Exception::AbstractMethod->throw }

sub create_template {

    my($self, $file) = @_;

    return Sledge::Template->new($file, $self);

}

warn Dumper $self;

#$VAR1 = bless( {

#             'r' => bless( do{\(my $o = 142571316)}, 'Apache::Request' ),

#             'charset' => bless( {}, 'Sledge::Charset::Default' ),

#             'manager' => bless( {}, 'Sledge::SessionManager::Cookie' ),

#             'authorizer' => bless( {}, 'Sledge::Authorizer::Null' )

#           }, 'Sample::Pages::Index' );

if ($self->is_post_request && ! $self->finished) {	#如果请求是post方式则调用post_dispatch_$page方法

    my $postmeth = 'post_dispatch_' . $page;

    $self->$postmeth() if $self->can($postmeth);

}

sub is_post_request {

    my $self = shift;

    return $self->r->method eq 'POST';

}

<form name="form1" action="./index" method="post">

events_id is <input type="text" name="events_id" size="20"><br>

member_id is <input type="text" name="member_id" size="20"><br>

<input type="hidden" name="id" value=[% entry.id %]>

<input type="submit" name="submit" value="enter"><br>

</form>

unless ($self->finished) {

    my $method = 'dispatch_' . $page;

    $self->$method();

    $self->invoke_hook('AFTER_DISPATCH');

}

$self->output_content unless $self->finished;

sub output_content {

    my $self = shift;

    $self->r->content_type($self->charset->content_type); # set

    my $content = $self->make_content;

    $self->set_content_length(length $content);

    $self->send_http_header;

    $self->r->print($content);

    

    $self->invoke_hook('AFTER_OUTPUT');

    $self->finished(1);

}

$self->_destroy_me;

sub _destroy_me {

    my $self = shift;	

    # paranoia: guard against cyclic reference

    delete $self->{$_} for keys %$self;				#删掉$self对象中的每一对键值.

    # don't use me after dispatch()

    bless $self, 'Sledge::Pages::LivingDead';

}



package Sledge::Pages::LivingDead;

sub AUTOLOAD { }

sledge框架图