このツールは$cgi_title_urlの設置を手助けするものです。最初に、$cgi_title_urlの説明にしたがって、サーバにcgiを設置してください。その後、このツールでチェックすると、おかしなところを拾い出してくれます。
チェックに失敗した項目は赤字で表示されます。簡単な指示はでますが、もう一度$cgi_title_urlのマニュアル等を参照して該当部分を確認してください。
初心者が引っかかりそうなところを中心にチェックしています。改造するような中級者にも文法チェックは役に立つでしょうし、基本的なポカをなくせると思います。
なお、このツールでチェックできるのは、cgi周りの環境で、cgiがなんとか動くようになるところまでです。cgiの中の細かい設定までは見ていません。
cgi周りの環境についても、$cgi_title_urlのFAQに書かれている制限のうち、次の制限のチェックはこのツールではできません。つまり、このツールでエラーがないにも関わらず$cgi_title_urlが動作しない場合は、次のことが疑われます。
c.CGIからのファイル読み込みに制限がかかっている．
サーバによってはCGIから読み込むことができるファイル数に制限をかけていることがあります。→サーバ管理者に問い合わせてください。解決方法はFAQにあります。d.CGIのメモリ使用量に制限がかかっている．
サーバによってはCGI1プロセスあたりのメモリ使用量に制限をかけているところがあります。→サーバ管理者に問い合わせてください。解決方法はFAQにあります。
フルパス情報やperlバージョン情報、cgiファイル名など、悪用されるかもしれない情報が表示されますので、用が済んだらこのcgiはサーバから削除してください。
以下、テストの結果です。テスト結果は枠で囲まれて表示されます。
（perlが2つ以上はいっているサーバでは、perlの場所、バージョン、文法チェックなどがおかしくなります。こうしたサーバでバージョン・文法チェックをしたい場合、チェックに使いたいバージョンのperlのフルパスを変数\$perl_pathに設定する必要があります。_HTML_ # ====== 基本チェック print "
このcgiの最初の方に設定部分があります。テキストエディタで開いてフルパスを書き込み、アップし直して、再度ブラウザでアクセスしてください。パスがわからなかったらお使いのプロバイダのFAQなどを確認してください。
通常、perlは一つだけだと思いますので、\$perl_pathは空のままでいいはずです。）
●perlの場所："; print "
\n"; print "\n
\n \n\n"; $cmd = "which perl" ; &cmd($cmd); print " \n
このcgiが動いているのですでにわかっていると思いますが、$syntax_fileの最初の行「\#!〜」をこれに合わせます。\n"; # perlのバージョン print "
\n ただし、perlが2つ以上あるサーバの場合はこの情報を信用せず、\$perl_pathに書いたパスを設定します。
●perlのバージョン：
"; # print "$]\n"; print "\n
\n \n\n"; $cmd = $perl_path ; $cmd .= "perl -v" ; &cmd($cmd); print " \n
$cgi_title_urlを動かすにはperlのバージョン$perl_ver以上が必要です。"; # このcgiの場所 print "
●このcgiのフルパス：
\n"; print "\n"; print "\n
\n \n\n"; print "$ENV{SCRIPT_FILENAME}"; print " \n
\n"; print "\n"; # ↓これは必要なくなった。 # $this_dir = $ENV{SCRIPT_FILENAME}; # @this_dir = split(/\//,$this_dir); # 必須ファイル変数を/で分解する # @this_dir_r = reverse @this_dir; #ひっくり返す。@this_dir_r[1]がこのcgiのあるディレクトリ名となる。 # ====== ファイルの有無・必須 print "上のパスは絶対パスでこのcgiの場所を示しています。
\n" ; print "web上でファイルの場所を示すURLアドレス（http://〜）と異なり、サーバの中のファイルの場所を示すのがパスです。今いる場所から目的の場所までを示す「相対パス」と、サーバのルートディレクトリ（一番上のディレクトリ）からファイルの場所までを示す「絶対パス（フルパス）」があります。
\n" ; print "
\n 絶対パスは「/」から始まります。「aaa/bbb」となっていれば、「/」で始まっていないので相対パスで、「今いるディレクトリにあるaaaディレクトリの下のbbb」という意味です。
\n"; print " 「/aaa/bbb」となっていれば絶対パスで、「サーバの一番上のディレクトリ（/）にあるaaaの下のbbb」という意味です。意味がまるで違いますので注意。
\n 相対パスの場合、一つ上のディレクトリは「../」と書きます。今いるディレクトリは「./」と書きます。「aaa/bbb」と「./aaa/bbb」は同じ意味ですが、「../aaa/bbb」は意味が違います。\n"; print "
\n"; # ====== ファイルの有無・オプション（なくてもよい） if ( $arukana_file ne "") { # オプションがあるときだけ表示する print "\n
\n \n\n"; @hissu_file = split(/,/,$hissu_file); # 必須ファイル変数を分解する foreach $filename ( @hissu_file ) { &umu; } print " \n
\n"; } # ====== パーミッション・チェック print "\n
\n \n\n"; @arukana_file = split(/,/,$arukana_file); # なくてもいいファイル変数を分解する foreach $filename ( @arukana_file ) { &umu2; } print " \n
■■ディレクトリのパーミッション
\n"; print "\n"; print "\n
\n \n\n"; @perm_dir = split(/,/,$perm_dir); # ディレクトリを分解する $i = 0; foreach $filename ( @perm_dir ) { &permitdir; # 書き込み可能ディレクトリか &filemake_test ; # cgiがファイルを作れるか } print " \n
■■実行ファイルのパーミッション
\n"; print "\n"; print "\n
\n \n\n"; @perm_do = split(/,/,$perm_do); # 777を分解する foreach $filename ( @perm_do ) { &permit777; # 実行可能か } print " \n
■■読み込みファイルのパーミッション
\n"; print "\n"; print "\n
\n \n\n"; @perm_read = split(/,/,$perm_read); # 666を分解する foreach $filename ( @perm_read ) { if ($filename eq "jcode.pl") { $j_check = 1 ; } # jcodeが利用可能なら1 &permit666; # 読み込み可能か } print " \n
■■詳細なパーミッション情報
\n\n"; print <<"_HTML_";_HTML_ print "上のパーミッションチェックも、下の詳細で確認してください。パーミッションの変更はたいていのFTPソフトで可能なはずです。こんな感じのウインドウで設定します。
permission キャンセル ＯＫ
読む 書込 検索/実行 オーナー： □ □ □ グループ： □ □ □ 全員： □ □ □ パーミッションはファイルに与えられた読込・書込・実行の権限のことで、755、644などの数字で表します。
下の詳細表示はシェルコマンドでパーミッションを表示させています。telnetで表示されるものと同じです。ここではパーミッションは数字ではなく、各権限がダイレクトに表示されています。詳細情報の読み方は次のようになります。
最初の「-」はそれがファイルであることを示します。「d」ならディレクトリです。次に列記されているのがパーミッション（権限）。
rwxの3つで一組で、rは4点、wは2点、xは1点持っていて、それを足します。
つまり、rwxなら7、rw-なら6、r-xなら5、r--なら4です。
これが（rwxの組が）オーナー、グループ、全員の3組あります。
この順番に各組のポイントの合計を読むと755、644などとなります。これがパーミッションです。上に示したFTPソフトのパーミッション設定も、これを理解していれば設定できるはずです。
+-------------------- d はディレクトリ。-はファイル
|+------------------- r オーナーの読込権限 4┐
||+------------------ w オーナーの書込権限 2├足して7
|||+----------------- x オーナーの実行権限 1┘
||||+---------------- r グループの読込権限 4┐
|||||+--------------- w グループの書込権限 2├足して7
||||||+-------------- x グループの実行権限 1┘
|||||||+------------- r 全員の読込権限 4┐
||||||||+------------ w 全員の書込権限 2├足して7
|||||||||+----------- x 全員の実行権限 1┘
|||||||||| ↑
drwxrwxrwx 全部あると777となる
-rwxr-xr-x ←練習問題。このパーミッションは？ 答えは755。
\n"; # ====== cgiの文法チェック print "\n
\n \n\n\n"; print " \n================ パーミッションの詳細情報 ================"; # @perm_dir ディレクトリは分解済み foreach $filename ( @perm_dir ) { print "
●$filename 内のファイル・ディレクトリのパーミッション
\n"; $cmd = "ls -l $filename"; &cmd($cmd); # コマンド実行・結果表示 } print "
「syntax OK」と表示されれば文法はOKです。エラーがでた場合は、どこかに文法的な誤りがあります。
\n"; print "\n"; # ====== jcode.plが利用可能だったら、漢字コード・改行コードのチェック print "\n
\n \n\n"; @syntax_file = split(/,/,$syntax_file); # 文法チェックファイルを分解する foreach $filename ( @syntax_file ) { $cmd = $perl_path; $cmd .= "perl -c $filename"; print "\n \n●$filenameの文法チェック $cmd：\n"; &cmd($cmd); print "$_
"; } print "
\n"; print "\n
\n \n\n"; $sample = $sample *1024 ; #KBを1024倍してバイトに変換 if ( $j_check == 1) { # jcode.plをまずチェック $line = ""; open (THIS_FILE, "./jcode.pl" ); # ファイルをオープン read ( THIS_FILE , $line , $sample ) ; #$sampleバイトだけ$lineに読込 close (THIS_FILE); $br_code = ( $line =~ /\r/) ; # CRがあったら$br_code=1なければ0 if ($br_code == 1){ # げ、CRがあるぜ。 $j_check = 2; print "●jcode.plの改行コードが Windows（CR+LF）かMAC（CR） です。 \n
\n"; print " 改行コードは UNIX（LF）にする必要があります。
\n"; print " jcode.plが利用できないため、漢字コード・改行コードの判定はキャンセルされました。
\n"; } print "\n"; } if ( $j_check == 1) { require './jcode.pl'; # こんなところでリクワイアしていいのか？ # @hissu_file = split(/,/,$hissu_file); # 必須ファイル変数は分解済み foreach $filename ( @hissu_file ) { $line = ""; open (THIS_FILE, "$filename" ); # ファイルをオープン read ( THIS_FILE , $line , $sample ) ; #$sampleバイトだけ$lineに読込 close (THIS_FILE); # print "デバッグ用：$filenameの内容は次の通り。
\n"; # デバッグ用出力 $code = ""; # 初期化 $code = &jcode'getcode(*line) ; # 漢字コードの判定ver4 # $code = &jcode::getcode(\$line); # 漢字コードの判定ver5 print "
$line\n"; if ($code eq "euc"){ # eucなら print "●$filenameの漢字コードは $code です。
\n"; # $i = $i + 1; # 次のファイルの判定 } } print "
\n"; } else { # それ以外なら if ($code eq "sjis" ){ print "●$filenameの漢字コードは 「$code」 です。
\n"; print " 漢字コードは EUC である必要があります。
\n"; } else { # 判定できなかったら if ($code eq "jis" ){ print "●$filenameの漢字コードは 「$code」 です。
\n"; print " 漢字コードは EUC である必要があります。
\n"; } else { @suffix = split(/\./,$filename); # ファイル名を.で分解する if (@suffix[1] eq "cgi") { # cgiだったらちょっとヤバイ。 print "●$filenameの漢字コードは 判定できませんでした。
\n"; print " EUCファイルであることを他の手段で確認してください。
\n"; } else { # cgiでなければ print "●$filenameの漢字コードは 判定できませんでした。
\n"; print " おそらくファイルの中に日本語がないために判定不能だったと思われます。
\n"; print " その場合は漢字コードは関係ないのでこのままでよいはずです。
\n"; print " 念のため$filenameを開いてすべて英文かチェックしてください。
\n"; } } } } $br_code = ( $line =~ /\r/) ; # CRがあったら$br_code=1なければ0 if ($br_code == 1){ # げ、CRがあるぜ。 print "●$filenameの改行コードは Windows（CR+LF）かMAC（CR） です。
\n"; print " 改行コードは UNIX（LF）にする必要があります。
\n"; } else { print "●$filenameの改行コードは UNIX（LF） です。
\n"; } print "
\n"; print "\n"; print "このファイルが動いているということは、すでに「漢字コード・改行コード」については知識があると思います。ちょこっとだけおさらいします。
\n"; print "・漢字コード
\n"; print "
\n 現在サーバで使われている漢字コードにはEUC、JIS、SJISがあります。WindowsやMacintoshなどのパソコンではSJISが使われていますが、特殊なものを除き、perl cgiはEUCにします。・改行コード
\n"; print "
\n Windowsでは「CR+LF」、Macintoshでは「CR」が改行コードです。perlでは「LF」でないと行として認識されないので動作しません。漢字コード・改行コードの変換には、これらを認識・変更可能なテキストエディタを使います。保存時に漢字コード・改行コードを指定して保存するだけです。Vectorなどで探すと良いと思います。代表的なところでは、Windowsでは「秀丸」、Macintoshでは「JEdit」ゃ「mi」「褌edit」などがあります。
\n"; print "「手元では確かにEUC/LFなのに…」という場合は、FTPツールが勝手に書き換えてアップしている場合がありますので、FTPツールの設定をチェックしてみてください。アップロードはASCIIモード（MACのFetchならRaw data）で転送しているかも要チェックです。
\n"; print "
以上でテストは終わりです。
\n";
print " エラー（赤字）があったら、上から順番に赤字がなくなるようにチェックしていってください。
このツールでチェックできないケースについては、このページの最初の方に書いてあります。ご一読下さい。
●$filenameは 存在します。
\n" ; } else { print "●$filenameが ありません。
\n" ;
print " $filenameをアップロードし、パーミッションを設定してください。
●$filenameは 存在します。
\n" ; } else { print "●$filenameがありませんが、このファイルは必須ではありません。
\n" ; } } # ■■パーミッションを調べるルーチン ファイル・読み出し可能か sub permit666 { if ( -r $filename ) { print "●$filenameは 読み込み可能 です。
\n" ; } else { print "●$filenameは 読み込みできません。
\n" ;
print " パーミッションを666、644または444にして下さい。
●$filenameは 実行可能 です。
\n" ; } else { print "●$filenameは 実行権限がありません。
\n" ;
print " パーミッションを777または755にして下さい。
●$filenameディレクトリは 書き込み可能 です。
\n" ; } else { print "●$filenameディレクトリは 書き込みできません。
\n" ;
print " パーミッションを777または755にして下さい。パーミッションが正しいのにこのエラーがでる場合は、次の「cgiがファイルを作成できるか」を参照してください。
→cgiがファイルを作成できるかチェックしました。
\n";
print " $filenameディレクトリは cgiがファイルを作成可能 です。
→cgiがファイルを策せできるかチェックしました。
\n";
print " $filenameディレクトリは cgiがファイルを生成できません。
\n";
print " このディレクトリのパーミッションが777、755など書込可能になっているにも関わらずこのエラーがでた場合、cgiがファイルを生成できないようにサーバの制限が設けられています。このままではインデックスファイルを作成できませんので、あらかじめ「mindex.dat」という空っぽのファイルを作り、パーミッションを666にしてからインデックスをつくって下さい。