#!/usr/bin/perl $|=1; #携帯端末シミュレータ(sample store)のフレーム表示 # require '/home/storenavi/public_html/master/index.pl'; require '/home/snich/public_html/lib/analog_system.pl'; require '/home/snich/public_html/lib/jcode.pl'; require '/home/snich/public_html/lib/cgi-lib.pl'; &decode; $uid = $FORM{'uid'} || 'sample'; print <<"EOF"; content-type:text/html 【ストアナビ】携帯端末表示サンプル
携帯端末簡易シミュレータ
携帯端末よりSample Shopにアクセスした場合をシミュレートしています。

本体画像のボタンにより、上下スクロール・履歴の移動ができます。

リンク先へのジャンプやフォームへの記入は直接マウスクリックでお試し下さい。
※インラインフレーム及びJavascriptを利用してページを表示しております。お使いのブラウザの対応状況により、正しく動作しないことがあります。
 ※一般的な携帯端末での表示状態を表しています。
携帯機種や設定により一行に表示できる文字数は異なるため、実際の携帯画面とは折り返し位置が異なる場合があります。
※携帯独自の機能や表記（電話をかける、絵文字など）には対応しておりません。
EOF exit(0); sub decode{ %FORM = ''; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # タグ変換（タグを表示用特殊文字へ変換） $value =~ s//>/g; # カンマ変換（半角カンマを全角カンマへ変換） $value =~ s/\,/，/g; # jcode.plを利用して文字コード変換 &jcode'convert(*value,'euc'); $FORM{$name} = $value; } return %FORM; }