クッションページ($ENV{'QUERY_STRING'})
#! /usr/local/bin/perl # リンク先URL取り込み $url = $ENV{'QUERY_STRING'}; # 移動時間指定(秒後) $tm = 5; print qq(Content-type: text/html; charset=Shift_JIS\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> リンク先のアドレスの前に https://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}? を入力してください<br> (例)<a href="https://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?http://www.*****.com/"> リンク </a><br> <br> 【クッションページとは】<br> 外部サイトにリンクする際にリンク先アドレスの確認や、 リンク先サイトのアクセス解析でリンク元アドレス取得を防ぐ目的で使用されます。<br> (クッションページを使用するとリンク元アドレスはクッションページのアドレスとなります。)<br> </td> </tr> </table> <br><br><br><br><br> <center><a href="/">トップページへ</a></center> </body> </html> END exit;
〔 実行する 〕