ＨＴＭＬタグ講座

[Home] [-5] [<] [>] [+5]

CGIサンプル

CGI のプログラムのサンプルです。

【CGI とは】

CGI はサーバ上で動くプログラムです。ＦＴＰ（サーバに転送）したときに実行可能になるようにパーミッションの設定をする必要があります。
CGI を使えば以下のようなことが可能です。

［カウンタの設置］
　＜このようなカウンタなどを設置できます。
（こちらはKENT WEBさんのCGIを利用しています）
［掲示板・チャットの設置］
掲示板やチャットのように多数の人が書き込んだり閲覧したりするには CGI が便利です。
チャットとよく似た、特定の言葉だけが勝手に置き換わる「にゃ～ちゅ～語☆ちゃっと」です。
（こちらはネットサーフレスキュー[Web裏技]さんのCGIをもとに加工して利用しています）
［パスワード・アクセス制限］
パスワードを利用したCGIのページを使えば、特定の人を対象にすることができます。
このページでは「guest」というパスワードを入力しないと見ることができません。

【CGI を借りる】

プロバイダで提供しているものや、レンタルのカウンタ・掲示板などは設置が簡単です。
カウンタなどの図を貼り込むタイプのものは、画像のタグの場所指定の所を変更します。
例をあげると「<IMG SRC="count/dream.cgi?id=index">」のようになります。使用するカウンタの説明をよく読んで、CGI ファイルの場所や変数など（「?」以降）を指定します。
ページ自体が CGI のものを使う場合は、既存のＨＴＭＬファイルで作ったホームページから、リンクの場所に CGI ファイルを指定します。
例をあげると「<A HREF="http://katsu.sakura.ne.jp/html/nya.cgi">にゃ～ちゅ～語☆ちゃっと</a>」のようになります。

【CGI はどうやって作るの？】

「perl」などのプログラム言語で作ります。
処理のさせかたにもよりますが、数百行から数千行程度のプログラムがよく使われています。
パーミッションの設定によってはプログラム本体が見えてしまったり動作しなかったりしますので、ＦＴＰソフトで設定したりtelnetなどのサーバーとの接続ソフトで変更をして下さい。
サンプルとしてパスワード制限のページをご紹介します。この CGI は比較的簡単なものなので数十行で済んでいます。
プロバイダやサーバに合わせて、必ず１行目（perl のパス）は変更する必要があります。

#! /usr/local/bin/perl

$pass = 'guest';
$script = './pass.cgi';
$method = 'POST';

&form_deco;
if ($FORM{'pass'} ne "$pass") { &enter; }
&page;

sub page {
　&header;
　print <<"EOM";
<DIV ALIGN="center">▼<BR>▼<BR>▼<BR>
<HR><FONT SIZE=+1>よ　う　こ　そ</FONT></DIV><HR>
<BR>
　パスワードは合っていたようですね。<BR><BR>
　しかしここには何もありません。<BR><BR>
　このページは URL が判っても、直接参照できないため、必ずパスワードを要求されます。<BR>
　ただし、画像などの外部データは URL を直接指定すれば見えてしまいますので、簡単にはわかりにくい名前を付けたフォルダ（ディレクトリ）を作成して、そこから呼び出すようにします。<BR><BR>
<HR>
</BODY></HTML>
EOM
　exit;
}

sub enter {
　&header;
　print <<"EOM";
<DIV ALIGN="center">▼<BR>▼<BR>▼<BR>▼<BR>▼<BR><BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 width=70%>
<TR ALIGN="center"><TD BGCOLOR="#333333" COLSPAN=3>　パスワードを入力して下さい　</TD></TR>
<TR ALIGN="center"><TD BGCOLOR="#CC6666">...............</TD><TD BGCOLOR="#999999"><BR>
<form action="$script" method="$method">
<input type=password name=pass size=20><BR>
<input type=submit value="入室する">
</form>
</TD><TD BGCOLOR="#CC6666">...............</TD></TR>
<TR ALIGN="center"><TD BGCOLOR="#333333" COLSPAN=3>　</TD></TR>
</TABLE>
</BODY></HTML>
EOM
　exit;
}

sub form_deco {
　if ($ENV{'REQUEST_METHOD'} eq "POST") {
　　read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
　} else { $buffer = $ENV{'QUERY_STRING'}; }

　@pairs = split(/&/,$buffer);
　foreach $pair (@pairs) {
　　($name, $value) = split(/=/, $pair);
　　$value =~ tr/+/ /;
　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

　　$FORM{$name} = $value;
　}
}

sub header {
　print "Content-type: text/html\n\n";
　print "<HTML>\n<HEAD>\n";
　print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
　print "<TITLE>簡易パスワード付きウェブページ</TITLE>\n";
　print "<BODY BGCOLOR=\"#666666\" TEXT=\"#FFFFFF\" LINK=\"#CC3333\" VLINK=\"#993333\" ALINK=\"#CC3333\">\n";
}