![]() |
| カレッヂ |
質問者 小野塚貴弘
投稿日 10/19(日) 13:02:29
[削除] (返信・回答が付いた後にこの質問の削除はできません)
下記の通り自作でCGIを作ったのですがJ-Skyでみたら画像部分が反映されませんでした。
何が悪いのかアドバイスいただけませんでしょうか?
#!/usr/bin/perl
# -----------レイアウトの設定-----------
#■文字の色の設定
$text_c = '#000099';
#■背景色の設定
$bg_C = '#FFFF88';
# -----------戻り先URLの設定-----------
# 戻り先の指定はフルパスで!!
# (例)http://www.zyforce-inc.com/index.html
#■i-modeの戻り先
$back_i = 'http://www.zyforce-inc.com/index.html';
#■J-skyの戻り先
$back_j = 'http://www.zyforce-inc.com/index.html';
#↑↑↑↑↑↑↑↑設定はココまで↑↑↑↑↑↑↑↑
#----------------#
# ブラウザ判別 #
#----------------#
$HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'};
if ($HTTP_USER_AGENT =~ /DoCoMo/i)
{ &imode; } #imode用
elsif ($HTTP_USER_AGENT =~ /J-PHONE/i)
{ &jsky; } #jphone用
else
{ &pc; } #パソコン用
exit;
#----------------#
# i-mode表示部 #
#----------------#
sub imode{
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>TEST</title>\n";
print "</head>\n";
print "<BODY bgcolor=\"$bg_C\" text=\"$text_c\">\n";
print "<center>\n";
print "iモードからアクセスしました。<BR>\n";
print "<IMG SRC=image.gif><BR>\n";
print "<CENTER><A HREF=\"$back_i\">戻る</A></CENTER>\n";
print "</body></HTML>\n";
}
#----------------#
# j-sky表示部 #
#----------------#
sub jsky{
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>TEST</title>\n";
print "</head>\n";
print "<BODY bgcolor=\"$bg_C\" text=\"$text_c\">\n";
print "<center>\n";
print "JSKYからアクセスしました。<BR>\n";
print "<IMG SRC=image.pngf><BR>\n";
print "<CENTER><A HREF=\"$back_j\">戻る</A></CENTER>\n";
print "</body></HTML>\n";
}
#----------------#
# PC表示部 #
#----------------#
sub pc{
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>TEST</title>\n";
print "</head>\n";
print "<BODY bgcolor=\"$bg_C\" text=\"$text_c\">\n";
print "PCからアクセスしました。<BR>\n";
print "</body></HTML>\n";
}
プロバイダ参照:http://www.zyforce-inc.com/ |
返信(回答)する
| Web裏技 |