2004年08月27日 (金)
のみまくしblog
あ、なんかブログの日はすぎたっぽい。のみまくしblogはSledgeで作られています。
公開する、気力がないので、Pages.pmだけ乗せて、お茶をいにごしてみます。
package Blog::Pages;
use strict;
use Sledge::Pages::Compat;
use Sledge::Authorizer::Null;
use Sledge::Charset::Default;
use Sledge::SessionManager::CookieStore;
use Sledge::Template::TT;
use Sledge::DispatchQuery;
use Blog::Config;
use Blog::Plugin;
use Blog::Plugin::Sidebar::BlogTimes;
use Blog::Plugin::Sidebar::Archive;
use Blog::Plugin::Sidebar::LiveCamera;;
use Blog::Plugin::Sidebar::Category;
use Blog::Plugin::Sidebar::Challenge;;
use Blog::Plugin::Sidebar::RecentArticle;;
use Blog::Plugin::Sidebar::RecentComment;;
use Blog::Plugin::Sidebar::RecentTrackBack;;
use Blog::Plugin::BackwardArticle;
use Blog::Plugin::Template4UserAgent;
use Blog::Plugin::RSS;
use Blog::Plugin::HoldBack;
use Blog::Plugin::UpdatePing;
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 Blog::Config->instance;
}
sub create_manager {
my $self = shift;
return Sledge::SessionManager::CookieStore->new($self);
# return Sledge::SessionManager::Cookie->new($self);
}
#sub create_session {
# my($self, $sid) = @_;
# return Sledge::Session::MySQL->new($self, $sid);
#}
1;
とりあず、公開したことにならないかな?
ウソです。ごめんなさい。もうちょっと業務時間に自分の時間をとれるように(ぉぃ)なりたいなー。
posted by takefumi
|
この日記へリンク
|
コメント(0)
|
トラックバック(0)