かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】

クッションページ（$ENV{'QUERY_STRING'}）

#! /usr/local/bin/perl

# リンク先URL取り込み
$url = $ENV{'QUERY_STRING'};

# 移動時間指定（秒後）
$tm = 5;

print qq(Content-type: text/html; charset=UTF-8\n\n);
print <<END;
    <html>
    <head>
END
if($url =~ /^\w+:\/\//) {
    print qq(    <meta http-equiv="refresh" content="$tm;url=$url">\n);
}
print <<END;
    <title>クッションページ $url</title>
    </head>
    <body>
    <center style="padding:100px 10px;font-size:22px;color:#666">
        $tm秒後に指定のページに移動します。<br>
        <br>
        <a href="$url">$url</a><br>
    </center>
    <table align="center">
    <tr>
        <td>
            【クッションページの使い方】<br>
            リンク先のアドレスの前に
            http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?
            を入力してください<br>
            （例）&lt;a href="http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?http://www.*****.com/"&gt;
            リンク
            &lt;/a&gt;<br>
            <br>
            【クッションページとは】<br>
            外部サイトにリンクする際にリンク先アドレスの確認や、
            リンク先サイトのアクセス解析でリンク元アドレス取得を防ぐ目的で使用されます。<br>
            （クッションページを使用するとリンク元アドレスはクッションページのアドレスとなります。）<br>
        </td>
    </tr>
    </table>
    <br><br><br><br><br>
    <center><a href="/">トップページへ</a></center>
    </body>
    </html>
END

exit;

〔実行する〕

CGI(Perl)

●Hello world !	●ユーザーエージェント取得・表示（$ENV{'HTTP_USER_AGENT'}）
●IPアドレス取得・表示（$ENV{'REMOTE_ADDR'}）	●リンク元取得・表示（$ENV{'HTTP_REFERER'}）
●URL取得・表示（$ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'}）	●環境変数を全て表示（%ENV）
●ホスト名取得・表示（gethostbyaddr）	●訪問者のプロバイダーを表示
●訪問者の都道府県を取得・表示	●日付を表示（localtime time）
●日付を画像表示（localtime time, substr）	●アクセス日時を表示（localtime time）
●指定の日までの日数を表示	●曜日によって背景色を変える
●日によって背景色を変える	●月によって背景色を変える
●見るたびに背景色を変える	●見るたびに背景画像を変える
●おみくじ（rand, int）	●カラーチャート
●Shift_JIS文字コード表	●UTF-8文字コード表
●グラフ（横棒グラフ）	●アクセスカウンター
●アクセスカウンター（画像）	●アクセスカウンター（今日・昨日）
●訪問回数（クッキー, $ENV{'HTTP_COOKIE'}, Set-Cookie）	●アクセスログ保存
●アクセスログ集計	●パスワード認証
●クッションページ（$ENV{'QUERY_STRING'}）	●クッションページ（$ENV{'PATH_INFO'}）
●フォーム入力内容をクッキーに保存	●1つのCGIでフレームページを表示
●IPアドレスからホスト名を取得（gethostbyaddr）	●ホスト名からIPアドレスを取得（gethostbyname）
●IPアドレスからプロバイダーを取得	●IPアドレスから都道府県を取得
●文章中の文字列を別の文字列に一括変換	●カレンダー
●カレンダー（前月・次月へのリンク付）	●カレンダー（今年１月～１２月）
●掲示板	●掲示板（URL自動変換／連続改行･スペース削除）
●掲示板（年齢・性別・都道府県選択）	●画像アップロード掲示板
●チャット	●Ｗｅｂ日記
●サイトマップ（ディレクトリ内のファイルを調べる）	●Webデータ取得（HTTPヘッダー, HTMLソース, use Socket）
●Webデータ取得（HTTPヘッダー, HTMLソース, use HTTP::Request::Common）	●トラックバック受信
●トラックバック送信	●メール送信（メールフォーム, sendmail）
●リバーシ（ボードゲーム）	●.htaccessユーザー認証用ユーザーファイル作成
●リダイレクト	●条件指定リダイレクト
●言語振り分けリダイレクト	●条件指定アクセス拒否（ステータスコードを返す）
●HTMLファイル読み込み・表示	●HTMLファイル読み込み・パスワード認証
●HTMLファイル読み込み・条件指定アクセス拒否	●HTMLファイル読み込み・条件指定リダイレクト
●外部CGIファイル読み込み（require）	●画像ファイル読み込み・表示
●画像縮小・拡大・サイズ変更（Image::Magick, Resize）	●画像切り出し（Image::Magick, Crop）
●画像文字埋め込み（Image::Magick, Annotate）	●画像合成（Image::Magick, Composite）
●画像生成・保存（Image::Magick->new）	●画像合成アクセスカウンター

かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】