#webliberty::App::Info.pm (2007/03/11)
#Copyright(C) 2002-2007 Knight, All rights reserved.
package webliberty::App::Info;
use strict;
use base qw(webliberty::Basis);
use webliberty::Plugin;
use webliberty::App::Diary;
### コンストラクタ
sub new {
my $class = shift;
my $self = {
init => shift,
config => shift,
update => undef
};
bless $self, $class;
return $self;
}
### メイン処理
sub run {
my $self = shift;
if ($self->{init}->{rewrite_mode}) {
my $diary_ins = new webliberty::App::Diary($self->{init}, '', $self->{query});
$self->{init} = $diary_ins->rewrite(%{$self->{init}->{rewrite}});
}
$self->output;
return;
}
### 設定表示
sub output {
my $self = shift;
my $plugin_ins;
if (!$self->{update}->{plugin}) {
$plugin_ins = new webliberty::Plugin($self->{init}, $self->{config}, $self->{query});
%{$self->{plugin}} = $plugin_ins->run;
}
my $script = $self->{init}->{script};
my $version = $self->{init}->{version};
my $copyright = $self->{init}->{copyright};
my $script_file = $self->{init}->{script_file};
my $tb_file = $self->{init}->{tb_file};
my $paint_file = $self->{init}->{paint_file};
my $html_file = $self->{init}->{html_file};
my $spainter_jar;
if (-e $self->{init}->{spainter_jar}) {
$spainter_jar = $self->{init}->{spainter_jar};
} else {
$spainter_jar = 'Not Found';
}
my $paintbbs_jar;
if (-e $self->{init}->{paintbbs_jar}) {
$paintbbs_jar = $self->{init}->{paintbbs_jar};
} else {
$paintbbs_jar = 'Not Found';
}
my $pch_jar;
if (-e $self->{init}->{pch_jar}) {
$pch_jar = $self->{init}->{pch_jar};
} else {
$pch_jar = 'Not Found';
}
my $jcode_mode;
if ($self->{init}->{jcode_mode}) {
$jcode_mode = 'ON';
} else {
$jcode_mode = 'OFF';
}
my $chmod_mode;
if ($self->{init}->{chmod_mode}) {
$chmod_mode = 'ON';
} else {
$chmod_mode = 'OFF';
}
my $suexec_mode;
if ($self->{init}->{suexec_mode}) {
$suexec_mode = 'ON';
} else {
$suexec_mode = 'OFF';
}
my $site_url;
if ($self->{config}->{site_url}) {
$site_url = $self->{config}->{site_url};
} else {
$site_url = '未指定';
}
print $self->header;
print <<"_HTML_";
System Information
システム情報
- スクリプト
- $script
- バージョン
- $version
- 著作権
- $copyright
- CGIファイル
- $script_file
- トラックバック受信ファイル
- $tb_file
- イラスト受信ファイル
- $paint_file
- HTMLファイル
- $html_file
- しぃペインター
- $spainter_jar
- PaintBBS
- $paintbbs_jar
- PCHViewer
- $pch_jar
- 文字コード変換
- $jcode_mode
- パーミッション自動設定
- $chmod_mode
- suEXECモード
- $suexec_mode
- サイトのURL
- $site_url
Web Liberty
_HTML_
if (!$self->{update}->{plugin}) {
$plugin_ins->complete;
$self->{update}->{plugin} = 1;
}
return;
}
1;