#!/usr/bin/perl
$error_flag = 0;
@sendmails = ('/lib/sendmail','/usr/bin/sendmail','/usr/sbin/sendmail','/usr/lib/sendmail','/usr/local/sbin/sendmail','/usr/local/lib/sendmail');
@stat = stat 'send.cgi';
$permission = substr((sprintf "%03o", $stat[2]), -3);
if($permission ne '755'){
$error = <<' __error_body__';
send.cgiのパーミッションが755ではありません。
send.cgiのパーミッションが755ではありません。ただ、サーバの種類によっては必ずしも755がCGIの実行権限とは限らないので、よくわからない場合はサーバ会社に聞いてみてください。
FFFTPでパーミッションを変更するには、send.cgiを右クリックして「属性変更」から755にしてください。
__error_body__
$error_message .= $error;
}
$form_enabled = "display: block;";
for($cnt=0;$cnt<@sendmails;$cnt++){
if(-f $sendmails[$cnt]){
$sendmail = $sendmails[$cnt];
}
}
if($sendmail ne $null){
$error = <<" __error_body__";
多分sendmailのパスはこう!
このサーバのsendmailのパスはたぶんだけどこうっ!!
サーバ推奨のsendmailと違う場合はサーバ推奨のパスを使って!
__error_body__
$error_message .= $error;
}
elsif($sendmail eq $null){
$error = <<" __error_body__";
sendmailのパス検出に失敗・・・
ごめん・・・。和田も頑張ったんだけどさ・・・。そう人生うまくいくもんじゃないよね・・・。探したよ!必死に!交差点でも 夢の中でも こんなとこにいるはずもないのに・・・。ということで、ホントごめん・・・。サーバ会社の人に聞いてみてくださいはい・・・。生まれてきてごめんなさい・・・。
__error_body__
$error_message .= $error;
}
if($error_message ne $null){
$error_message = "" . $error_message . "
";
}
else {
$error_message = '問題ないんじゃない?
';
}
print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Content-type: text/html; charset=UTF-8\n\n";
$html = <<"__print_body__";
Mailform check 1.0
Mailform check 1.0.0
メールフォーム 6.1.0用のチェッカーです。各種モジュール等のチェックを行います。
${error_message}
__print_body__
print $html;
exit;