簡単なＣＧＩスクリプト

《 INDEX 》《 HOME 》

■ 概要

まず初めに、単純なＣＧＩスクリプトを作成してみます。処理内容はＨＴＭＬより次の様にＵＲＬを指定してスクリプトを呼び出すと、指定されたサイトへジャンプすると言う単純なものです。

《 HTMLからの呼び出し方》: <A HREF="http://スクリプトパス/スクリプト名?ジャンプ先ＵＲＬ">ジャンプ</A>

こんな感じのスクリプトを改造することで自分のサイトから呼び出されたリンクをカウントしたり、ブラウザ情報を取得して表示するページを変えると言った、スクリプトも作成可能になります。

■ 作成

次の《location.cgi》がＣＧＩスクリプト、《呼び出し元ソース》がHTMLファイルになります。二つのファイルを作成して各プロバイダの設定にしたがってサーバへアップしてみて下さい、不明な箇所については《 CGI作成講座》も参考にしてみて下さい。ＣＧＩスクリプトへの実行権は必ず変更してください。

《 location.cgi 》

#!/usr/local/bin/perl5

$Query{url} = $ENV{QUERY_STRING};

if(!$Query{url}){ &error('不正な呼び出しです'); exit;}

print "Location: $Query{url}\n\n";

sub error{

    $message = $_[0];

    print 'Content-type: text/html'."\n\n";
    print '<HTML><HEAD><TITLE>Request Error</TITLE></HEAD>'."\n";
    print '<BODY>'."\n";
    print '<H1>'.$message.'</H1>'."\n";
    print '</BODY></HTML>'."\n";

}

《解説》 ここではperlのパスを指定しています。ここの箇所は各プロバイダによって異なりますので、契約先のプロバイダの設定を確認してください。 #!/usr/local/bin/perl5 HTMLより直接CGIが呼び出されているのでここでは"GET"方式となり環境変数QUERY_STRINGに？以降の文字列が格納されます。ここでは拡張を考えハッシュのurlで値を取得します。 $Query{url} = $ENV{QUERY_STRING}; これが実際に他のサイトへジャンプする記述です。通常のヘッダは《 CGI作成講座》で少し触れてありますが、このヘッダは次に指定されているurlへジャンプします。ヘッダの終わりに改行を１つ余分に付けるのを忘れないようにしてください。 print "Location: $Query{url}\n\n"; プログラマが任意のときに呼び出すためのエラー処理です。引数で与えられたエラーメッセージをブラウザに出力します。今回は引数無しでスクリプトが呼び出された場合に処理が実行されます。 サブルーチン《error》

《呼び出し側ソース》

<HTML>
<HEAD>
<TITLE>簡単なＣＧＩスクリプト</TITLE>
</HEAD>
<BODY>
<A HREF="http://スクリプトパス/location.cgi?http://www.site-cooler.com/">ジャンプ</A>
</BODY>
</HTML>

スクリプトパスはスクリプトファイルをアップロードした場所へ変更してください。このサンプルでは私のトップページへジャンプします(o^o^o)

《サンプルのダウンロード》

■ カスタマイズ

呼び出し元の限定

ここまで作成したスクリプトをカスタマイズしてみましょう。先ずは呼び出しページを限定です。この確認を行うことで別のサイトからＣＧＩスクリプトの呼び出しを制限することが出来ます。

《 location.cgi 》

#!/usr/local/bin/perl5

$Query{url} = $ENV{QUERY_STRING};

if(!$Query{url}){ &error('不正な呼び出しです'); exit;}

if($ENV{HTTP_REFERER} ne 'http://www.site-cooler.com/cgi/1.htm'){
    &error('スクリプトを呼び出したＵＲＬが不正です'); exit;
}

print "Location: $Query{url}\n\n";

sub error{

    $message = $_[0];

    print 'Content-type: text/html'."\n\n";
    print '<HTML><HEAD><TITLE>Request Error</TITLE></HEAD>'."\n";
    print '<BODY>'."\n";
    print '<H1>'.$message.'</H1>'."\n";
    print '</BODY></HTML>'."\n";

}

《解説》 スクリプトを呼び出したＵＲＬは環境変数HTTP_REFERERへ格納されます、ここで自分の指定したＵＲＬとこの環境変数を比較し、期待していたＵＲＬでなければエラー処理へ制御が移ります。 このサンプルではhttp://www.site-cooler.com/cgi/1.htmからの呼び出し以外は全てエラーとなります。 if($ENV{HTTP_REFERER} ne 'http://www.site-cooler.com/cgi/1.htm'){ &error('スクリプトを呼び出したＵＲＬが不正です'); exit; }

《 INDEX 》《 HOME 》