#!/usr/bin/perl my $URL_i = "http://music.jp/project-neck"; my $URL_e = "http://music.jp/project-neck"; my $URL_v = "http://music.jp/project-neck"; #ＰＣ用のＵＲＬをセットしてください my $URL_pc = "http://www.project-neck.com/pc/movie/index.php"; if ( $ENV{'HTTP_USER_AGENT'} =~ m/DoCoMo/ ){ $URL = $URL_i; } elsif ( $ENV{'HTTP_USER_AGENT'} =~ m/UP\.Browser/ ){ if (( $ENV{'HTTP_USER_AGENT'} =~ m/V702NK/ ) || ( $ENV{'HTTP_USER_AGENT'} =~ m/702MO/ ) || ( $ENV{'HTTP_USER_AGENT'} =~ m/702sMO/ ) || ( $ENV{'HTTP_USER_AGENT'} =~ m/804SH/ ) || ( $ENV{'HTTP_USER_AGENT'} =~ m/802SE/ ) ) { $URL = $URL_v; } else { $URL = $URL_e; } } elsif ( $ENV{'HTTP_USER_AGENT'} =~ m/J-PHONE\/2.0/ ){ $URL = $URL_v; #### VODAFONE6K端末は画面表示 print "Content-type: text/html\n\n"; print "\n"; print "次へ"; print "
"; print "\n"; exit; } elsif ( $ENV{'HTTP_USER_AGENT'} =~ m/Mozilla/ ){ $URL = $URL_pc; } else { $URL = $URL_v; } print "Location: $URL\n\n"; print "\n";