- ベストアンサー
PCでは見れるが、携帯(J-SKY)では見れない。
YY-BOADRを携帯から見るCGIを作成しました。 件名一覧画面はOKなのですが、 件名をクリックしてその内容を表示する画面に行こうとすると PCでは見れるが、携帯(J-SKY)では白い画面が表示されるだけでした。 いったいどうしてでしょうか?教えてください。 よろしくお願いします。m(__)m ---以下ソースサンプル(サブルーチンは省略)--- #!/usr/bin/perl #日本語コード処理ライブラリ require './jcode.pl'; # ↓保存されるファイルの漢字コード('sjis' 'euc' 'jis' のいずれか) $kanjicode = 'sjis'; $logfile = './circle.log'; ############################# # メイン処理 ############################# &init_form($kanjicode); print <<HTML; Content-type: text/html <HTML> <BODY> HTML if($form{mode} eq 'comm') { &viewComment; } &viewList; sub viewList { open(IN,"$logfile") || &error("Open Error : $logfile"); while (<IN>) { ($no,$reno,$date,$name,$mail,$sub,$comment,$url,$host,$pw,$color,$icon) = split(/<>/); if ($reno eq "") { print <<"HTML"; [$no] <A href="$C?page=$no&mode=comm">$sub</a><br> HTML } } print <<HTML; </BODY> </HTML> HTML } sub viewComment { open(IN,"$logfile") || &error("Open Error : $logfile"); while (<IN>) { ($no,$reno,$date,$name,$mail,$sub,$comment,$url,$host,$pw,$color,$icon) = split(/<>/); if ($reno eq $form{page} || $no eq $form{page}) { print <<"HTML"; [$sub <a href="mailto:$mail">$name</a> $date]<br> $comment <HR> HTML } } print <<HTML; </BODY> </HTML> HTML exit; }
- みんなの回答 (4)
- 専門家の回答
お礼
こんなのがあったのですね!ありがとうございます。 早速試してみます。 CGIの勉強もしたいので、両方試して見ますね! ありがとうございます。