ｻﾏｰｳｫｰｽﾞ公式ﾌﾞﾛｸﾞ'.$sbtxt.'

#!/usr/local/bin/perl #-------------------------------------------------------------# # # 映画『サマーウォーズ』 # モバイルブログ用　URLリダイレクター # # moblog_url_red.cgi # # /home2/s-wars/service/contents/public_html/blog/mobile/ # # 2009.02.12 4cast Y.Nagata # # 変更履歴: # #-------------------------------------------------------------# use CGI; $q = new CGI; # 変数の初期化 $flag = 0; $sbtxt = ""; $url = ""; $whitelist = "./redirect_whitelist.cgi"; # USER-AGENTの取得 @user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'}); # パラメータ取得 $url = $q->param('page'); # ホワイトリストの確認 if(-e $whitelist){ open(WHITE, "$whitelist"); while(){ $_ =~ s/\r\n//g; $_ =~ s/\r//g; $_ =~ s/\n//g; if($url =~ /$_/){ $flag = 1; last; } } close(WHITE); # Softbank　C型端末はリダイレクト不可 if((@user_agent[0] =~ /J-PHONE/) && (@user_agent[1] =~ /^3.0/ || @user_agent[1] =~ /^2.0/)){ $flag = 0; $sbtxt = " [sbc]"; } # ホワイトリストに含まれるURLへはリダイレクト if($flag == 1){ print "Location: $url\n\n"; exit(0); } } # 外部サイトへの遷移をアナウンス print "Content-type: text/html\n\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print 'ｻﾏｰｳｫｰｽﾞ公式ﾌﾞﾛｸﾞ'.$sbtxt.''."\n"; print ''."\n"; print ''."\n"; print 'ｻﾏｰｳｫｰｽﾞ
公式ﾌﾞﾛｸﾞ
'."\n"; print '

'."\n"; print ''; if($url eq ""){ print "不正なURLです｡

"; print 'ｻﾏｰｳｫｰｽﾞ公式ﾌﾞﾛｸﾞへ'."

\n"; print '

'."\n"; print "

"; } else{ print 'ｻﾏｰｳｫｰｽﾞ公式ﾌﾞﾛｸﾞから､外部のURLにｼﾞｬﾝﾌﾟしようとしています｡
'."\n"; print "
\n"; print ''.$url."

\n"; print '

'."\n"; print "
※ｻﾏｰｳｫｰｽﾞ公式ﾌﾞﾛｸﾞへは端末のﾎﾞﾀﾝで戻ってください｡

"; } print ''."\n"; print ''."\n"; print ''."\n"; exit;