cgi general

CGI General

Return to Labo.

環境
ＣＧＩプログラムを組む場合，まず、自分の管理するサイトが、どんなサーバなのかを知る必要が有るのだ。これを知らないと、折角Perlを使ってCGIを組んでも、動かせないって事になりかねないのだ。
そこで、まずは管理者に確認する，若しくは、同じプロバイダに契約して、ホームページを管理している友達などから情報を集める事が必要なのだ。
ポイントは，
- CGIは使えるか？
- CGIの実行出来るディレクトリは？
- ASPは使えるか？
- SSIは使えるか？
- どんな言語が使えるか？
  Ｃコンパイラの使い方は？
  ｐｅｒｌのパスは？
位だろうか？
- ASPとは、Active Server Pageの略で、WindowsNT等のサーバには、許可しているものが多いらしい。ＨＴＭＬ文書の中に、VBScriptという言語で、JavaScriptの様に記述する事で、CGIを実行する事が出来るものだ。
- SSIとは、Server Side Includeの略で、CGI自体は、PerlやC等で同じ様に書くのだが、CGIプログラムの呼び方自体が、HTML文書のタグを使って行われ、結果は、そのHTML文書に埋め込まれて出力されるので、出力する内容が若干異なる。
上記２つのタイプは、かなり特殊な例と考えて良いので、俺達が個人的にホームページ契約して、当面出会うサーバは、perlメインのCGIって事になると思う。勿論，SSI使えるサーバで、perl使えないって事は無いだろうし、Ｃ言語が使えれば、しめたものなのだが、Ｃコンパイラを使うには，一旦telnet等でloginしなければならないし、コンパイラ自体も結構なメモリリソースを必要とするし・・ファイルに対するアクセスが強力な分，何でも出来てしまうという事もあって、リソース的にも，トラフィック的にも、サーバ側が嫌がる事をするので、大抵のサーバは許可していないと思う。
CGIの例題
ASPやSSIについては、まだ修行中って事にして、ASPもSSIもCコンパイラも無い状態で、Perlだけで造る英語版BBSプログラムの例を一つ挙げておく，基本的過ぎて、実用に耐えるとは思えないけど、俺がどんな風に、CGIを設計しているのかを知っていてもらうのも良いかな？
- その１，初期計画メモ CGI計画メモ #1 English BBS [ファイル名] 　・CGIプログラム:ebbs.cgi 　・データファイル:ebbs.dat 　・テンポラリファイル:ebbs.tmp 　・ロックファイル:ebbs.loc　←とりあえず，無しで考える [状態①]　初期/更新表示・起動条件　・OPTION:無し　・POSTされるパラメータ:無し・ACTION 　・表示内容の表示のみ・表示内容　表題[BBS] 　FORM(POST,ebbs.cgi) 　　MSG[(a)=INPUT(text,MESSAGE)][(b)=INPUT(submit,"UPDATE")] 　/FORM 　---------<HR> 　～メッセージ(10件まで)～　-------<HR> 　フッタ(Version表示など) [状態②]　書込表示・起動条件　・OPTION:無し　・POSTされるパラメータ: 　　・MESSAGE ・ACTION 　・データファイルに、MESSAGE内容を追加　・表示内容の表示・表示内容　表題[BBS] 　FORM(POST,ebbs.cgi) 　　MSG[(a)=INPUT(text,MESSAGE)][(b)=INPUT(submit,"UPDATE")] 　/FORM 　---------<HR> 　～メッセージ(10件まで)～　-------<HR> 　フッタ(Version表示など)
  つまり、概要をメモしておく訳だ，CGIは、状態から状態への遷移が肝だから、今、自分が造ろうとしているCGIが、どんな状態を持ち、どの様な起動条件で、どちらの状態へ遷移するかをメモっておくと、後の作業が楽になるのだ。勿論，自分の分かる書き方で良い。
- その２，処理フロー概要
  CGI計画メモ #2 English BBS [処理の流れ] ●初期設定 ●POSTされた内容の抜き出し　ここでは、MESSAGEの内容のみ ○OPTION判定→OPTION無しなので、必要無し ○日本語コードの変換→日本語コード無しなので、必要なし ●データファイルのUPDATE（MESSAGEが内容有りの場合のみ） ●表示 ●部分のみ実装
  最初の計画を見ながら、CGI全体の処理の流れを考える。今回の例では、状態は２つで、表示内容は、同一であるため、メッセージが指定された場合のみデータファイルのUPDATEを行って表示すれば良い。
- その３，処理フローに従って作成
  CGI計画メモ #3 English BBS [処理の実装] [実装０]　Perlパス設定 #!/usr/local/bin/perl [実装１]　●初期設定 $bbscgi="ebbs.cgi" ; $bbsdat="ebbs.dat" ; $bbstmp="ebbs.tmp" ; $bbsloc="ebbs.loc" ; [実装２]　●POSTされた内容の抜き出し if($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN,$qs,$ENV{'CONTENT_LENGTH'}) ; @a=split(/&/,$qs) ; foreach $x (@a){ ($name,$value)=split(/=/, $x) ; $value=~ tr/+/ / ; $value=~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg ; $FORM{$name}=$value ; } } # この処理で、POSTされたメッセージは、変数$FORM{'MESSAGE'}に格納される。 [実装３]　●データファイルのUPDATE（MESSAGEが内容有りの場合のみ） if($FORM{'MESSAGE'} ne ""){ open OUT,"> $bbstmp" ; print OUT "<! ===MSG=== >\n" ; print OUT "$FORM{'MESSAGE'}\n" ; print OUT "<BR><HR>\n" ; open IN,"$bbsdat" ; while(<IN>){ print OUT ; } close(IN) ; open IN,"$bbstmp" ; open OUT,"> $bbsdat" ; $count=0 ; while(<IN>){ if($_=~/===MSG===/){ if($count>=10){ last ; } $count++ ; } print OUT ; } close(OUT) ; close(IN) ; } [実装４]　●表示 print "Content-type: text/html\n\n" ; print "<HTML>\n" ; print "<HEAD><TITLE>EBBS</TITLE></HEAD>\n" ; print "<BODY>\n" ; print "BBS\n" ; print "<HR>\n" ; print "<FORM METHOD=POST ACTION=\"ebbs.cgi\">\n" ; print "MSG<INPUT TYPE=text NAME=MESSAGE SIZE=16>\n" ; print "<INPUT TYPE=submit VALUE=\"UPDATE\">\n" ; print "</FORM><HR>\n" ; open IN,"$bbsdat" ; while(<IN>){ print ; } close(IN) ; print "EBBS\n" ; print "</BODY></HTML>\n" ; exit(1) ;
  その２で造った処理フローに従って、肉付けを行う。各部分の処理内容が、手に取る様に分かると思う。この方法で組み上げると、実際エラーは少ないので、いきなり組んでいくよりは、ずっと近道だと思う。
- その４，仕上げ
  #!/usr/local/bin/perl $bbscgi="ebbs.cgi" ; $bbsdat="ebbs.dat" ; $bbstmp="ebbs.tmp" ; $bbsloc="ebbs.loc" ; if($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN,$qs,$ENV{'CONTENT_LENGTH'}) ; @a=split(/&/,$qs) ; foreach $x (@a){ ($name,$value)=split(/=/, $x) ; $value=~ tr/+/ / ; $value=~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg ; $FORM{$name}=$value ; } } if($FORM{'MESSAGE'} ne ""){ if(mkdir("$bbsloc",0755)){ open OUT,"> $bbstmp" ; print OUT "<! ===MSG=== >\n" ; print OUT "$FORM{'MESSAGE'}\n" ; print OUT "<BR><HR>\n" ; open IN,"$bbsdat" ; while(<IN>){ print OUT ; } close(IN) ; open IN,"$bbstmp" ; open OUT,"> $bbsdat" ; $count=0 ; while(<IN>){ if($_=~/===MSG===/){ if($count>=10){ last ; } $count++ ; } print OUT ; } close(OUT) ; close(IN) ; rmdir("$bbsloc") ; } else{ &error() ; exit(1) ; } } print "Content-type: text/html\n\n" ; print "<HTML>\n" ; print "<HEAD><TITLE>EBBS</TITLE></HEAD>\n" ; print "<BODY>\n" ; print "BBS\n" ; print "<HR>\n" ; print "<FORM METHOD=POST ACTION=\"ebbs.cgi\">\n" ; print "MSG<INPUT TYPE=text NAME=MESSAGE SIZE=16>\n" ; print "<INPUT TYPE=submit VALUE=\"UPDATE\">\n" ; print "</FORM><HR>\n" ; open IN,"$bbsdat" ; while(<IN>){ print ; } close(IN) ; print "EBBS\n" ; print "</BODY></HTML>\n" ; exit(1) ; sub error { print "Content-type: text/html\n\n" ; print "<HTML>\n" ; print "<HEAD><TITLE>EBBS</TITLE></HEAD>\n" ; print "<BODY>\n" ; print "BBS\n" ; print "<HR>\n" ; print "BBS STATUS BUSY!" ; print "<HR>\n" ; print "EBBS\n" ; print "</BODY></HTML>\n" ; }
  スクリプトという性格から、コメント行はなるべく削除する方が良い。一旦コンパイルされるとしても、コメント行を読み飛ばす時間もかかる事をお忘れなく。また、ファイルに対して書き込みを行う場面では、この例の様に、アクセス権を取得してからアクセスする様にした方が良い。
使用例