チェックモード

#┌───────────────────────────────── #│ ClipMail #│ check.pl - 2007/05/23 #│ copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── #------------------------------------------------- # チェックモード #------------------------------------------------- sub check { print "Content-type: text/html\n\n"; print < チェックモード

チェックモード

sendmailパス："; if (-e $sendmail) { print "OK\n"; } else { print "NG → $sendmail\n"; } # jcode.pl バージョンチェック print "
jcode.plバージョンチェック："; if ($jcode::version < 2.13) { print "バージョンが低いようです。→ v$jcode::version\n"; } else { print "OK (v$jcode::version)\n"; } # テンプレート foreach ( $tmpl_body, $tmpl_bres, $tmpl_conf, $tmpl_err1, $tmpl_err2, $tmpl_thx ) { print "
テンプレート ( $_ ) ："; if (-f $_) { print "パスOK!\n"; } else { print "パスNG → $_\n"; } } # 一時ディレクトリ if (-d $tmpdir) { print "
一時ディレクトリパス : OK!\n"; if (-r $tmpdir && -w $tmpdir && -x $tmpdir) { print "
一時ディレクトリパーミッション : OK!\n"; } else { print "
一時ディレクトリパーミッション : NG → $tmpdir\n"; } } else { print "
一時ディレクトリパス : NG → $tmpdir\n"; } # データチェック my %file = ($logfile => 'ログファイル', $pwdfile => 'パスワードファイル'); foreach ( $logfile, $pwdfile ) { if (-f $_) { print "
$file{$_}パス : OK!\n"; } else { print "
$file{$_}パス : NG → $_\n"; } } print <バージョン : $ver

EOM exit; } 1;