#!/usr/bin/perl $perl = '/usr/bin/perl'; $filename = 'jc-check.cgi'; $datadir = './data'; require './jcode.pl'; require './cgi-lib.pl'; $scriptcheck = './padd-bbs.cgi'; #↑CGIファイルの構文チェックをする場合はここにそのパスを書いてください。 ##### jc-check.cgi Ver.1.3 24 Aug. 2001 ##### ## ## ## このチェックスクリプトはPaddie作成のCGIを設置できるかどうかを簡単にチェック ## ## することができるように作成しました。もちろんフリーです。 ## ## ## ## 1〜6行目の環境設定を編集して 文字コードEUC、改行コードLF、パーミション755で ## ## 目的の場所へ設置してください。 （8行目はオプションです。） ## ## ## ## また、このチェックスクリプトは無保証ですので、自己責任においてご使用下さい。## ## 万一データが破損しても、その責はPaddieには及ばないものとします。 ## ## ## ################################################################################# $| = 1; $ver = '1.3'; select(STDOUT); &ReadParse; $text = "この文字列が正しく表示されていれば、jcode.plは正常に動作しているということになります。"; if ($in{'CHECK'} == 1) { $text2 = "cgi-libは正しく動作しているようです。

"; if (-w "./" && !-d $datadir) { $form = "このディレクトリはWebサーバーによる書き込み権限がありますので、データディレクトリ自動作成のチェックを試みます。

"; umask 0000; mkdir ($datadir,0777); chmod (0777,$datadir); $seiko = "の作成に成功しました"; $sippai = "の作成に失敗しました"; } elsif (!-d $datadir) { $form = "このディレクトリにはWebサーバーによる書き込み権限がありません<\/FONT>ので、データディレクトリを手動で作成する必要があります

"; if (!-d $datadir) {$form .= "チェックを続けるためには手動でデータディレクトリを作成（パーミション７７７）<\/FONT>してください。

";} $seiko = "が見つかりました。"; $sippai = "が見つかりませんでした。"; } else { $seiko = "が見つかりました。"; $sippai = "が見つかりませんでした。"; } $form .= "書き込み可能なデータディレクトリ"; if (-w $datadir) { $form .= $seiko."。

続いて記録ファイル作成のチェックを試みます。

"; open (OUT,">$datadir/jc-check.txt"); print OUT "成功しました。

この場所はPaddie作成のCGIを設置することが可能です。<\/STRONG><\/FONT>
（作成されたチェック用記録ファイルは削除されます。）"; close OUT; open (IN,"$datadir/jc-check.txt"); $check = ; close IN; unlink ("$datadir/jc-check.txt"); if (-f "$datadir/jc-check.txt") {$dsippai = "チェック用記録ファイルの削除に失敗しました。サーバー管理者にお問い合わせください。<\/FONT>

";} if (!$check) {$check = "失敗しました。

サーバー管理者にお問い合わせください。<\/FONT>";} $form .= "記録ファイルの作成に$check

$dsippaiこのチェックスクリプトで作成したデータディレクトリが不要な場合は手動で削除してください。"; } elsif (-d $datadir) {$form .= $sippai."。

データディレクトリのパーミションを確認してください。<\/FONT>";} } elsif (!$in{'CHECK'}) { $text2 = "cgi-libの動作がチェックされていないか、正しく動作していない<\/FONT>ようです。
下のボタンをクリックしてcgi-lib.plのチェックを行ってください。
"; $form =< EOF } if ($in{'CHECK'} < 2) { $ptext =< $text
The file 'jcode.pl' may be break if upper sentence isn't indicated properly.

CGI-LIB.PL
$text2 EOF } $printtext1 =< 環境チェック 環境チェック　　Ver.$ver

$ptext$form EOF $printtext2 =< jc-check ver.$ver
(C) 2001 Paddie. EOF if (-f $scriptcheck && $in{'CHECK'} == 1) { $printtext1 .= "
Perlのバージョンチェックと$scriptcheckの構文チェックを行います。
"; if (!-x $scriptcheck) {$printtext1 .= "！！$scriptcheckのパーミションが適切ではありません。実行権限を与えてください<\/FONT>！！
";} } &jcode'convert(*printtext1,"sjis"); &jcode'convert(*printtext2,"sjis"); print $printtext1."
"; if (-f $scriptcheck && $in{'CHECK'} == 1) { `$perl -v 1> $datadir/jc-check1.txt 2> $datadir/jc-check2.txt`; `$perl -wc $scriptcheck 1>> $datadir/jc-check1.txt 2>> $datadir/jc-check2.txt`; open (IN,"$datadir/jc-check1.txt"); @wcin1 = ; close IN; open (IN,"$datadir/jc-check2.txt"); @wcin2 = ; close IN; unlink ("$datadir/jc-check1.txt"); unlink ("$datadir/jc-check2.txt"); print &jcode'to("sjis","-----\[STDOUT\]標準出力（Perlのバージョン出力）-----
","euc","z"); foreach (@wcin1) {print &jcode'to("sjis","$_
","euc","z");} print &jcode'to("sjis","-----\[\/STDOUT\]ここまで-----

-----\[STDERR\]標準エラー出力（構文チェック結果）-----

","euc","z"); foreach (@wcin2) { print &jcode'to("sjis","$_
","euc","z"); if ($_ =~ /Syntax OK/i) {$syntaxok = 1;} } print &jcode'to("sjis","
-----\[\/STDERR\]ここまで-----
","euc","z"); if ($syntaxok) { print "
"; print &jcode'to("sjis","<\/FORM>","euc","z"); } } elsif (-x $scriptcheck && $in{'CHECK'} == 2) { `$perl $scriptcheck 1>> $datadir/jc-check1.txt 2>> $datadir/jc-check2.txt`; open (IN,"$datadir/jc-check1.txt"); @wcin1 = ; close IN; open (IN,"$datadir/jc-check2.txt"); @wcin2 = ; close IN; unlink ("$datadir/jc-check1.txt"); unlink ("$datadir/jc-check2.txt"); print &jcode'to("sjis","Content-type\: text\/html\;〜という表示のある行以前に何かが表示されていたら
通常Internal Server Errorが出る原因となります。
-----\[STDOUT\]標準出力-----
","euc","z"); foreach (@wcin1) { $_ =~ s/\/\>\;/g; print &jcode'to("sjis","$_
","euc","z"); } print &jcode'to("sjis","-----\[\/STDOUT\]ここまで-----

-----\[STDERR\]標準エラー出力-----

","euc","z"); foreach (@wcin2) { $_ =~ s/\/\>\;/g; print &jcode'to("sjis","$_
","euc","z"); } print &jcode'to("sjis","
-----\[\/STDERR\]ここまで-----
","euc","z"); } elsif (-f $scriptcheck && $in{'CHECK'} == 2) {print &jcode'to("sjis","$scriptcheckのパーミションが適切ではありません。
","euc","z");} print $printtext2; exit;