[php] [Perl] phone.pl 携帯電話キャリア自動判別ライブラリ
페이지 정보
본문
일본 케타이 사이트 제작시 케리어 판별정보입니다..
http://www.kawa.net/works/perl/phone/pnews.html#download
JPEG 表示対応機種で場合分けする
もうちょっと詳しく、画面サイズやキャッシュ容量でも場合分けする例
http://www.kawa.net/works/perl/phone/pnews.html#download
require "phone.pl";
my $phone = &phone_info();
print "Content-Type: text/html\n";
print "NTT DoCoMo mobile phone.\n" if ( $phone->{type} eq "docomo" );
********
携帯キャリアを判別した Location: 飛ばし CGI
#!/usr/bin/perl
require "phone.pl";
my $phone = &phone_info();
if ( $phone->{type} eq "docomo" ) {
print "Location: http://domain.name/docomo.html\n\n";
} elsif ( $phone->{type} eq "ezweb" ) {
if ( $phone->{hdml_native} ) {
print "Location: http://domain.name/ezweb.hdml\n\n";
} else {
print "Location: http://domain.name/docomo.html\n\n";
}
} elsif ( $phone->{type} eq "jphone" ) {
print "Location: http://domain.name/vodafone.html\n\n";
} else {
print "Location: http://domain.name/pc.html\n\n";
}
携帯電話機種名を表示する
print "機種名： $phone->{name}<BR>\n";JPEG 表示対応機種で場合分けする
if ( $phone->{image_jpeg} ) {
print '<img src="title.jpg">'; # JPEG対応機種のみ
} else {
print '<img src="title.gif">'; # JPEG対応機種以外
}もうちょっと詳しく、画面サイズやキャッシュ容量でも場合分けする例
my $img;
if ( $phone->{qvga} && $phone->{cache} >= 12000 ) {
$img = "image-240x180.jpg"; # QVGA液晶かつキャッシュ容量12KB以上のみ
} elsif ( $phone->{image_jpeg} && $phone->{width} >= 160 ) {
$img = "image-160x120.jpg"; # JPEG対応かつ横幅160ピクセル以上
} elsif ( $phone->{image_jpeg} ) {
$img = "image-120x090.jpg"; # JPEG対応機種のみ
} elsif ( $phone->{image_png} ) {
$img = "image-096x072.png"; # PNG対応機種のみ（SoftBank・EZ旧機種）
} else {
$img = "image-096x072.gif"; # その他（NTT DoCoMo 旧機種）
}
printf( '<img src="%s">', $img );
추천0
첨부파일
-
phone.20071223.zip (12.0K)
0회 다운로드 | DATE : 2011-07-22 15:07:08
댓글목록
등록된 댓글이 없습니다.
