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;
}
