WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:チャットの記事表示部のスクロールバーの色を変更したいのですが・・・。

0:[投稿] 江崎グリ子 [2005/09/06 12:44 ][環境:IE6,Win98 Apache]

度々お世話になっております。

フレーム使用のチャットの記事表示部分のフレームを下記のように変更したいと思っています。

<STYLE>
BODY {
SCROLLBAR-FACE-COLOR: #000000;
SCROLLBAR-HIGHLIGHT-COLOR: #000000;
SCROLLBAR-SHADOW-COLOR: #000000;
SCROLLBAR-3DLIGHT-COLOR: #C0C0C0;
SCROLLBAR-ARROW-COLOR: #ca4031;
SCROLLBAR-TRACK-COLOR: #000000;
SCROLLBAR-DARKSHADOW-COLOR: #C0C0C0;
}
</STYLE>

一番下にチャットのCGIのテキストを置いてあります。
チャット上部の入室部分などのフレームの色は上記の通りに変更できている(かなり怪しい表記ですが^^;)のですが、下の記事表示部がどうすればいいのかわかりません。
恐らく334行目辺りからの『記事表示部』とあるところに追加するのではないかという事で、次のように記述を追加したのですが、エラー500になってしまい、上手くいきません。

## 記事表示部

sub log_view {
    # リロード時間を定義
    if ($FORM{'retime'} eq '') { $retime = $re_sec; }

    open(LOG,"$logfile") || &error("Can't open $logfile");
    @lines = <LOG>;
    close(LOG);

    print "Content-type: text/html\n\n";
    print "<html>\n<head>\n";
    print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
    if ($retime != 0) {
      print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"$retime; URL=$script?retime=$retime&name=$name\">\n";
    }

    ## 参加者表示(ゆいちゃっと式)
    &sanka;
    open(DBS,"$memfile");
    @lin = <DBS>;
    close(DBS);
    $aaa = @lin;
    $num = @sanka3;
    $bbb = $aaa - $num;
    if($aaa < $num){
    $bbb = 0;
    }

print <<"EOM";
   <STYLE>
   BODY {
   SCROLLBAR-FACE-COLOR: #000000;
   SCROLLBAR-HIGHLIGHT-COLOR: #000000;
   SCROLLBAR-SHADOW-COLOR: #000000;
   SCROLLBAR-3DLIGHT-COLOR: #C0C0C0;
   SCROLLBAR-ARROW-COLOR: #ca4031;
   SCROLLBAR-TRACK-COLOR: #000000;
   SCROLLBAR-DARKSHADOW-COLOR: #C0C0C0;
   }
   </STYLE>
EOM

    print "</head>\n$body\n";
    print "<table width=100%><tr><td><small><font color=#888888>参加者($num):@sanka3</font></small></td>\n";
    print "<td align=right><font size=2>リロード設定\: \n";
    if ($retime == 0) { print "手動モード"; } else { print "$retime秒"; }
    print "</font></td></tr></table>\n";

    foreach (@lines) {
        ($date,$name,$email,$comment,$color) = split(/<>/, $_);
        print "<hr size=1>\n";
        print "<font color=$color size=2>$name > $comment</font> \n";
        print "<font color=$rep_color size=2>($date)</font><br>\n";
    }

    # 著作権を表示(絶対に削除はしないで下さい)
    print "<hr><center><small><!-- $ver -->\n";
    print "- <a href=\"http://www.kent-web.com/\" target=_top>COMCHAT-EX</a>\n";
    print "<a href=\"http://hisahisa.net/heaven/\" target=_top>+ROMαVer3.31 - by chat Heaven</a> -\n";
    print "</small></center>\n</body>\n</html>\n";
    exit;
}

パールチェッカーで調べたら、次のようにエラーメッセージが出ました。
『Can't find string terminator "EOM" anywhere before EOF at comromx.cgi line 363.』
以前にも同様の投稿をさせていただいたのですが、どこをどのように記述し直せばいいのか、おわかりになる方、お手数ですがご教授下さいませ。
よろしくお願いいたします。m(__)m

http://www17.ocn.ne.jp/~glico_e/chat.txt


1:[回答] gun [2005/09/06 16:06 ]

上記リンクのchar.txtを確認しました。

〜省略〜

   SCROLLBAR-TRACK-COLOR: #000000;
   SCROLLBAR-DARKSHADOW-COLOR: #C0C0C0;
   }
   </STYLE>
EOM <==ここに半角スペースが入っています。


2:[完了] 江崎グリ子 [2005/09/06 16:32 ]

わー、すごい、変更できました!!!
CGI初心者なもので、全くミスに気づきませんでした。
gun様、本当にどうもありがとうございました!!!m(__)m

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World