<@6> <@local(x,t,ok,ng)> <@> システムモード <$v.system_mode("システム管理メニュー")> <@> 階層ツリー、権限チェック、エラー表示 <@call("_sub/menu_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.OUTVERSION>
Locale  : <@Locale> (<@Code_lib>)
System-Coding : <@System_coding>

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

<$fail = 0> <$ok = 'Good'> <$ng = 'Failure'> <@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>

ライブラリチェック

ライブラリ名チェック補足説明
Image::Magick<@if(x = lib_check('Image::Magick'), #'Ver<@x>', ng)> 存在すれば画像縮小可能
Net::SSLeay<@if(x = lib_check('Net::SSLeay'), #'Ver<@x>', ng)> 外部サイトへのhttps通信に必要
CryptX<@if(x = lib_check('CryptX'), #'Ver<@x>', ng)> push通知プラグインで使用

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

バグ報告などでご利用ください。必要に応じて(提示を求められたら)この情報を示して頂けると助かります。