<@6> <@local(x,t,ok,ng)> <@> システムモード <$v.system_mode("システム管理メニュー")> <@> 階層ツリー、権限確認 <@call("<@v.skel_dir>_dir_tree")>

<@v.title>

システム環境

<$h = get_system_info()>
Server  : <@ENV.SERVER_SOFTWARE> (<@if(Is_thread, 'worker', 'prefork')>)
Perl    : <@h.perl_cmd> (Ver <@h.perl_version>)
Runtime : <@CGI_mode>
RDBMS   : <@DB._RDBMS>
Version : <@v.VERSION> <@if(v.VERSION != v.OUTVERSION || v.SUBVERSION, "(<@v.OUTVERSION>-<@v.SUBVERSION>)")>
Locale  : <@Locale> (<@Code_lib>)
System-Coding : <@System_coding>

ファイルシステムチェック

<$fail = 0> <$ok = 'OK'> <$ng = 'NG'> <@forexec_hash(t, call('_sub/load_writable_dirs'), begin)> <$end>
Directory typepathwrite check
<@t.key> <@t.val> <@if(x = write_check( t.val ), ok, ng)><$ifset(!x, fail, 1)>
<@ifexec(fail, begin)>

エラーがあります。パーミッションなどを確認してください。

<$end>

ライブラリチェック

<$mail = loadpm("Base::Mail")>
ライブラリ名チェック補足説明
Image::Magick<@if(lib_check('Image::Magick'), ok, ng)> 存在すれば画像縮小可能
Net::SSLeay<@if(lib_check('Net::SSLeay'), ok, ng)> Twitterに投稿等する際に必要
sendmailコマンド<@if(mail.get_sendmail_cmd(), ok, ng)> 「メール通知」プラグインなどで使用

環境変数(システム情報)

バグ報告などでご利用ください。サーバの状況がわかりませんと対応しきれないことがありますので、必要に応じてこの情報を示して頂けると助かります。

<$env = copy(ENV)> <$delete(env.DOCUMENT_ROOT)> <$delete(env.SERVER_SIGNATURE)> <$delete(env.HTTP_ACCEPT)> <$delete(env.HTTP_COOKIE)> <$delete(env.REMOTE_ADDR)> <$delete(env.REMOTE_PORT)> <$delete(env.REMOTE_HOST)> <$delete(env.REMOTE_USER)> <$delete(env.AUTH_TYPE)> <$delete(env.SERVER_ADDR)> <$delete(env.SERVER_ADMIN)> <$delete(env.HTTP_ACCEPT_CHARSET)> <$delete(env.HTTP_ACCEPT_ENCODING)> <$delete(env.HTTP_ACCEPT_LANGUAGE)> <$delete(env.HTTP_CONNECTION)> <$delete(env.HTTP_KEEP_ALIVE)> <$delete(env.HTTP_CACHE_CONTROL)> <$delete(env.PATH)> <$delete(env.UNIQUE_ID)> <$delete(env.REDIRECT_PATH)> <$delete(env.REDIRECT_UNIQUE_ID)> <$delete(env.REQUEST_METHOD)> <$delete(env.HTTP_REFERER)>

※COOKIEやアクセス元などの情報は消してあります。