初めてです。
よっよろしくお願いします

chat.cgi　sub log_print{}　の最後らへん。


if(!$high){
〜〜省略〜〜
}
else{
$chat=~s/<[^>]*>//ig;
$greet=~s/<[^>]*>//ig;
> print qq($mb<font color="$n_color_ch">$name</font>$secflag &gt; $chat $greet\[$date_i\]);
〜〜省略〜〜
}


と　携帯用出力にも$mbをつけてやればいいと思います。

最初からそう書いてもらえると助かります；；　よろしくおねがいします。

んで
html.pl

sub i_operation{
$j_maxlength = ' maxlength="64"' if($jphone_old);
$filecheck = "";
$nowtime = time();
print <<"EOF";
<form method="$method" action="$script">
><input type="hidden" name="imode" value="$name$k_splitchar\on$k_splitchar$window$k_splitchar$n_color$k_splitchar$filecheck$k_splitchar$nowtime$k_splitchar$email$k_splitchar">
<input name="chat" size="8"$j_maxlength>

と
chat.cgi の　sub decode{}　下のほう
if($ktai_ua && $FORM{'imode'}){
$imode = $FORM{'imode'};
> ($name,$view,$window,$n_color,$filecheck,$lastreload,$email) = split(/$k_splitchar/,$imode);
if($FORM{'exit'} =~ m/^0\./){


これでどうでしょぉ？？

凄い！完璧です！！
ぜんぜん違うとこイジってました；；

ぐぅさん、またまたありがとうございましたm(。_。;))m

TeaChat 1.8.4bを利用させて頂いています。
常連さんには、○×専用というようにしていますが、
例えば、○×専用#blue　にしても、新規訪問者は
blue or #0000ff を選択すると、色が被って、見づらくなります。
その都度、色見本URLをお知らせして、ハンドル、発言色を
変えてもらうようにしていますが、#blue or #0000ff を
常連さんだけ使用することは可能でしょうか？

無理っぽいお願いなのですが、何卒よろしくお願い申し上げます。

こんちわ。

名前色・文字色の直接指定をなくせばよさそうな気もしますが・・あれば便利そうなので作ってみました。



chat.cgi の　sub decode{}　の中
=========================================================
$n_color =~ s/ //g; $n_color2 =~ s/ //g;
$s_color =~ s/ //g; $s_color =~ s/\n//g;
> require "$html_pl";
> &color_list;
> $n_color = $text2 if($n_color =~ /[^\w#]/);
> $n_color2 = $text2 if($n_color2 =~ /[^\w#]|$color_userlist/);
> $s_color = $text2 if($s_color =~ /[^\w#]|$color_userlist/);
$unlock = $FORM{'unlock'}; $greet = $FORM{'greet'};
$space = $FORM{'space'}; $chat = $FORM{'chat'};
=========================================================
文字色は被ってもいい場合は、s_colorのところの　|$color_userlist　を削除。で


html.pl の　sub color_list{} を
=========================================================
sub color_list{
open(IN, "$decorate_file") || &error(11);
@deco = <IN>;
close(IN);

$face_hash = shift(@deco);
$color_hash = shift(@deco);
@color_hash = split(/\t/, $color_hash);

> my($color_value, $color_list,$color_user,$sp,@coloruserlist);
foreach (@color_hash){
> if($_ =~ /_COLOR(.?)_/){$sp=$1;
> ($color_value, $color_list,$color_user) = split(/_COLOR.?_/);
> $color_list=$color_user if($color_user);
> $colorlist .= "<option value=\"$color_value\" style=\"color:$color_value\">$color_list" if($sp eq "" or $sp eq "3");
> # $colorlist2 .= "<option value=\"$color_value\">$color_list" if($sp eq "2");
> push(@color_userlist, $color_value,$color_list);
}
}
> $color_userlist=join("\|",@color_userlist);
> $color_userlist=~ s/\#/\#?/g;
}
=========================================================


decorate.pl　の　sub face_color{}　の中
=========================================================
foreach (@color_hash){
> print qq($_\n) if($_ =~ /_COLOR.?_/);
}
print <<"EOF";
=========================================================


あと、html.plの中を &color_list;　で検索してコメント化します。
sub i_first{}　と　sub first{}　の２ヶ所あります。
=========================================================
# &color_list;
=========================================================


使い方は、管理画面の色設定のところで、
常連さん用にしたい色のところの区切り文字を　_COLOR_　から　_COLOR3_　としてください。
この方法で設定した色名と色コードを一般の方が選択・入力した場合は 下フレームの文字色($text2)に置換されます。
ただし、_COLOR_ と _COLOR3_ に同じ色が重複して存在する場合は一般の方が選択しても使えちゃうので気をつけてください。
あと　ついでに。
色名・色コードのほかに、セレクトボックス内の表示用の文字列も指定できるようにしちゃったりしてます。。


例）　上が一般用。下は常連さん専用
#bc8f8f_COLOR_rosybrown_COLOR_薄い茶色
#4169e1_COLOR3_royalblue_COLOR3_ＧＯＯ専用


こんな感じでどうでしょうか？？

便乗失礼します。

単純に同じ名前での入室の禁止のように、
すでに入室中の人が使っている色と同じ場合、
色を変更しての入室を促すように（チャット中の設定変更時も被る色は設定できないように）にするにはどうしたらいいのでしょう？

よろしければお知恵をかしてくださいm(__)m

ご親切にどうもありがとうございます。ぐぅさんのソースを見て、いじってみたのですが、
サーバエラー500になってしまいました。chat.cgiとhtml.pl の
記述を私が間違えているような気がします。私の記述を書きますので、
間違いがあったら、ご指摘をお願いします。
chat.cgi
=========================================================
$n_color=~ s/ //g;$n_color2=~ s/ //g;
$s_color=~ s/ //g;$s_color=~ s/\n//g;
require "$html_pl";
&color_list;
$n_color = $text2 if($n_color =~ /[^\w#]/);
$n_color2 = $text2 if($n_color2 =~ /[^\w#]|$color_userlist/);
$s_color = $text2 if($s_color =~ /[^\w#]|$color_userlist/);
$unlock= $FORM{'unlock'};$greet= $FORM{'greet'};
=========================================================
html.pl
=========================================================
@color_hash= split(/\t/, $color_hash);

my($color_value, $color_list,$color_user,$sp,@coloruserlist);
foreach (@color_hash){
if($_ =~ /_COLOR(.?)_/){$sp=$1;
($color_value, $color_list,$color_user) = split(/_COLOR.?_/);
$color_list=$color_user if($color_user);
$colorlist .= "<option value=\"$color_value\" style=\"color:$color_value\">$color_list" if($sp

eq "" or $sp eq "3");
# $colorlist2 .= "<option value=\"$color_value\">$color_list" if($sp eq "2");
push(@color_userlist, $color_value,$color_list);
}
}
$color_userlist=join("\|",@color_userlist);
$color_userlist=~ s/\#/\#?/g;
}
=========================================================
コメント化
=========================================================
sub i_first{
# &color_list;
$j_maxlength = ' maxlength="64"' if($jphone_old);
=========================================================
value="$n_color">$n_color\n);
# &color_list;
print qq($colorlist</select><br>任意指定 <input type="text" name="n_color2" size="8"
=========================================================

以上です。パーミッションは大丈夫だと思うので、やはり私の記述が
誤っていると思います。ご苦労だと思いますが、ご助言をお願い申し上げます<(_ _)>

html.plを下記のようにしてみましたが、まだだめです。
> ご親切にどうもありがとうございます。ぐぅさんのソースを見て、いじってみたのですが、
> サーバエラー500になってしまいました。chat.cgiとhtml.pl の
> 記述を私が間違えているような気がします。私の記述を書きますので、

=========================================================
html.pl
=========================================================
@color_hash= split(/\t/, $color_hash);

my($color_value, $color_list,$color_user,$sp,@coloruserlist);
foreach (@color_hash){
if($_ =~ /_COLOR(.?)_/){$sp=$1;
($color_value, $color_list,$color_user) = split(/_COLOR.?_/);
$color_list=$color_user if($color_user);
$colorlist .= "<option value=\"$color_value\" style=\"color:$color_value\">$color_list" if($sp eq "" or $sp eq "3");
# $colorlist2 .= "<option value=\"$color_value\">$color_list" if($sp eq "2");
push(@color_userlist, $color_value,$color_list);
}
}
$color_userlist=join("\|",@color_userlist);
$color_userlist=~ s/\#/\#?/g;
}

｝の位置を変えたのですが、反映されませんでした…すみません。

=============================================================
my($color_value, $color_list,$color_user,$sp,@color_userlist);
foreach (@color_hash){
if(/_COLOR(.?)_/){$sp=$1;
($color_value, $color_list,$color_user) = split(/_COLOR.?_/);
> push(@color_userlist, $color_value, $color_list) if($sp eq "3");
$color_list = $color_user if($color_user);
$colorlist .= "<option value=\"$color_value\" style=\"color:$color_value\">$color_list" if($sp eq "" or $sp eq "3");
# $colorlist2 .= "<option value=\"$color_value\">$color_list" if($sp eq "2");
}
}
> @color_userlist=grep($_="^$_\$",@color_userlist);
$color_userlist=join("|",@color_userlist);
># $color_userlist=~ s/\#/\#?/g;
=============================================================

ちょっと位置が悪かったところがありました；；
色付けしたところを修正してもらえらばウマい具合になるかと。

それと、専用にblueを指定していた場合、前のままだとroyalblue とかほとんどの青系が引っ掛かっちゃうので修正入れました。すいません。
あと最後の一行は・・・たぶん普通のミスです。謎行ですので削除してください；；

おみくじ機能を複数追加したいのですがどのようにすればいいですか？

例
おみくじ←おみくじ発動発言
天の声＞大吉です。

疲れた←おみくじ発動発言
管理人の声＞ゆっくり休みなさい。

などと複数追加したい場合はどのようにすればいいですか？

こんばんわ。
おもしろそうなのでやってみました。

chat.cgiの中の573行目？あたりの　sub write()　の下のほうのおみくじ処理の部分をいじりました

=================================================
if($cs_omikuji_enable){
　my $match = $chat;
# jcode::convert(\$match, 'euc');
# jcode::convert(\$cs_omikuji_word, 'euc');
> if($match =~ /^($cs_omikuji_word)$/){
$omikuji_flag = 1;
open(IN, $decorate_file) or error(11);
> foreach(split(/\|/,$cs_omikuji_word)){
> if(/$match/){last}else{$ominom++}
> }
my @deco = <IN>;
close(IN);

my $omikuji_msg=pop(@deco);
> my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
> my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
map { chomp; } @omikuji_msg;
my $num=@omikuji_msg;
my $num_random=int(rand $num);

$omikuji_chat = $omikuji_msg[$num_random];
$omikuji_chat =~ s/&quot;/"/g;
$omikuji_chat =~ s/&gt;/>/g;
$omikuji_chat =~ s/&lt;/</g;
$omikuji_chat =~ s/\[NAME\]/$name/g;
$omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;

> @omikuji_name_line = split(/\|/,$cs_omikuji_name);
> @omikuji_n_color_line = split(/\|/,$cs_omikuji_namecolor);
> $omikuji_name = $omikuji_name_line[$ominom] || $cs_omikuji_name;
> $omikuji_n_color = $omikuji_n_color_line[$ominom] || $cs_omikuji_namecolor;
}
}
=================================================

色付けしてある部分がいじったとこです。tabはいじってますのでコピペ後に調整してください。

※使い方
cgiをアップしたら。管理人画面にアクセスします。
して、おみくじの設定のところで

=================================================

[おみくじ|疲れた]: おみくじ機能を利用するための発言文字列

[天の声|管理人の声]: おみくじ機能利用時のお知らせ表示名

[#fe812e|#deeppink]: おみくじ機能利用時のお知らせ表示の色

=================================================
（　[]　←これはtextboxのつもり）
と。こんな風に入力します。区切りは半角の縦棒(?です。全角はダメ。
お知らせ表示名と色 は複数指定しなかった場合は一つ目を自動で選択します。


次にその下のtextareaを=================================================
<font color="[NAME_COLOR]">[NAME]</font>さんは凶です
<font color="[NAME_COLOR]">[NAME]</font>さんは吉です
<font color="[NAME_COLOR]">[NAME]</font>さんは大凶です
<font color="[NAME_COLOR]">[NAME]</font>さんは大吉です

<font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい。
<font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい�A
=================================================

とするんですが、天の声の場合と管理人さんの場合ごとにまとめて、間に一行あけてください（見やすいし
でも そのままただ改行にしとくと切られるので(笑) 半角スペースを入れてごまかしてます。
つまり。区切りに　半角スペース一文字だけの行　を入れてください。

以上です。
区切りさえうまくできれば動きますので ちょっとややこしくなってしまいましたが がんばってください笑
ちなみに、区切りさえできれば（しつこい）何パターンでも増やすことができるので。このままで簡易人工無能にすることもでき・・るかな？笑

サンプルのっけときます。パスは0123です。
おかしかったらまたどーぞ。

初めましてこんにちは！

私もここのチャットを使ってるのですが、このレスの「おみくじ機能増幅」を試してみたくて、ワクチンさんのソースをコピーしてchat.cgiを書き換えてみました。

管理画面の「おみくじ設定」の箇所も、ＧＯＯさんのおっしゃる通りに書き換えました。

テストしてみようと入室したんですが、入室はできてもおみくじを試すどころか発言までできなくなってしまいました。

いろいろチェックしても、どこにミスがあるのかよく分からないので、ワクチンさんのコピーしたソースを一度削除して、保存してあった前のソースを再び貼り付けました。

すると今度は入室すらできなくなってしまいました。

ちなみにエラーのナンバーは５００です。

そしてこれが元のソースです…どこか間違ってるでしょうか？

#...おみくじの実行

if($cs_omikuji_enable){
my $match = $chat;
# jcode::convert(\$match, 'euc');
# jcode::convert(\$cs_omikuji_word, 'euc');
$omikuji_flag = 1;
open(IN, $decorate_file) or error(11);
my @deco = <IN>;
close(IN);

my $omikuji_msg = pop(@deco);
map { chomp; } @omikuji_msg;
my $num = @omikuji_msg;
my $num_random = int(rand $num);

$omikuji_chat = $omikuji_msg[$num_random];
$omikuji_chat =~ s/&quot;/"/g;
$omikuji_chat =~ s/&gt;/>/g;
$omikuji_chat =~ s/&lt;/</g;
$omikuji_chat =~ s/\[NAME\]/$name/g;
$omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;

}
}
}

&lock(1) if($lock_check);
open(IN, "$chat_file") || &error(1);
@lines = <IN>;
close(IN);

あとチャットは１８３ｂを使ってます。

どなたか私のどこにミスがあるのか教えて頂けませんか？

# jcode::convert(\$match, 'euc');
# jcode::convert(\$cs_omikuji_word, 'euc');
> if($match eq $cs_omikuji_word){
$omikuji_flag = 1;


だとおもいます。

やってみました。しかし
>半角スペース一文字だけの行　を入れてください。
この部分がうまくいきません。。。
半角スペース一文字だけの行を挿入して更新すると戻ってしまいます。
区切りを---や+++などするにはどうすればよいですか？



> こんばんわ。
> おもしろそうなのでやってみました。
>
> chat.cgiの中の573行目？あたりの　sub write()　の下のほうのおみくじ処理の部分をいじりました
>
> =================================================
> if($cs_omikuji_enable){
> 　my $match = $chat;
> # jcode::convert(\$match, 'euc');
> # jcode::convert(\$cs_omikuji_word, 'euc');
> > if($match =~ /^($cs_omikuji_word)$/){
> $omikuji_flag = 1;
> open(IN, $decorate_file) or error(11);
> > foreach(split(/\|/,$cs_omikuji_word)){
> > if(/$match/){last}else{$ominom++}
> > }
> my @deco = <IN>;
> close(IN);
>
> my $omikuji_msg=pop(@deco);
> > my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
> > my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
> map { chomp; } @omikuji_msg;
> my $num=@omikuji_msg;
> my $num_random=int(rand $num);
>
> $omikuji_chat = $omikuji_msg[$num_random];
> $omikuji_chat =~ s/&quot;/"/g;
> $omikuji_chat =~ s/&gt;/>/g;
> $omikuji_chat =~ s/&lt;/</g;
> $omikuji_chat =~ s/\[NAME\]/$name/g;
> $omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;
>
> > @omikuji_name_line = split(/\|/,$cs_omikuji_name);
> > @omikuji_n_color_line = split(/\|/,$cs_omikuji_namecolor);
> > $omikuji_name = $omikuji_name_line[$ominom] || $cs_omikuji_name;
> > $omikuji_n_color = $omikuji_n_color_line[$ominom] || $cs_omikuji_namecolor;
> }
> }
> =================================================
>
> 色付けしてある部分がいじったとこです。tabはいじってますのでコピペ後に調整してください。
>
> ※使い方
> cgiをアップしたら。管理人画面にアクセスします。
> して、おみくじの設定のところで
>
> =================================================
>
> [おみくじ|疲れた]: おみくじ機能を利用するための発言文字列
>
> [天の声|管理人の声]: おみくじ機能利用時のお知らせ表示名
>
> [#fe812e|#deeppink]: おみくじ機能利用時のお知らせ表示の色
>
> =================================================
> （　[]　←これはtextboxのつもり）
> と。こんな風に入力します。区切りは半角の縦棒(?です。全角はダメ。
> お知らせ表示名と色 は複数指定しなかった場合は一つ目を自動で選択します。
>
>
> 次にその下のtextareaを=================================================
> <font color="[NAME_COLOR]">[NAME]</font>さんは凶です
> <font color="[NAME_COLOR]">[NAME]</font>さんは吉です
> <font color="[NAME_COLOR]">[NAME]</font>さんは大凶です
> <font color="[NAME_COLOR]">[NAME]</font>さんは大吉です
>
> <font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい。
> <font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい�A
> =================================================
>
> とするんですが、天の声の場合と管理人さんの場合ごとにまとめて、間に一行あけてください（見やすいし
> でも そのままただ改行にしとくと切られるので(笑) 半角スペースを入れてごまかしてます。
> つまり。区切りに　半角スペース一文字だけの行　を入れてください。
>
> 以上です。
> 区切りさえうまくできれば動きますので ちょっとややこしくなってしまいましたが がんばってください笑
> ちなみに、区切りさえできれば（しつこい）何パターンでも増やすことができるので。このままで簡易人工無能にすることもでき・・るかな？笑
>
> サンプルのっけときます。パスは0123です。
> おかしかったらまたどーぞ。

それと
<font color="[NAME_COLOR]">[NAME]</font>さんは凶です
<font color="[NAME_COLOR]">[NAME]</font>さんは吉です
<font color="[NAME_COLOR]">[NAME]</font>さんは大凶です
<font color="[NAME_COLOR]">[NAME]</font>さんは大吉です

<font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい。
<font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい�A

上記のまま貼り付けても半角スペース改行が切られてしまいます。

> やってみました。しかし
> >半角スペース一文字だけの行　を入れてください。
> この部分がうまくいきません。。。
> 半角スペース一文字だけの行を挿入して更新すると戻ってしまいます。
> 区切りを---や+++などするにはどうすればよいですか？
>
>
>
> > こんばんわ。
> > おもしろそうなのでやってみました。
> >
> > chat.cgiの中の573行目？あたりの　sub write()　の下のほうのおみくじ処理の部分をいじりました
> >
> > =================================================
> > if($cs_omikuji_enable){
> > 　my $match = $chat;
> > # jcode::convert(\$match, 'euc');
> > # jcode::convert(\$cs_omikuji_word, 'euc');
> > > if($match =~ /^($cs_omikuji_word)$/){
> > $omikuji_flag = 1;
> > open(IN, $decorate_file) or error(11);
> > > foreach(split(/\|/,$cs_omikuji_word)){
> > > if(/$match/){last}else{$ominom++}
> > > }
> > my @deco = <IN>;
> > close(IN);
> >
> > my $omikuji_msg=pop(@deco);
> > > my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
> > > my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
> > map { chomp; } @omikuji_msg;
> > my $num=@omikuji_msg;
> > my $num_random=int(rand $num);
> >
> > $omikuji_chat = $omikuji_msg[$num_random];
> > $omikuji_chat =~ s/&quot;/"/g;
> > $omikuji_chat =~ s/&gt;/>/g;
> > $omikuji_chat =~ s/&lt;/</g;
> > $omikuji_chat =~ s/\[NAME\]/$name/g;
> > $omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;
> >
> > > @omikuji_name_line = split(/\|/,$cs_omikuji_name);
> > > @omikuji_n_color_line = split(/\|/,$cs_omikuji_namecolor);
> > > $omikuji_name = $omikuji_name_line[$ominom] || $cs_omikuji_name;
> > > $omikuji_n_color = $omikuji_n_color_line[$ominom] || $cs_omikuji_namecolor;
> > }
> > }
> > =================================================
> >
> > 色付けしてある部分がいじったとこです。tabはいじってますのでコピペ後に調整してください。
> >
> > ※使い方
> > cgiをアップしたら。管理人画面にアクセスします。
> > して、おみくじの設定のところで
> >
> > =================================================
> >
> > [おみくじ|疲れた]: おみくじ機能を利用するための発言文字列
> >
> > [天の声|管理人の声]: おみくじ機能利用時のお知らせ表示名
> >
> > [#fe812e|#deeppink]: おみくじ機能利用時のお知らせ表示の色
> >
> > =================================================
> > （　[]　←これはtextboxのつもり）
> > と。こんな風に入力します。区切りは半角の縦棒(?です。全角はダメ。
> > お知らせ表示名と色 は複数指定しなかった場合は一つ目を自動で選択します。
> >
> >
> > 次にその下のtextareaを=================================================
> > <font color="[NAME_COLOR]">[NAME]</font>さんは凶です
> > <font color="[NAME_COLOR]">[NAME]</font>さんは吉です
> > <font color="[NAME_COLOR]">[NAME]</font>さんは大凶です
> > <font color="[NAME_COLOR]">[NAME]</font>さんは大吉です
> >
> > <font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい。
> > <font color="[NAME_COLOR]">[NAME]</font>さん ゆっくり休みなさい�A
> > =================================================
> >
> > とするんですが、天の声の場合と管理人さんの場合ごとにまとめて、間に一行あけてください（見やすいし
> > でも そのままただ改行にしとくと切られるので(笑) 半角スペースを入れてごまかしてます。
> > つまり。区切りに　半角スペース一文字だけの行　を入れてください。
> >
> > 以上です。
> > 区切りさえうまくできれば動きますので ちょっとややこしくなってしまいましたが がんばってください笑
> > ちなみに、区切りさえできれば（しつこい）何パターンでも増やすことができるので。このままで簡易人工無能にすることもでき・・るかな？笑
> >
> > サンプルのっけときます。パスは0123です。
> > おかしかったらまたどーぞ。

>my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);

/\t \t/　の部分ですね。
/\t\+\+\+\t/　とか　/\t\+{3}\t/ とかかな？

あと半角スペース一文字だけ ってのは切られないはずなんですが？そんな処理はされてないので
んでもこの掲示板が切ってる可能性はありますね。

GOOさん色々有難うございます。
確認なんですが、下記であってますよね?

#...おみくじの実行

if($cs_omikuji_enable){
my $match = $chat;
# jcode::convert(\$match, 'euc');
# jcode::convert(\$cs_omikuji_word, 'euc');
if($match =~ /^($cs_omikuji_word)$/){
$omikuji_flag = 1;
open(IN, $decorate_file) or error(11);
foreach(split(/\|/,$cs_omikuji_word)){
if(/$match/){last}else{$ominom++}
}
my @deco = <IN>;
close(IN);

my $omikuji_msg = pop(@deco);
my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
my @omikuji_msg = split(/\t/, $omikuji_msg);
map { chomp; } @omikuji_msg;
my $num = @omikuji_msg;
my $num_random = int(rand $num);

$omikuji_chat = $omikuji_msg[$num_random];
$omikuji_chat =~ s/&quot;/"/g;
$omikuji_chat =~ s/&gt;/>/g;
$omikuji_chat =~ s/&lt;/</g;
$omikuji_chat =~ s/\[NAME\]/$name/g;
$omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;

@omikuji_name_line = split(/\|/,$cs_omikuji_name);
@omikuji_n_color_line = split(/\|/,$cs_omikuji_namecolor);
$omikuji_name = $omikuji_name_line[$ominom] || $cs_omikuji_name;
$omikuji_n_color = $omikuji_n_color_line[$ominom] || $cs_omikuji_namecolor;
}
}
}

&lock(1) if($lock_check);
open(IN, "$chat_file") || &error(1);
@lines = <IN>;
close(IN);

> >my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
>
> /\t \t/　の部分ですね。
> /\t\+\+\+\t/　とか　/\t\+{3}\t/ とかかな？
>
> あと半角スペース一文字だけ ってのは切られないはずなんですが？そんな処理はされてないので
> んでもこの掲示板が切ってる可能性はありますね。

my $omikuji_msg = pop(@deco);
my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
★my @omikuji_msg = split(/\t/, $omikuji_msg);
map { chomp; } @omikuji_msg;
my $num = @omikuji_msg;
my $num_random = int(rand $num);
★の部分が不要でしたね。

有難うございました。解決しました。
m(＿ ＿)m

> GOOさん色々有難うございます。
> 確認なんですが、下記であってますよね?
>
> #...おみくじの実行
>
> if($cs_omikuji_enable){
> my $match = $chat;
> # jcode::convert(\$match, 'euc');
> # jcode::convert(\$cs_omikuji_word, 'euc');
> if($match =~ /^($cs_omikuji_word)$/){
> $omikuji_flag = 1;
> open(IN, $decorate_file) or error(11);
> foreach(split(/\|/,$cs_omikuji_word)){
> if(/$match/){last}else{$ominom++}
> }
> my @deco = <IN>;
> close(IN);
>
> my $omikuji_msg = pop(@deco);
> my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
> my @omikuji_msg=split(/\t/, $omikuji_msg_line[$ominom]);
> my @omikuji_msg = split(/\t/, $omikuji_msg);
> map { chomp; } @omikuji_msg;
> my $num = @omikuji_msg;
> my $num_random = int(rand $num);
>
> $omikuji_chat = $omikuji_msg[$num_random];
> $omikuji_chat =~ s/&quot;/"/g;
> $omikuji_chat =~ s/&gt;/>/g;
> $omikuji_chat =~ s/&lt;/</g;
> $omikuji_chat =~ s/\[NAME\]/$name/g;
> $omikuji_chat =~ s/\[NAME_COLOR\]/$n_color/g;
>
> @omikuji_name_line = split(/\|/,$cs_omikuji_name);
> @omikuji_n_color_line = split(/\|/,$cs_omikuji_namecolor);
> $omikuji_name = $omikuji_name_line[$ominom] || $cs_omikuji_name;
> $omikuji_n_color = $omikuji_n_color_line[$ominom] || $cs_omikuji_namecolor;
> }
> }
> }
>
> &lock(1) if($lock_check);
> open(IN, "$chat_file") || &error(1);
> @lines = <IN>;
> close(IN);
>
> > >my @omikuji_msg_line=split(/\t \t/, $omikuji_msg);
> >
> > /\t \t/　の部分ですね。
> > /\t\+\+\+\t/　とか　/\t\+{3}\t/ とかかな？
> >
> > あと半角スペース一文字だけ ってのは切られないはずなんですが？そんな処理はされてないので
> > んでもこの掲示板が切ってる可能性はありますね。

新バージョンのTeaChat 1.8.3bにしてから、セキュリティ設定の 同一内容の連続発言を禁止する がチェックしてもなんの効果もなくなっているようなのですが、同じようになった方はいらっしゃいませんでしょぅか?携帯からの同一内容の連続発言が多いです。携帯からだとIPアドレスが変わるから無理という事なのでしょうか?いろいろ検索してみたのですが、見つかりませんでした。どなたかご教授願えばと思います。申し訳ありませんがよろしくお願いいたします。

携帯だけの話かな？。。ＰＣは効いてるかと。
携帯はそのとおりですね。ホストで判断しているので携帯の方の連続発言はほとんどすり抜けちゃいます。

いっそホストの比較をなくしちゃうのも手かなぁと思います。
ホストをなくすと、名前・発言内容　を比べて同じだったらログ保存しないことになるんですが、名前が同じ参加者がいることも稀だろうしその人達が同じ内容を繰り返すこともほとんどないのかと思うので、現実的には充分かなぁと思います。

さらに名前も比較しなくするとおもしろいかも笑（ぇ
まぁ置いておいて
chat.cgiの sub write()の中
>if(($last_name eq $name) && ($last_comment eq $chat) && ($last_realhost eq $host)){
このまま検索かけたら見つかります。
この部分を
>#if(($last_name eq $name) && ($last_comment eq $chat) && ($last_realhost eq $host)){
>if(($last_name eq $name) && ($last_comment eq $chat)){

戻したくなったときのために、元の行はシャープ#でコメント化しておきましょう。


やるとしたらこんな感じですね。どぉでしょぉ？

なるほど。全ての疑問がぐぅさんの返信で解決しました。ありがとうございます。携帯のみダメだったのですね。なるほど。ホストの比較をなくすと大丈夫という事ですね。ぐぅさんの教えていただいた方法は、大事に保存しておいて、あまりにもひどくなった時に使用させていただきます。今現在もかなりひどい時がありますが、携帯だけという事が分かりましたので、もうしばらく現状で様子をみようと思います。本当にありがとうございました。

teachat、快適に使わせて頂いています。
質問なのですが、広告を手動で挿入するにはどのようにすればいいのでしょうか？
land.toというサーバーで設置したのですが、.htaccessファイルで広告を一度消したまではよいのですが、どのファイルにどんな記述を加えればよいのか分かりません…
下フレームの最下部に挿入したいのですが、やり方を教えていただけませんでしょうか？
よろしくお願いします。

こんにちわ。

どうゆう仕組みなのか全然わからないですけど。。予想で（ぇ
たぶんなんかのタグを入れるんですよね？予想だけど。

そしたら。chat.cgiの上のほうに
$endhtml = '<noembed><noscript><noscript><noscript><noscript>';
ってのがあるので、これの一番先頭に足してみたらどうかと・・・（？

$endhtml = '<広告タグ><noembed><noscript><noscript><noscript><noscript>';

よくわからないのにレスしてすいません；

Teachatは、レンタルCGIではないですよ。

ネットワーク エラーが発生したので、ファイルを再生できません。サイト
が使用できない場合があります。ネットワークに接続していること、およびプロキシ設定が正しいことを確認してください。

これを見たあなた!!ヾ(・ε・。)
　あなたゎこの１ヶ月以内に好きな人と両思い
またゎ付き合っている子ゎすごくLOVE２になります!!
それにゎこの文章をコピーして他の掲示板に３回別の掲示板に
はればOK!!!たったこれだけであなたわぁ
最高の生活がおくれます!!
ただしこれをしなかったら
きっと両思いになることゎないでしょう!!(/□≦、)
やった子ゎ今でゎ学校１のLOVE２カップルです!!
これをやらなかった子ゎすぐに彼氏と別れてしまいました

入室画面と変更画面の　行間小と罫線-有無

発言画面の 電報隠す 電報 と　高速表示 タグ有効　と
ログ(250/500/MAX)-別窓/高速
　
を管理画面の機能選択からチェックボックスで表示の有無の選択をできるようにするにはどうすればいいんでしょうか。

ここのチャットを使いたいと思って
設置しようと思ってるんですが、皆様はどこのレンタルサーバーを
お使いになってるんですか？
よければ　教えてください。

私はFC2なのですが　ここはCGI禁止なので、新しく登録しなおしたいんで
その参考にしたいんです。　どうか　よろしくお願いします。
できれば無料のところがいいんですが【;;´・_●・】

> どのファイルのどこに書き込めば広告は消えますか？
> 上にも下にもある必要はないと思います。

TeaChat1.8.4bで、Shift-JISモードで動かしているときに、禁止ワードを設定しても、禁止ワードが全角だけだとうまく動作しない現象が起きるみたいなのでこれを修正したいのですが、ここの処理がなにをやっているのか自分ではよくわからずに行き詰っています。

>sub xwords_match{
> my $match = 0;
> my $chat_mes = $chat;
> $xwords =~ s/\|$//g;
> $xwords =~ s/^\|//g;
> my @xwords = ($kcode eq 'euc') ? split(/\|/, $xwords) : split(/(?<=[^\x81-\x9f\xe0-\xfe])\|/, $xwords);
>
> foreach $xword (@xwords){
> if($xword && ($chat_mes =~ /\Q${xword}\E/)){
> $match = 1;
> last;
> }
> }
> return $match;
>}

たぶん、こちらが見た感じでは６行目をどうにか修正すれば何とかなるのじゃあないのかと思うのですけど、この６行目の意味が自分に理解できませんので、誰かお知恵を拝借できればと思いまして、よろしくお願いします。

たしかに謎ですね。意図が知りたいですね・・・？？

ただ、バグなのは確かですね。
foreachの中に　$chat .=",$xword";　を入れてテストしてみたところ。うまく区切れてないことがわかりました。

区切り文字は漢字コードに関係なく　|　なのだから・・・６行目は
my @xwords = split(/\|/, $xwords);
あるいは・・・？？
my @xwords = split(/\x7c/, $xwords);
？？でよいのではないかと・・・？？

コレで同じようにテストしたところ。こっちはうまく区切れてました。もっと詳しい方の回答を望みます笑

どうもです。

> 区切り文字は漢字コードに関係なく　|　なのだから・・・６行目は
> my @xwords = split(/\|/, $xwords);
> あるいは・・・？？
> my @xwords = split(/\x7c/, $xwords);
> ？？でよいのではないかと・・・？？

たしかに区切ることはできるのですけど、今度は過去記事2555にあるようにShift-JISの２バイト目に\x7cを含む文字を禁止ワードに入れると動作がおかしくなるのですよね。
全角文字でない半角の|で、うまく区切る必要があると思って今考えているのだけど、なかなかうまく行かないのですよね。

ほうなるほど。そうゆう意図ですか・・・

確かに弓は区切られませんでしたね。
とゆうことは・・

この正規表現は、\|の前に漢字コードの１バイト目になりうるものが来てないものを区切りコードとして認識することを期待しているものですね・・・\x81-\x9F　と　\xE0-\xFC　\|に先行しない。となってるので・・
一見いいように見えるけど・・ダメなんすよね・・なんででしょ。

あ。
0x40-0x7E, 0x80-0xFC　これがs-jisの第二バイトなので、２バイト目がこれの漢字にひっかかるんですね・・・


とりあえず。報告です。
作る自身はないです。すいません。

うーん・・・
やっぱりこのサブルーチンの６行目がおかしいのかな。

>my @xwords = ($kcode eq 'euc') ? split(/\|/, $xwords) : split(/(?![\x81-\x9f\xe0-\xfc])\|/, $xwords);

いろいろ正規表現とか調べてこうしてみたら、とりあえずうまく行ったみたい。これじゃあまずいとか、もっといい方法あるよって意見あったら、どなたか教えていただければ幸いです。

６行目に入る前に何か先処理でもさせたほうがいいんですかね。。あるいは後か・・
ちなみにそのコードはNo2555の弓を取れない問題に戻ってますけど・・？

あー。２バイト目が7cな文字が一般的に不正ワードかどうか全て調べてみたほうが話早いような気もします笑
うまく取る方法は・・研究ですかね。

何かやるだけややこしくなってしまいそうだから・・・
いっそのこと半角の「,」とか「;」のような\x40より下の記号で区切るように改造してしまったほうがいいかなとか思ってみたり・・。

それ無難かな。。
互換性なくなりますが

互換性を残すなら、処理は複雑になるけど・・・コメントアウトされている以前のサブルーチンを参考にして・・・

>sub xwords_match{
> my $match = 0;
> my $chat_mes = $chat;
> $xwords =~ s/\|$//g;
> $xwords =~ s/^\|//g;
> if(!$euc_on){
> jcode::convert(\$chat_mes, 'euc');
> jcode::convert(\$xwords, 'euc');
> }
> my @xwords = split(/\|/, $xwords);
>
> my $ascii = '[\x00-\x7F]';
> my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
> my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
>
> foreach $xword (@xwords){
> if($xword && ($chat_mes =~ /^(?:$ascii|$twoBytes|$threeBytes)*?(?:\Q${xword}\E)/)){
> $match = 1;
> last;
> }
> }
> return $match;
>}
以前のものは、my @xwords = split(/\|/, $xwords);がコンバートよりも前に来ていたのでこのままではおそらく弓とかが正しく区切れないのでこの場所が移動したくらいだと思う。
この場合は処理が複雑になる以外に、半角カナを禁止ワードに設定してもうまく動作しないという問題は残りますが・・・。

もっと簡単に済ませることができるという意見ございましたら、教えてくだされば幸いです。

>sub xwords_match{
> my $indx;
> my $match = 0;
> my $chat_mes = $chat;
> $chat_mes=~ s/[\s　]//g;
> $xwords =~ s/\|$//g;
> $xwords =~ s/^\|//g;

> while($xwords=~ /([\x00-\x7f\xa1-\xdf]|..)/g){ if($1 eq '|'){$indx++}else{$xwords[$indx].=$1} }

> foreach $xword (@xwords){
> if($xword && ($chat_mes =~ /\Q${xword}\E/)){
> $match = 1;
> }
> }
> return $match;
>}


こう・・原始的に・・・一文字ずつやったらどうなんだろ・・
と。フと思ってやってみた。。。あっさり成功？

弓もとれたし半角カナもとれた・・・
んー・・　いいのかな・・？

やってみたけどダメだったー　なんて方いたら教えてもらえたら勉強になります。
ここがこうダメだー　なんて言ってくれる方に教えてもらえたらもっと勉強になります（何

どうも、その節ではお世話になりました零式です。

今、入室退室メッセージから強調タグの効果を外して、
タグを有効にしたいのですが、手段が分かりません、

そこで皆様の力をお貸し頂きたく、また書き込みをさせて頂きました。
どうか、上の二つの状態にする方法を、教えてはくれないでしょうか？
お願いします。（_　_）

> どうも、その節ではお世話になりました零式です。
>
> 今、入室退室メッセージから強調タグの効果を外して、
> タグを有効にしたいのですが、手段が分かりません、
>
> そこで皆様の力をお貸し頂きたく、また書き込みをさせて頂きました。
> どうか、上の二つの状態にする方法を、教えてはくれないでしょうか？
> お願いします。（_　_）

上記のメッセージと帰した部分ですが、すみません、
メッセージ、ではなく発言、でした。訂正いたします。（_　_）

初めまして。
とても使いやすく、捜し求めていたチャットです＾＾

質問ですが、携帯ユーザーの発言も文字色変更できるようにするにはどうしたらいいでしょうか？
色々といじってみましたが、なかなか上手くいきませんι

ご教授願います；
(使用チャット:TeaChat 1.8.3b)

この前はお世話になりましたm(_ _)m

サーバーをあの後解約して、再び契約したのですが問題点があったので再び質問させてくださいι

●携帯で選んだ文字色がPC以外反映されない。
●文字色変更の命令を加えたら、携帯ユーザーの退出表示がされなくなった。

以上2点なのですが・・・どなたかご教授お願いしますι

書き忘れてましたι
前も現在も「さくらインターネットサーバー」を使用しています。

>●携帯で選んだ文字色がPC以外反映されない。
あー。。そうですね。
#がカットされちゃうのを忘れてましたね

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
sub log_print{
　local ($time_v, $host3_v, $hua2, $name, $email, $chat, $n_color, $s_color, $greet, $s_host_v, $s_host_n, $realhost) = split(/\t/, $chatline);
　$realhost =~ tr/\x0D\x0A//d;
>　$n_color='#'.$n_color if($n_color=~ /^[a-f0-9]+$/i);
>　$s_color='#'.$s_color if($s_color=~ /^[a-f0-9]+$/i);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
こんな感じでてきとに・・
あ。ついでに。
sub write() の中も。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
sub write{
　my ($omikuji_chat, $omikuji_name, $omikuji_n_color, $omikuji_flag, $omikuji_line);
　$omikuji_flag = 0;
>　$n_color='#'.$n_color if($n_color=~ /^[a-f0-9]+$/i);
>　$s_color='#'.$s_color if($s_color=~ /^[a-f0-9]+$/i);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
（色のついたところ以外は違ってても気にしないでください；；）


>●文字色変更の命令を加えたら、携帯ユーザーの退出表示がされなくなった。
んー・・・　なにかのまちがいじゃ？笑（ぉ

追加するだけでエラーってのはナイと思いますね。試したけどエラーは出ませんでした。
逆に エラーがでるものを回答したりしません笑

どっか違うところをいじったとかありませんかね？

もう一度ダウンロード(「ぐぅ」さんのとTEACHAT本体)し直してアップしたら表示できるようになりましたι
お騒がせしてすみませんm(_ _;)m


しかし相変わらず携帯ユーザーの退室表記がされませんι
いじったところは・・・ログ行数選択とリロード時間しか・・・

うーむ、謎ですι
一応問題のチャットとアップしたセットを載せておきます。
http://read.kir.jp/file/read9995.zip

・・・ぇーと。。

あの。。
こっちで出してしまったバグかと思ってたんですけど・・・ぜんぜんですね。

chat.cgiの　sub decode{}の中のコメント化されてるところにこう書いてあります。
># 退室時は「0.退室」が変数exitにセットされて来るのでそれを判別
># by Gprog.さん


つまり。html.plの　i_operation{}で、
><input type="submit" value="退室" $accesskey="" name="exit">
となっているところを
><input type="submit" value="0.退室" $accesskey="" name="exit">
に戻してもらえればよいです。

こんばんわぁ。

ぇと長くなります（ぇ
この質問はけっこう多いみたいなので。バージョンアップに期待しつつ。説明を載せておきます。

http://goosys.clean.to/tc183b4/s_color.zip
1.8.3bをこの質問の部分だけ修正したものを載せておきます。これでよかったらＤＬしてもらって 入っているファイルを上書きして使ってください。

=========================================================
以下。修正した部分の説明です。※「��」のとこで中略してます
=========================================================
まず。html.pl

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub i_operation{
>　my($submitvalue);

　$j_maxlength = ' maxlength="64"' if($jphone_old);
　$filecheck = "";
　$nowtime = time();
>　$submitvalue=join($k_splitchar,$name,"\on",$window,$n_color,$filecheck,$nowtime,$s_color,'');
print <<"EOF";
<form method="$method" action="$script">
><input type="hidden" name="imode" value="$submitvalue">
<input name="chat" size="8"$j_maxlength>
<input type="submit" value="1.発言" $accesskey="1"><br>
<input type="submit" value="0.退室" $accesskey="0" name="exit">
</form>
EOF
��
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
・・・別にケンカうってるわけじゃありません（何(謎

そして。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub i_first{
　&color_list;
　$j_maxlength = ' maxlength="64"' if($jphone_old);

　&http_header;
　print qq(</head>$body>\n);
　print qq($title\n) unless($jphone);
　print <<"EOF";
<hr size="1"><form method="$method" action="$script">
<input type="hidden" name="enter" value="on">
<input type="hidden" name="chat" value="enter">
<input type="hidden" name="view" value="on">
名前<input name="name" size="10"$j_maxlength><br>
>名前色<br>
><select name="n_color" size="1">$colorlist</select><br>
>文字色<br>
><select name="s_color" size="1">$colorlist</select><br>
ログ<br>
<select name="window" size="1"><option>7
<option>10<option>20<option>30<option>40<option>50<option>100</select>行<br>
<!--
<input type="checkbox" name="filecheck" value="on">新規の発言がない場合はログを表\示しない（パケット代節約の為）<br>
-->
<input type="submit" value="1.入室" $accesskey="1">

</form>
EOF
��
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

次に chat.cgi。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub log_print{
��
　else{
　　$chat=~s/<[^>]*>//ig;
　　$greet=~s/<[^>]*>//ig;
>　　$chat=qq(<font color="$s_color">$chat</font>) if(!$flag_e && $saycolor_check);
　　print qq(<font color="$n_color_ch">$name</font>$secflag &gt; $chat $greet\[$date_i\]);
��
　　if($line_ch eq "on"){ print qq(<hr class="line">); }
　　else{ print "<br>"; }

　　print "\n";
　　return 1;
　}
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
と。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub decode{
��
　if($ktai_ua && $FORM{'imode'}){
　　$imode = $FORM{'imode'};
>　　($name,$view,$window,$n_color,$filecheck,$lastreload,$s_color) = split(/$k_splitchar/,$imode);
　　if($FORM{'exit'} =~ m/^0\./){
　　　$chat = "exit";
　　　$exit = "on";
　　}
　}
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
=========================================================


ふぅ・・・；
と。これだけ直せば動きました;;
色のついてる部分を修正しています。コピペするときは行の最初の > を消すのを忘れないようにしてください。

おかしい点などありましたらレスしてもらえると助かります。
ではノシ

> こんばんわぁ。
>
> ぇと長くなります（ぇ
> この質問はけっこう多いみたいなので。バージョンアップに期待しつつ。説明を載せておきます。
>
> http://goosys.clean.to/tc183b4/s_color.zip
> 1.8.3bをこの質問の部分だけ修正したものを載せておきます。これでよかったらＤＬしてもらって 入っているファイルを上書きして使ってください。
>
> =========================================================
> 以下。修正した部分の説明です。※「��」のとこで中略してます
> =========================================================
> まず。html.pl
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> sub i_operation{
> >　my($submitvalue);
>
> 　$j_maxlength = ' maxlength="64"' if($jphone_old);
> 　$filecheck = "";
> 　$nowtime = time();
> >　$submitvalue=join($k_splitchar,$name,"\on",$window,$n_color,$filecheck,$nowtime,$s_color,'');
> print <<"EOF";
> <form method="$method" action="$script">
> ><input type="hidden" name="imode" value="$submitvalue">
> <input name="chat" size="8"$j_maxlength>
> <input type="submit" value="1.発言" $accesskey="1"><br>
> <input type="submit" value="0.退室" $accesskey="0" name="exit">
> </form>
> EOF
> ��
> }
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> ・・・別にケンカうってるわけじゃありません（何(謎
>
> そして。
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> sub i_first{
> 　&color_list;
> 　$j_maxlength = ' maxlength="64"' if($jphone_old);
>
> 　&http_header;
> 　print qq(</head>$body>\n);
> 　print qq($title\n) unless($jphone);
> 　print <<"EOF";
> <hr size="1"><form method="$method" action="$script">
> <input type="hidden" name="enter" value="on">
> <input type="hidden" name="chat" value="enter">
> <input type="hidden" name="view" value="on">
> 名前<input name="name" size="10"$j_maxlength><br>
> >名前色<br>
> ><select name="n_color" size="1">$colorlist</select><br>
> >文字色<br>
> ><select name="s_color" size="1">$colorlist</select><br>
> ログ<br>
> <select name="window" size="1"><option>7
> <option>10<option>20<option>30<option>40<option>50<option>100</select>行<br>
> <!--
> <input type="checkbox" name="filecheck" value="on">新規の発言がない場合はログを表\示しない（パケット代節約の為）<br>
> -->
> <input type="submit" value="1.入室" $accesskey="1">
>
> </form>
> EOF
> ��
> }
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
> 次に chat.cgi。
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> sub log_print{
> ��
> 　else{
> 　　$chat=~s/<[^>]*>//ig;
> 　　$greet=~s/<[^>]*>//ig;
> >　　$chat=qq(<font color="$s_color">$chat</font>) if(!$flag_e && $saycolor_check);
> 　　print qq(<font color="$n_color_ch">$name</font>$secflag &gt; $chat $greet\[$date_i\]);
> ��
> 　　if($line_ch eq "on"){ print qq(<hr class="line">); }
> 　　else{ print "<br>"; }
>
> 　　print "\n";
> 　　return 1;
> 　}
> }
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> と。
>
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> sub decode{
> ��
> 　if($ktai_ua && $FORM{'imode'}){
> 　　$imode = $FORM{'imode'};
> >　　($name,$view,$window,$n_color,$filecheck,$lastreload,$s_color) = split(/$k_splitchar/,$imode);
> 　　if($FORM{'exit'} =~ m/^0\./){
> 　　　$chat = "exit";
> 　　　$exit = "on";
> 　　}
> 　}
> }
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> =========================================================
>
>
> ふぅ・・・；
> と。これだけ直せば動きました;;
> 色のついてる部分を修正しています。コピペするときは行の最初の > を消すのを忘れないようにしてください。
>
> おかしい点などありましたらレスしてもらえると助かります。
> ではノシ

ちゃんと正常に動作したのですが
これじゃ文字色と名前色が一緒のとこから選ぶ事になりまよね？
一緒じゃなくって別々にすることは出来ますか？
誰か教えてください。
よろしくお願いします(;^_^Ａ　

あ、どうも返事ありがとうございます。

えっと、先ほどのは言い方悪くてすみませんでした（汗）

>名前色<br>
><select name="n_color" size="1">$colorlist</select><br>
>文字色<br>
><select name="s_color" size="1">$colorlist</select><br>
↑のは両方とも管理モードの色に追加してある色が同じようにリストに出るので、これを名前色と文字色で違うリストにしたいんです。

これで分かりますか？(^▽^;)
説明下手でごめんなさい。

よければやり方を教えてください。
よろしくお願いします

予想外の展開（ぇ

html.plの sub color_list()
===========================================================
foreach (@color_hash){
if($_ =~ /_COLOR_/){
($color_value, $color_list) = split(/_COLOR_/, $_);
$colorlist = $colorlist."<option value=\"$color_value\" style=\"color:$color_value\">$color_list";
}
> if($_ =~ /_COLOR2_/){
> ($color_value, $color_list) = split(/_COLOR2_/, $_);
> $colorlist2 .= "<option value=\"$color_value\" style=\"color:$color_value\">$color_list";
> }
}
===========================================================
こんな感じにテキトゥに追加。

あと。
decorate.plの　sub face_color()
===========================================================
foreach (@color_hash){
> print qq($_\n) if($_ =~ /_COLOR2?_/);
}
===========================================================
と、変更。

そして html.pl の　sub i_first()
===========================================================
文字色<br>
><select name="s_color" size="1">$colorlist2</select><br>
===========================================================

あとは管理画面に行って設定します。
管理画面で名前色を設定するときに _COLOR_　で区切っていたので、
その同じテキストエリア内に _COLOR2_ で区切ったものを追加してください。それが新しく文字色用のリストになります。

ぐぅさんありがとうございました。

出来ました(・ω・)ノ

またなにかあったらよろしくです＾＾

文字装飾の「透明」なんですが、ROMモードで反転させても見えないように出来ますでしょうか？
例えば、CGIBOYのチャットのように・・・

よろしくお願いします。

http://www.1boy.jp/
ここでTEACHATのレンタルがされているようです。

> CGI禁止サイトで設置したいのですが、レンタルは
> ムリなんですか？

レンタルというのは、
「Teachat.org管理人のT.Sさんが、このチャットの貸し出しサービスをしててkopiさんがそれを借りて利用したい」
ということでしょうか。
そういうことならば、レンタルなどはされていないと思われます。チャットを貸し出しているサービスはWeb上で検索すればいくつか出てくると思いますので探してみてはいかがでしょうか。
基本的にCGI禁止のスペースをお使いになっている場合は、掲示板やチャットについての選択肢はきわめて狭いとお考えになったほうがよろしいでしょう。

レンタルは、大丈夫です。

TeaChat 1.8.4bを利用させていただいております。

一部のＡＵ携帯でソースが表示されるという不具合が出ています。
今不具合が確認されたのは、W21CA�Uなんですが…
対応方法はありませんでしょうか？

無視リストを携帯対応にしたいので、
一応自分なりに色々やってみたのですが、
どうも携帯だとPCと同じ無視リスト画面をそのままでは表示出来ないみたいで、携帯版の入室画面に戻ってしまうですよね。

どなたか方法が分かる方が居ましたら、宜しくお願いします。

> 質問です
>
> 携帯の一つの機種だけをアク制する事は出来ますか？

他サイトですが、CGIROOMさんの
utnアクセス制限プログラムを組み込めば出来ると思います。
ただ、ドコモ以外の入室は出来なくなりますけど。

前々から此処のチャットを使いたいと思い
無料のホームページスペースを借りて　いざ設置しようと思い
色々と勉強しながら
必死こいて　頑張ってみたのですが
やはり力不足で　できませんでした。il||li＿|￣|○il||li

この際　借りるスペースを変えて　また一からやりたいと思うのですが
皆様が使っている、いい無料スペースはないでしょうか??。0�・(ノд`)0�・。
どぉしても　ここのチャットが使いたいのです。

後できれば　そのレンタルサーバーでの設置方法などを
詳しく教えていただきたいのです。
図々しくて誠にすみません。(;´瓜｀)
色々勉強しますので　ご教授の方お願いします。

若い女の子をハメまくり！モテモテオヤジへの道をこっそり教えちゃいます。
無料ハメ撮り画像も大好評掲載中！

http://blog.ikkinomi.com/

配信停止：http://www.formzu.jp/formgen.cgi?ID=c2922447

いつもTeachatにはお世話になっております。
こちらの掲示板の過去ログ「携帯での文字色を」のぐぅさんの方法を用いて、携帯から文字色を反映することができたのですが、
設定後、特定の部分の色が反映されなくなってしまいました。

場所は、お知らせのメッセージ部分とおみくじのメッセージ部分です。
（PC表示では反映されていますが、携帯からだと色が反映されていません）

『おみくじ > 〜〜さん、大吉』
↑で言うと、「〜〜さん、大吉」の部分の色が反映されません。

原因が分かる方がおられましたら、ご教授頂けると幸いです。


尚、上記とは関係ないのですが、携帯からも挨拶機能が利用できるよう「html.pl」内に、

挨拶　<input type="text" name="greet" size="16" maxlength="45" class="i_text">

を追記したところ、メッセージは表示されるのですが同じく色が反映されません。
この原因は、上記の理由と関係があるのでしょうか？

もしよろしければお願い致します。

> 設定後、特定の部分の色が反映されなくなってしまいました。

設定後・・・ですか？？？元からこうだと思いますが・・・？

chat.cgi 、sub log_print{}の中。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
else{
>$chat=~s/<[^>]*>//ig if(!$flag_e);
>$greet=~s/<[^>]*>//ig if(!$flag_e);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
携帯の場合は発言部分のタグが全て切り取られるので、おみくじと入退室のときのみその処理しないようにすればよいかと。
タグを切り取らないので、おみくじや入退室メッセージを作るときはフォントタグ以外は使わないように注意してください。

> 設定後・・・ですか？？？元からこうだと思いますが・・・？

スイマセン(*＞＜)ノシ
よく考えてみたら元から色が出てなかった気がします。
無知のクセに色々いじくっているので頭混乱してます(笑)
ホント申し訳ないです....しかもやり方まで教えていただいて恐縮です。

無事、携帯でも色を反映することができました。
これでおみくじのバリエーションも少し工夫できそうです。
レスありがとう御座いました。
ちなみに文字色のやり方も大変感謝してます。
ご迷惑お掛けしました。

はじめまして。ＴＥＡＣＨＡＴを自分のＨＰに使おうと思ってます。

http://www.kent-web.com/www/で自分のＰＣに無料サーバーを
ダウンロードしてＴＥＡＣＨＡＴを動作テストしようとしたの
ですが、うまく動作しませんでした。
入室画面は表示されるのですが、下フレームのログ表示がされず、
入室画面の下のほうにStatus: 204 Status: 204 Status: 204と
永遠に表示されていってしまい、なぜか動作も重いです。

試しにhttp://www.cup.com/yui/でyuichat2をダウンロードして
動作テストしたところ、うまくいきました。

どうしてもＴＥＡＣＨＡＴを自分のＰＣで動作テストしたいので
ご指導よろしくお願い致します。

こんにちは、teachatを試させてもらっています。
いくつかカスタマイズしたい箇所があるので質問させて頂きます。

・下フレームの発言行間の区切り線を細いシンプルな線にしたいのですが、どこをどんな風にいじれば良いのでしょうか？
chat.cgiの最後の方の「スタイルシート」部だとは思うのですが…。

・上下のフレームを区切るフレームボーダーを無しにしたい。

・上フレームはデフォルトだと、右の方になにも表示されていないのに左右のスクロールバーが現れるのが早いので、最初の巾指定を狭くしたい。

どこを変えれば良いのかも含めてご教授いただければ幸いです。
三番目はうまく説明できてないと思うのでわからなかったら済みません。

おはよーございます
さっそく。

> ・下フレームの発言行間の区切り線を細いシンプルな線にしたいのですが、どこをどんな風にいじれば良いのでしょうか？
これは
管理画面→デザイン→下フレーム→罫線のスタイル　を　標準　にすればよいです。

> ・上下のフレームを区切るフレームボーダーを無しにしたい。
こっちは、html.plの最初

</head>\n<frameset rows="120,*">\n<frame src="$script?first=on" target="_self" name="operation" marginwidth="5" marginheight="5" frameborder="0">
<frame src="$frame2" target="_self" name="chatdisp" marginwidth="10" marginheight="7" frameborder="0">

と、frameborder属性を入れてやればォーヶィですね。

> ・上フレームはデフォルトだと、右の方になにも表示されていないのに左右のスクロールバーが現れるのが早いので、最初の巾指定を狭くしたい。
>
> どこを変えれば良いのかも含めてご教授いただければ幸いです。
> 三番目はうまく説明できてないと思うのでわからなかったら済みません。
わかりません笑　すいません
左右スクロールバーは・・そうとう幅縮めないと出ないと思いますが・・・？？うまく解釈できなかったのでパスです笑

こんばんは、レス感謝です。

> 管理画面→デザイン→下フレーム→罫線のスタイル　を　標準　にすればよいです。

これはそうなのですが、ブラウザによっては線がこの設定でもやけに太いのです。HTMLタグで言うところの<hr size="1" noshade>くらいになればと思ったのですが…。

フレームボーダーについてはできました！ありがとうございます。

> わかりません笑　すいません
> 左右スクロールバーは・・そうとう幅縮めないと出ないと思いますが・・・？？うまく解釈できなかったのでパスです笑

いやこちらこそすみません。これもブラウザによってですね。説明が足りませんでした。ソースよりもブラウザの解釈の問題ですね。
Mac版のIEだと（古！）、横幅にまだ余裕がある700pixelくらいで
もうスクロールバーが出てしまいます。これも研究ですね。
ともあれありがとうございます！助かりました

教えてください。
まったくの初心者です。ＣＧＩについて色々勉強（？）してみたのですが分かりません。
ダウンロードし解凍…エディタ…まではできるのですが後が全然分かりません。どなたか分かりやすく教えて欲しいです。

少々情報不足なので。質問いいですかね？

ファイルの転送法がわからないということでしょうか？
つまりＦＴＰソフトなどの使い方を説明すればいいのですかね？？
この部分をもう少しおねがいします。

はい。
ＣＧＩをダウンロード、解凍までは出来るのです。
そのあとにエディタで開きますよね？で、そこでの設定の仕方からも
つまずいてしまってるんです。
何度も勉強したりしているのですが…どうしても分かりません。
（どこを、どう書き換えればいいかも分かりません）
そのあとのＦＴＰソフトの使い方さえも…。最近やっとＣＧＩというのも分かってきた私がチャットと設置するという無謀な考えなんですが（汗）
どうしても気に入ってしまって。
出来れば教えて欲しいです。

こんにちわ。

エディタで書き換えるのは　chat.cgiの先頭を数ヶ所です。
--------------------------------------------------
まず。１行目（行数はver.183b)

#!/usr/local/bin/perl


これをお使いのサーバさんの指定どうりになるように書き換えます。
このままでいい場合もありますが、書換えないとダメな場合もあるようですので。サーバさんのサイトでパスを探してきてください。
↓ちなみにうちのサーバはこうゆうふうに載ってます。
https://stepserver.jp/manual/qa_cgi.html
#!　←コレがない状態で載ってますが。この二文字は必須です。消さないで。
どうしてもわからなければサーバさんを教えてもらえればこっちで調べてきますよ。


次に。２１行目。管理パスワードです。

$password = '0123';

''　←コレの中身を変えてください。a〜zと0〜9 で組み合わせるのが無難かと
--------------------------------------------------

最低限コレだけやれば大丈夫です。
ファイル名は書き換えることが推奨されていますが、あんまり仕事が増えるとめんｄ・・・・・ので笑。最小限でよいかと思います。
パスワードだけは変えてください。他人が管理画面に入ってくると困るので。
これだけやったら上書き保存して。エディタは終了です。


つぎはファイル転送ですが・・どうやって説明しようか笑
windows用のFFFTPというFTPソフトの説明でよいですかね？？



て あ。。ちょ・・・また後で来ます。すみません。

ぐぅ様
何度も有難う御座います。
えっと…サーバさんのパスって言うのは、どういう事なんでしょうか？
本当何も知らなくてすみません(>_<)
他のは分かりましたが…。

それと
ファイル転送は
windows用のFFFTPというFTPソフトの説明でお願いします。
何度も試してみても…出来ないというか理解が出来なかったんです。
お手数かけてすみません^^;

あー。
このcgiは　perl　という言語用のものです。
そしてサーバーでperlを実行するのには それ用のソフトが必要なんですね。そのソフトが置いてある場所（パス）を指定しないとcgiからソフトを呼び出すことが出来ないんですよね。

そのための記述が１行目になります。
そのままでいい場合がたいていかと思いますが、きちんと調べてから設置することをオススメします。
サーバーさんのサイトに必ず書いているので、それらしいところを探してみてください。


それと・・・るるさん。情報が小出しですね笑
わからない箇所あるいわ つまづいている箇所を具体的に一個ずつ出してもらえるとそれに対する回答はすぐ返ってきますよ笑（たぶん


ＦＴＰは・・どこがわからないのでしょう？？パーミッションの変え方だと思ってたのですけど。
・・・もしかしてサーバへの接続からわからない・・のかな？
それは掲示板で説明するには限界がありますが・・。そしてこの掲示板の趣旨ともずれますし・・

もし暇ならうちのサンプルチャットでお待ちしておりますのでそこで教えましょうか・・・
たいしたお手数ではないので気軽にどうぞ　です。

どうも始めまして、最近ＣＧＩをお借りした零式と申します。

実は、発言と発言の間にある罫線を根本から削除したいのですが、
どうしても方法が分かりません、
何方か削除方法を教えていただけませんでしょうか？

初歩的な事やもしれませんが、どうしても分かりません。
どうか、お願いします。

それでは、用件だけですが失礼します。

chat.cgi の decode(){} の中

$line_ch = "on" if(!$line_ch);
↓
>$line_ch = "";

で。常にライン（<hr>）がなくなります。

ぐぅさん、ありがとうございます。
無事問題を解決できました。ｍ（_　_）ｍ

そして、立て続けなのですが、
また皆様の知恵をお借りしたいと思っております。

◆[罫線][発言部分][罫線]と、発言部分を上下罫線で挟みたいので、
下に罫線を付けたい。
◆メールポインターの部分を名前と同色にしたい。

今この二つの点をカスタマイズしたいのですが、悩んでいます。
なので、皆さんのお力をお借りしたいと思います。

図々しい矢も知れませんが、お願いいたします。ｍ（_　_）ｍ
それでは、失礼致します。

こんにちわ
さっそくですが

> ◆メールポインターの部分を名前と同色にしたい。

chat.cgi　の sub print(){}　の中に
==========================================
sub log_print{
local ($time_v, $host3_v, $hua2, $name, $email, $chat, $n_color, $s_color, $greet, $s_host_v, $s_host_n, $realhost) = split(/\t/, $chatline);
$realhost =~ tr/\x0D\x0A//d;
> my $mailb=$n_color;
=========================================
と 色つけした部分を入れればイケます。
たぶんこうゆうことだと思います。違ったらまたどうぞ。

あと
> ◆[罫線][発言部分][罫線]と、発言部分を上下罫線で挟みたいので、下に罫線を付けたい。

コレなんですが・・・上の質問で消したやつとは違うのでしょうか？？解釈が間違ってたらすみません。

ぐぅさん、またもご教授、ありがとうございます。（_　_）
そして説明不足ですません、（汗）

> ◆[罫線][発言部分][罫線]と、発言部分を上下罫線で挟みたいので、下に罫線を付けたい。

というのは、
==========================================
参加者 2人 ROM なし
――――――――――――――――――――
◆参加者Ｂ>発言
――――――――――――――――――――
◆参加者Ａ>発言
――――――――――――――――――――
◆参加者Ｂ>発言
――――――――――――――――――――
◆参加者Ａ>発言
――――――――――――――――――――
Reload : off Line : 20
TeaChat 1.8.3b
==========================================
ではなく
==========================================
参加者 2人 ROM なし
――――――――――――――――――――
◆参加者Ｂ>発言
◆参加者Ａ>発言
◆参加者Ｂ>発言
◆参加者Ａ>発言
――――――――――――――――――――
Reload : off Line : 20
TeaChat 1.8.3b
=========================================
と、発言一つ一つではなく、発言が表示される部分を罫線で挟みたい、という意味です。分かり難くてすみません。（汗）

タイトルどおりです。
こちらのオリジナル配付の管理人さんではなく、利用者の方が
改造してアイコンチャットにしたタイプのものを利用させて
貰っているのですが、できればメルアド欄もあってアイコンも
使えるものがあれば嬉しいなぁと思いました。
メルアドを表示させる命令部分をアイコン表示の命令に使ってしまった
ためにメルアド表示が無くなっているのは、改造サイトさんや
こちらのBBSのやりとり、後同梱されてたリードミーなどを読んで
なんとか分かったのですが、両方表示させたいとなると、全くイチから
新しく表示させる命令をくわえてやらないといけないという事でしょうか？
全くのシロウトなので、自力で改造という訳にはいきません。
どなたか、改造を…もしくはソース書き換えのヒントとかあったら
教えてください。お願いします。


ちなみに、アイコンの選択は入室時に可能なものを希望しています。
（入室してから発言画面で選択するメルアド欄つきアイコンチャットは別の利用者さんが配付してくれてますが、やっぱり入室する時に選べないと不便だと思うので）

こんばんわ

どのような改造なのかわからないので、どちらのサイトさんのモノなのか書いてくれるとありがたかったですね。
改造する箇所はたくさんありますが、基本的には　$email=　などとなっているところに同じようなのを付け足していけばいいと思います。ひたすらやっていけば大丈夫かな？って思います。

でもそちらの管理人さんに問い合わせたほうがよいかと思いますね。
ただ、もしそちらの管理人さんに許可が取れればうちでやってもいいのでそのときはまたどうぞ。

他力本願な記事に関心をもってくださってありがとうございます。
いきなり改造配付サイトさんを明記するのはいけないと思い控えました。
自分が知ったサイトさんは二箇所とも、このBBSに書き込み、URLを
残して下さっているので二重改造許可の点はともかく配付先URLはすぐ判ると思います。

お手数ですが「現行記事」を「アイコン」で検索してみて下さると嬉しいです。
片方はメルアド欄を削ってしまった、入室前にアイコン選択が出来るタイプ、バージョンは現在配付されている最新バージョン1.8.3bを使用していて、こちらのタイプがメルアド欄を残してあると最高だなぁ…と思っています。
メルアドの反映は、わかりやすくアイコンか、もしくは名前をオンマウスだと最高です。

もうひとつのタイプは入室後にアイコン選択が出来るタイプで、メルアド欄もありデザインが可愛く楽しいものなのですが、改造バージョンが1.8.4bのためなのか、動作に少々不安があるのと実際自分の環境で設置すると何も設定を弄らなければ問題無く動くのですが、管理用メニューで設定を弄ると動作不良を起こしてしまいどうしても使用出来ませんでした。

自分でもこのふたつのチャットを参考にさせてもらって、どう修正してあるのか見てみたのですが、違いは朧げに判るものの、さてそれをどう書き換えれば自分の希望する形になり動作するのかが全くわかりません。どうぞよろしくお願いします。

どうも。こんにちは
少し、お伺いしてよろしいでしょうか？

> もうひとつのタイプは入室後にアイコン選択が出来るタイプで、メルアド欄もありデザインが可愛く楽しいものなのですが、改造バージョンが1.8.4bのためなのか、動作に少々不安があるのと実際自分の環境で設置すると何も設定を弄らなければ問題無く動くのですが、管理用メニューで設定を弄ると動作不良を起こしてしまいどうしても使用出来ませんでした。

おそらくこれはうちで配布しているものだと思いますが、管理モードで設定を弄ると動作不良を起こしたというのが少し気になったので参考までに教えていただきたいのですが・・・。
なにを弄ったら、どういう不具合が起きたのでしょうか？

横レスになりますが、今後の参考にさせていただければと思います。

こんにちは。
改造された御本人を飛ばし＆無視して勝手に話を進めてしまっていてすみません。

> おそらくこれはうちで配布しているものだと思いますが、
> 管理モードで設定を弄ると動作不良を起こしたというのが
> 少し気になったので参考までに教えていただきたいのですが・・・。


最低限度のソース書き換えのみでアップして動かす分には、全く問題がなかったのですが、デザインやセキュリティ、おみくじ等の設定をカスタマイズしようと管理メニューに入って書き換えていくと、どう言ったらいいんでしょう…書き換えて実行ボタンを押す度に、書き換えた部分が消えたり移動したり（おみくじを有効に何度やっても、次に別の部分の設定を変更すると白紙になったりおみくじ設定が解除されてしまったり等…）とおかしな事になってしまいます。

これは、以前TeaChat管理人さんが1.7.2から1.8xにバージョンアップする際に作って下さった幾つかのβ版でも起こった、同じ現象なのでもしかすると何らかのバグがおこってしまっているのかもしれません。

ただ、当方全くの素人ですので、見当違いな事を言っている可能性の方が高いと思います（無責任ですみません）。


そちらのチャットは、デザインがとにかく可愛らしく、アイコン選択が入室後ですがその選択画面も楽しく「チャット選択が先には出来ないけどこれもいいな、これにしようかな」と思ったチャットです。
自分の環境が問題だっただけならいいのですが、もし何か修正する事によって私の環境でも使えるようになったら嬉しいなぁ、と思います。
本当に可愛らしいチャットなので、きっと多くの方が使用したいと思うと思います。

どうもです。
実は検証してみたのですけどそういった異常もこちらでは確認できず、またそういう異常があったという報告も他にありません。

ただちょっと気になったのが、設定したはずのものが白紙になるということですけど、datファイルのほうは全てアーカイブにあったものを使われたのでしょうか？
それと、設定例にあるような記述を間違えずにしたかどうかです。
_ICON_とかの記述の方法が違っていたりすると、登録されずに白紙になると思います。

こんばんは。

> ただちょっと気になったのが、設定したはずのものが白紙になると
> いうことですけど、datファイルのほうは全てアーカイブにあったものを
> 使われたのでしょうか？

はい。そちらで配付されていたファイルを使いました。
TeaChatオリジナルのものや、オリジナル別バージョンのものと混ぜて使ったりせず、新しいディレクトリを作ってイチからアップしました。

> それと、設定例にあるような記述を間違えずにしたかどうかです。
> _ICON_とかの記述の方法が違っていたりすると、登録されずに白紙になると思います。

まず最初に自分が使いたいアイコンを管理メニューで登録しようと、管理メニューで登録をします。それ以外は変更無しで動かす分には、問題もなく、また登録アイコンも正しく表示され、プルダウンの名前も間違いないのでそこまでは間違った作業はしていないと思います。
発言画面上でのアイコン変更も問題無く出来ました。

その後、背景色やチャットタイトル、他セキュリティ類、おみくじ等を少しずつ変更する度に、本当に少しずつなのですが、書き換えた部分が消えたり別の項目に移動したりしていくのです…
（上フレームの背景色として入力変更した設定が、何故か全然違う所に入力されている、といった感じです）
500エラーになったり一切チャットが動かなくなる、という事にまではならないのですが、書き換える度に設定が移動したり消えたりするため、永遠に希望どおりの設定に出来ず、設定変更が終らない…といった状態です。


後、素人考えで思い当たる事は、自分が少々古いMac環境だという事でしょうか。使用エディタはYooEditです。ですが、同エディタで書き換え、アップしたオリジナルTeaChat1.8.3bは現在問題無く動いて管理メニューの変更も何度行っても不思議な現象は起こりません。（先にも書きましたが、1.8xの別一部バージョンでは同現象が起こった事がありました/自分の環境限定の事ですが。）


こちらで思い当たる原因＆起こった現象は以上です。
勿論、自分が何かおかしな事をしてしまって誤作動起こしてしまうように弄ってしまった可能性も高確立でありますので、姫宮様の環境で問題がなく、他からも報告が無いのでしたらそのままでも良いのでは、と思います…

どうも報告ありがとうございます。

うーん・・・・
でも、何でデータが壊れるのかは、やっぱりわからないですね。
通常データはタブ区切りで記録されているのだけど、その記録がおかしいのかデータの配列が壊れてしまっているようです。
環境がMacということですけど、本来フォームから送信されないはずのタブを区切りに使っている以上はあまり関係ないように思いますね。

こんばんわ。

諸事情により、１から自分で改造することにしました。
http://goosys.clean.to/tc183b5G.zip

サンプルです。こんな感じでどうでしょうか？？
http://goosys.clean.to/tc183b3/chat.cgi
管理画面でアイコン追加できるので、管理画面も覗いてみてください。パスは１２３です。

ふきだしにしたい。とかありましたらまたどーぞです。

自分の使用しているサーバに設置して気付いた事と、お願いを
GOOさんのサンプルチャットで発言して残してきました。

今は改造無し＆管理画面で弄れる範囲の1.8.3bを使っていますので、
お時間のある時にちょっと弄ってもいいかな？と思われましたら
改造、バグ修正お願いします。楽しみにしています。

こんなに早く希望どおりに改造して下さるなんて…ありがとうございます。
ダウンロードして自分の環境で設置して、少し設定などを弄ってみます。（管理画面から）

何かありましたらこちらに書き込みます。

質問ですが。
うちのサイトに置いてあるサンプルは発ランちゃんとでますよね？？

・・・なにがいけないんだろ・・
調べてみます。

あと 細かいバグはすぐとりますのでもう少々おまちください。

> 質問ですが。
> うちのサイトに置いてあるサンプルは発ランちゃんとでますよね？？

はい、ちゃんと問題なく出ます。
自分の設置方法や環境に間違いがあるのかと思ってサンプルチャットの方にお邪魔させて貰い、発言や退室ボタンを押させて貰いました。
アイコンフォルダを自分で用意し、その設定を「chat.cgi」に書き込んだ以外にソースを弄ってはいません。

もしかすると説明が入っていないTEA CHAT1.8.3bには無い「agent.pl」と「kujiji.dat」もアップしましたが、これのパーミッション設定が悪いのかもしれません。

「agent.pl」は他「.pl」と同じ755
「kujiji.dat」は他「.dat」と同じ666でアップしました。
この時点で間違っていましたら御指摘下さい。


借りているスペースはWEBEYES(http://www.webeyes.com/)で、perl(ver.5) , PHP4.3, SSI 利用可能と謳っている所です。今までこちらでTEA CHATを設置してとりあえず動いています。

修正しました。

しかし発ランの件がまだわかりません。
パーミッションはそれであってます。perl5も使えるようなので（あたりまえか）問題なさそうだし。。
発ランの記録ファイルの書き込みがおかしかったので修正しています。初期化かけるかテキストエディタで修正してください。
いろいろ修正かけたのでもしかしたらそれで直ったらいいな・・・なんて期待をこめて。

またなにかありましたら。どーぞ


http://goosys.clean.to/tc183b5G.zip
http://goosys.clean.to/tc183b3/chat.cgi

ありがとうございます。

自分の環境でアップして動かしてみるのに少し時間が開きますが、必ず結果の御報告はさせて頂きます。

こんにちわ。イメージチャットとして、此方のチャットを利用させて頂いております。見易く使いやすいと、参加させる方の評判も良く、私自体凄く気に入って使っております。

改造についての質問で恐縮なのですが…、
今話をしている話題等を入室画面の上フレームへ反映させたいと思っております。
機能としては、
今ある電報の様に上フレームでボタンをクリック
→下フレームに入力表示が出る・もしくは別窓で表示される（現在の電報機能の様に）
→打ちこみ・入力
→入室画面の上フレーム内に、打ち込んだ文字が表示される
…と言う説明でお分かり頂けますでしょうか…？

『今こんな事を話してますよ』／『今日の話題のテーマはこれですよ』といったものを入室している者が決められ、それをＲＯＭに見える様にする、と言う事が出来たらなぁ、と思い、書き込ませて頂きました。

……他のチャットの事で申し訳無いのですが、『Zoochat』で、『まことさん』と言う方が作られた、『トピック機能』と同じ機能です。
わかる様でしたら、ヒントだけでも結構ですので教えて頂けないでしょうか？よろしくお願い致します

改造のヒントではありませんが、
確か似たような機能をつけたTEACHATの改造バージョンを
配付している所があったと思います。

勝手に教えられませんので、
適当な語句で検索してみてください。
割と簡単にみつかります。

ありがとうございました。
こう言うのがやりたかったので、参考…改造が上手く行かないならお借りし様かと思いマス

ホントに簡単な語句で見つかって…（苦笑）　

こんにちわ
題名の通り携帯からも名前色と名前の設定変更出来ないかなと思いました。
できないですかね？

うちゎ主に携帯からの人が多いんで携帯でも便利にしたいです
出来るならば携帯からでも入室や退室の時に挨拶できたり、携帯からもログclear出来たりすればぃぃなぁと思っております

なにも分からないのでよければ教えてください。お願いします

はじめまして。
teachatを使わせていただいているのですが、ひとつ質問があります。
land.toというサーバーで設置しているのですが、そのまま設置するとフレームの上下に広告が表示されてしまいます。
そこで.htaccessファイルで広告を一度消した後、フレーム上部下段に自分で広告を貼り付けるという方法を取りたいのですが、
どのプログラムのファイルにどのように記述を加えればよいのでしょうか。
ご教授お願いします。

管理用設定について質問です。
TeaChat 1.8.3bのセキュリティ設定で、「名前が未入力の場合は入室を禁止する」にチェックを入れても機能しません。
他の設定との兼ね合いで、上記機能が機能しなくなるのでしょうか。
回答よろしくお願いします。

こんばんわ

chat.cgi　の　最初のほう
$script = './chat.cgi';

任意のファイル名に変えれば　あとはなにもないかと・・・。

上手くできました。アドバイスありがとうございました。

さくらインターネットで設置をしたのですが
ERROR!

初期設定・ホスト置換ファイルが開けません
がでて設置できないです。パーミッションやファイルの転送は間違ってないとは思うのですが　どこがおかしいのでしょうか？

私もさくらインターネットですが、設置までは上手くいったものの
最初なぜか入室できませんでした。
チュートリアルやHELPを参考に、管理者モードで外部からの書き込み許可をチェックしたら上手く行くようになりました。
関係ないかもしれませんが、さくらでも利用可能でした。

カスタマイズモードの基本機能/セキュリティで、セキュリティ設定の中の「入室画面で下フレーム（ログ）を表示しない」にチェックを入れたらいいかと思います。

どうもはじめまして、管理人様！
teachatを大変便利に使わせて頂いております。
実は、毎晩0時になると10〜15分重くなる現象が毎晩起こっております。毎晩0時になると何か処理を行っているのでしょうか？
また、この時間帯以外に処理を変更したい場合はどうすればよいでしょうか？どうぞご教授よろしくお願い致します。

設置しているサーバー屋さんの、負荷だと思います。

対策は、
　高速表示　にする。
　自動リンクOFF
　自動Reloadを長めにする　を、プログラムに組み混むとかかな。
　
　

TeaChatを愛用させていただいてます。
ずっと、以前から愛用させて頂いていましたが、
この度バージョンアップを検討しております。
しかし、以前のバージョンから気になっていたのですが、
携帯で名前色の色が反映されないと言う問題が利用者から
伺っております。
最新バージョンを確認しても、やはり名前色が黒に
なってしまうようです。
ソースを見ると<font color="123456">となっており、
<font color="#123456">のように#が無い為に
携帯で色コードが正常に認識されていないように思われます。
過去のバージョンは自前で対応させて頂きましたが、
今回のバージョンアップでの再度パッチ当てが大変で、
できれば、オリジナルに反映して頂きたく思います。

また、1.8.4aでも、chat.cgiの171行目は、
172行目の変数$jxnで上書きされると思われるのですが、
どういった意図があるのでしょうか？
その後の173行目と174行目も$jxnが真である場合は、
必ず$jphone_oldが1になってしまうと思われます。

もし、私の解釈が謝ってる場合はご容赦下さい。
大変長文になり、申し訳ございませんが、ご教授の程
よろしくお願い致します。

初めまして<(_ _)>

> ソースを見ると<font color="123456">となっており、
> <font color="#123456">のように#が無い為に
> 携帯で色コードが正常に認識されていないように思われます。

結局、今は#が抜ける対処法は無いのでしょうか？
同じ悩みなのですが・・・・(T_T)

> 結局、今は#が抜ける対処法は無いのでしょうか？

カラーネームでやれば良かったんですね
解決です。失礼しました<(_ _)>

管理人です。

えーーーーーーと。。。。いや全く仰る通りでございます^^;

確認してみましたが、なんかへっぽこなソースですね。
随分前に書いたものなので何やってるかさっぱり覚えてないもので、
こういったご指摘はありがたいです。

もちろん次で修正させていただきます。
しばらくお待ちください〜。

> TeaChatを愛用させていただいてます。
> ずっと、以前から愛用させて頂いていましたが、
> この度バージョンアップを検討しております。
> しかし、以前のバージョンから気になっていたのですが、
> 携帯で名前色の色が反映されないと言う問題が利用者から
> 伺っております。
> 最新バージョンを確認しても、やはり名前色が黒に
> なってしまうようです。
> ソースを見ると<font color="123456">となっており、
> <font color="#123456">のように#が無い為に
> 携帯で色コードが正常に認識されていないように思われます。
> 過去のバージョンは自前で対応させて頂きましたが、
> 今回のバージョンアップでの再度パッチ当てが大変で、
> できれば、オリジナルに反映して頂きたく思います。
>
> また、1.8.4aでも、chat.cgiの171行目は、
> 172行目の変数$jxnで上書きされると思われるのですが、
> どういった意図があるのでしょうか？
> その後の173行目と174行目も$jxnが真である場合は、
> 必ず$jphone_oldが1になってしまうと思われます。
>
> もし、私の解釈が謝ってる場合はご容赦下さい。
> 大変長文になり、申し訳ございませんが、ご教授の程
> よろしくお願い致します。

早々の返信ありがとう御座います。
下記の件、了解致しました。
お忙しいとは思いますが、よろしくお願い致します。

また、173行目と174行目の||は&&と思われるのですが、
どうでしょうか？
私の方でも、1.7.2に関してはPCでのiモード絵文字をGIF
表示に変えるなど、色々な改良を施しており、バージョンアップ
には、かなり時間がかかりますので、気長にお待ち致しております。

また、当方のユーザーからの要望で文字色のグラデーション機能
などの要望を伺っており、現在そちらの改造も検討しております。
もし、今後の対応として検討頂けると有難いです。

色々と、御願いばかりで申し訳御座いません。
私が見てきた数あるチャットシステムの中でも、
本当に素晴らしいシステムだと思いますので、
今後もどうか、サポートの方をよろしく
御願い致します。

> 管理人です。
>
> えーーーーーーと。。。。いや全く仰る通りでございます^^;
>
> 確認してみましたが、なんかへっぽこなソースですね。
> 随分前に書いたものなので何やってるかさっぱり覚えてないもので、
> こういったご指摘はありがたいです。
>
> もちろん次で修正させていただきます。
> しばらくお待ちください〜。

管理人です。
現在制作しているバージョンで、
携帯で色が反映しない問題とJ-PHONEの認識ミスは修正しました。
いずれ公開します。

> また、173行目と174行目の||は&&と思われるのですが、
> どうでしょうか？

えーと、これは下記の行のことだと思いますが、

$jxn = $ENV{'X_JPHONE_MSNAME'};
$jxn = $ENV{'HTTP_X_JPHONE_MSNAME'};
$jphone = 1 if($jxn || ($hua =~ /J-PHONE\//i));
$jphone_old = 1 if($jxn || ($hua =~ /J-PHONE\/1/i) || ($hua =~ /J-PHONE\/2/i));

確か、私の記憶では初期のJ-PHONEは、
環境変数X_JPHONE_MSNAMEとHTTP_X_JPHONE_MSNAMEに出力する仕様のものがあったと思います。

(このことは昔、J-PHONEに問い合わせて確認ました。
当時はPHONEはHTTP_USER_AGENTを吐いてくれなかったからです。)

そのため、X_JPHONE_MSNAMEとHTTP_X_JPHONE_MSNAMEを出力するものは、
初期のJ-PHONE（＝POSTメソッドが使えない）ものとして、判別しようと・・・していたのだと思います。

ですがご指摘の通り、このコードは変ですね。上書きしちゃってるし。
この辺も修正ずみです。


> 私の方でも、1.7.2に関してはPCでのiモード絵文字をGIF
> 表示に変えるなど、色々な改良を施しており、バージョンアップ
> には、かなり時間がかかりますので、気長にお待ち致しております。
>
> また、当方のユーザーからの要望で文字色のグラデーション機能
> などの要望を伺っており、現在そちらの改造も検討しております。
> もし、今後の対応として検討頂けると有難いです。
>
> 色々と、御願いばかりで申し訳御座いません。
> 私が見てきた数あるチャットシステムの中でも、
> 本当に素晴らしいシステムだと思いますので、
> 今後もどうか、サポートの方をよろしく
> 御願い致します。

ありがとうございます。
私もなるべく多くの人に使っていただきたいと思いますので、
改造しなくても十分使えるようなものにしていきたいと思っています。

i-modeの絵文字やグラデーションについても検討していきたいと思います。

いろいろとご指摘ありがとうございました。(^^

始めまして。
今回、チャットの設置に対してどうしても手詰まりになってしまったので、御教授頂けないかと思い書き込みさせて頂きました。
当方、CGIの事に関しては初心者なのですが；
何とか色々なページを参照しながらパーミッションの設定迄は行ったのですが、いざアクセスしてみると上下を分けるワクしか表示されずに「ページが見つかりません」との表示が出てしまいます。

其処で、過去ログ等も参照しアスキーモードである事も確認し、パーミッションの値も変更する等の処置をしたのですが全く作動しない侭なのです；
当方ぷららの鯖を使用しているのですが、どなたか解決に向けてヒント等頂けないでしょうか。
宜しくお願いいたします。

私も同じ状態になった事がありますね＾＾；

私の場合は、chat.cgiの20行目あたり？にある
$script = './chat.cgi';
をフルパス(http://〜/chat.cgi)に書き変えた時に、スペルミスしてなりました（苦笑

もし、初期の相対パスのままでしたら、一度フルパスに書き直してみてはいかがでしょう？

*.plの呼び出しでそういうエラーになったのでは？

*.plのファイル名を変更したとか、
サーバー側の、cgiプログラムの設置場所、呼び出し方法のミスでしょうか。。

こんばんわぁ。

解決には至りませんが 気になるところが一つあったので。。。参考になればと・・

> 何とか色々なページを参照しながらパーミッションの設定迄は行ったのですが、いざアクセスしてみると上下を分けるワクしか表示されずに「ページが見つかりません」との表示が出てしまいます。


これは矛盾です。
上下を分ける枠（フレーム）を作成しているのはチャットcgiなので。枠がでるということはcgiにはアクセスできていて。実行も始まっています。
それにも関わらずに　「ページが見つかりません」　と404エラーが出るということは・・・？？？

パーミッションが違うときに出るエラーではないので。そこは大丈夫でしょう。
ここまでしかわかりません。。すいませんです。

考えられることは、サーバーの環境の問題かな？
場合によっては、CGIの一部を少しばかりサーバーの環境に合わせて手直しする必要もあるかもだけど・・・。
まずは、どいうったサーバーに設置したのでしょうか？
フレームそのものが出てきたということは、そのフレームのソースを見たときにフレーム内のHTMLはどの場所になっているのでしょうか？

いつも、快適に利用させて頂いてますm(__)m
実は、メンバーより携帯参加中での参加数&ROM人数が知りたいとの要望があり、どうしたものかと悩んでおります。
誰か、お力添え願えれば…幸せですm(__)m

perl初心者なのですが、私が見つけた方法です。
もっといい方法があれば、どなたか訂正して下さい。

私が使ってるのはV1.8.4bなのですが
html.plの48行目〜
<input type="submit" value="0.退室" $accesskey="0" name="exit">
</form>
EOF

この後に

$mem_num = @mem_num;
if($mem_num eq "0"){ $mem_num = 'なし'; }
else{ $mem_num = "$mem_num人:@mem_num"; }
if(!$romer){ $memt = '参加者'; }
else{ $memt = 'Access'; }
if($romcount && !$romer){
$rom_num = @rom_num;
if($rom_num eq "0"){ $rom_num = ' ROM なし'; }
else{ $rom_num = " ROM $rom_num人"; }
}
else{ $rom_num = ''; }
print qq($rom_num<br>$memt $mem_num);

を追加した所、携帯でも参加者及びROM人数が表示されました。
print qq($rom_num<br>$memt $mem_num);
ここは携帯でも見やすいよう変えてみるといいかもしれません。

みつ様、ありがとうございますm(__)m
いい感じに、表示されました。
感謝いたしますm(__)m

どういたしまして。
お役に立てて幸いです。

> どういたしまして。
> お役に立てて幸いです。

はじめまして。いみといいます。
私もケータイから参加者を表示させたいと思っていたので、みつ様のおっしゃっていた通りにファイルを書き換えてみました。
いい感じで表示されてとても使いやすいです。

ところで、ケータイ画面において参加者表示はそのまま残しておいて、ＲＯＭ数は表示させたくない場合はどうしたら良いのでしょうか？

どなたか分かる方いらっしゃいましたら教えてください。
よろしくお願いします。

みつさんのソースの最後の行。


print qq($rom_num<br>$memt $mem_num);

これを

print qq($memt $mem_num);

こう。
でいいんじゃないかな？？と思います。

> みつさんのソースの最後の行。
>
>
> print qq($rom_num<br>$memt $mem_num);
>
> これを
>
> print qq($memt $mem_num);
>
> こう。
> でいいんじゃないかな？？と思います。

ぐぅさん初めまして。

ぐぅさんのおっしゃった通りに書き換えてみたらうまくいきました。
とても感謝しています。
どうもありがとうございました。

また何か質問があった時はヨロシクお願いいたします。

CGIは、初めてで、全然わからないんで誰か教えてください。
ぷららプライベートホームページに設置しようとしてるんですけど・・・ファイルはダウンロードして解凍もしたんですが、タグ？みたいのが、たくさんあって何がなんだかさっぱりわかりません。できれば最初から教えて欲しいんですけど。説明が下手でわからないかもしれませんが、ここのチャットがとても気にいってどうしてもこのチャットがいいんです。長々と書いてしまって読みにくいと思いますがよろしくお願いします。

参加者の表示のやり方がわかりません。

＜ダウンロードした後、ファイル名をmember.plにリネームし、中のPerlのパス、mem.datのパス記述を修正してからサーバにアップロードしてパーミッションを755(or 705)にして下さい。
表示したいHTMLに下記のようにを記述する事で参加者を表示することができます。member.plのパスは任意に書き直して下さい。＞

とありますが、mem.datのパスの修正はどうすればいいのですか？
member.plを任意に書き直すと言うのもわかりません。
どなたか、ご教示ください。

こんにちわ。TeaChat 1.8.3bをDLさせていただきました。
futomi's CGI Cafe(http://www.futomi.com/subroutine/ua.html)
さんのサブルーチンの中の$platform_vを発言の最後に挿入してPC/携帯両方で機種名を表示させたいのですが、どこに

($platform, $platform_v, $browser, $browser_v) = &User_Agent($ENV{'HTTP_USER_AGENT'});

と$platform_vを挿入してよいのやら分からないのですが、
どなたかご教授いただけませんでしょうかm(_ _"m)お願いします。

◆あいうえお > かきくけこ (23:00)N900i

の様な感じにしたいのです。

> こんにちわ。TeaChat 1.8.3bをDLさせていただきました。
> futomi's CGI Cafe(http://www.futomi.com/subroutine/ua.html)
> さんのサブルーチンの中の$platform_vを発言の最後に挿入してPC/携帯両方で機種名を表示させたいのですが、どこに
>
> ($platform, $platform_v, $browser, $browser_v) = &User_Agent($ENV{'HTTP_USER_AGENT'});
>
> と$platform_vを挿入してよいのやら分からないのですが、
> どなたかご教授いただけませんでしょうかm(_ _"m)お願いします。
>
> ◆あいうえお > かきくけこ (23:00)N900i
>
> の様な感じにしたいのです。

んと、そちらのサイト見ましたが、それ以外に対応ブラウザの下のサブルーチンを入れないといけませんね。
今ある変数をすべてそれに対応させないと動作しないと思います。
かなり大変な作業だと思いますので、perlの基礎無いと改造はきついと思われます(´Д`;)（私には無理ｗ）

私はこれからのバージョンアップに期待してますｗ

みつさん返信ありがとうございます(^^

同じような物で『極楽とんぼのもっと食えよ』さんの
http://yama2-db.cside.com/download/common.html
にあるagent.plを使って、ゆいちゃっとproでは成功できました。
TeaChatでも

◆あいうえお > かきくけこ (23:00)N900i

までは表示できたのですが、参加してる方全て(PCの人など)にN900i
と表示されてしまうのです。。(PCの方が発言するとまた全てがWindowsXPと表示され、、

このagent.plをTeaChatに使えないでしょうか<(_ _)>しつこいようですがご教授お願いします。

> 同じような物で『極楽とんぼのもっと食えよ』さんの
> http://yama2-db.cside.com/download/common.html
> にあるagent.plを使って、ゆいちゃっとproでは成功できました。

ファイルDLしてチラッと見てみた限り、どう設置したらいいかとか私にはサッパリでした(´Д`;)
なんせ素人にちょっと毛が生えた程度なので（苦笑
お役に立てずすみませぬ。

> お役に立てずすみませぬ。

いえいえ返信ありがとうございます（＾＾
無事表示させることができました
お世話になりました<(_ _)>

失礼します。
au:A5406CA　と　vodafone・・・ぁぁ機種名がわからない；（ぇ
すいません。どちらも対応してないみたいで動作確認できてないんですが・・・参考までに改造例を。

まず。　chat.cgi　の一番下にでもサブルーチンを全て貼り付けます。
そして。
　#.記録処理sub write{}
の中の・・・最後あたりに。

$w_val = "$time\t$host3\t$hua2\t$name\t$email\t$chat\t$n_color\t$s_color\t$greet\t$s_host_v\t$s_host_n\t$host\t\n";

があるので。ここを

($platform, $platform_v, $browser, $browser_v) = &User_Agent($ENV{'HTTP_USER_AGENT'});
$w_val = "$time\t$host3\t$hua2\t$name\t$email\t$chat\t$n_color\t$s_color\t$greet\t$s_host_v\t$s_host_n\t$host\t$platform\t\n";

こんな風にして。プラットフォーム（機種名）を記録します。記録しないとログに表示されないので。ここにてきとうに記録したいものを　\t　で区切って追加してください。返り値の変数は向こうのサイトを参照で。

そして。次にこれを呼び出すところを。
まず
　#..ログ表示 sub log_print{}
を探します。
その一番上に引数を与えているので。さっき記録した順番になるように。取り出します。さっきは最後に$platformを追加しただけなので。
local ($time_v, $host3_v, $hua2, $name, $email, $chat, $n_color, $s_color, $greet, $s_host_v, $s_host_n, $realhost,$platform) = split(/\t/, $chatline);

こんな感じになります。
あとはこのサブルーチン内で。好きなところに$pratformを入れればログに表示されます。
例えば。まぁ。

$user = "$date_v$hua2$host3_v:$platform";

こんなふうに追加してみれば・・・
パソコンで見たら　windows　と表示されてたので。いちお動いているのかとは思いますが・・携帯で確認できません。すいません。
いちおサンプルを晒しておきますので。docomoでも持ってたら確認してみてください。

（・・・なんでmy宣言しないんだろう笑（謎　）

お。ほんとだ。こっちの方がなんだか細かく書かれてますね。
auのもあるっぽいので。こっちのほうがオススメです。皆さん笑（何

何時もお世話になっています。
今回は一部改造したいと思い、それについて何か知識がある肩は居られないかと思いかき込んでいます。

入隊室メッセージを、個別に設定したいのですが、どうすればよいでしょうか？
たぶん無理ではないと思うのですが、うまく行きません。できればURLに特定文字を撃ち込めば、特定入隊室メッセージが出るとしたいのですが・・・どなたか案がある方は居られませんでしょうか？

チャットに入れないというクレームがありました。
原因がつかめません。

どんな原因があるのでしょうか？

該当するチャットルームです。
http://www.shinritest.com/tchat/chat.cgi

うーん。ページが見あたらないという英語のエラーメッセージが
でます。

> チャットに入れないというクレームがありました。
> 原因がつかめません。
>
> どんな原因があるのでしょうか？
>
> 該当するチャットルームです。
> http://www.shinritest.com/tchat/chat.cgi

入れない人に、どういう状態なのかを聞いてはどうでしょうか？

You don't have permission to access /chat.cgi on this server

であった場合は、アクセス禁止の項目に引っかかったと考えられます。
アクセス禁止IPの項目で、何も設定していなくても何故か禁止されてしまうことがあるようなので、試しにアクセス禁止のチェックをはずしてみたらどうでしょうか？

同一内容なので、記事をageて投稿しました。

1.8.3bを使わせていただいています。
どなたか、お知恵を貸していただけないでしょうか。
大きな改造などはまだまだという位です。
難しい、出来ないなどの意見でも構いませんので、宜しくお願いします。

最初に入室した人が部屋の設定を自由に決められるという様にしたいのです。
teaChatを使っているサイトでそういう改造をしていた所があったので、できることはできるのだなと、思うのですが...(汗)
色々試しては見たのですがさっぱり解りません。
誰か解る方が居れば教えて頂きたいです。

ちなみにバージョンはTeaChat 1.8.0 beta8です。

IPではなく「発言者名」で判断するなどの方法で、携帯でもclearが効くようにできないでしょうか…？

もしくは、発言一つ一つに「削除」リンクをつけて、入室時に設定したパスで各個消去できるようにするとか…。

携帯で参加人数と参加者リストを表示するようにしています。
わがままな要望ですが、携帯からアクセスした時、入室前は入室人数と参加者リストを表示したままで、入室後は参加人数のみ表示若しくは表示しないようにする事は可能でしょうか？

> 携帯で参加人数と参加者リストを表示するようにしています。
> わがままな要望ですが、携帯からアクセスした時、入室前は入室人数と参加者リストを表示したままで、入室後は参加人数のみ表示若しくは表示しないようにする事は可能でしょうか？

NO.2971と同じじゃないですかね？
そちらを参照してみて下さい。

> NO.2971と同じじゃないですかね？
> そちらを参照してみて下さい。
はい、No.2971を参考にさせて頂いて参加者リストを表示させております。
この追加部分ですが、入室前と入室後でどちらも同じルーチンを使っているのですよね？
質問の仕方が悪かったのですが、質問の意図は入室前と入室後で参加者リストの表示方法を変更したいと言うものです。

希望としては
◎入室前
No.2971で記載されたスクリプトの通り(参加人数と参加者リストを同時に)

◎入室後(入室中)
参加人数のみ
(以下、可能であれば)
参加者リストを別ページで表示するためのリンク
参加者リストを表示するページ

このようにしたい理由としては、多い時だと１０人近く集まる事があるので携帯から入室した場合にチャット中も参加者リストが表示されていると参加者の名前だけで携帯の画面が埋まってしまい、肝心のログがスクロールしないと見れなくまってしまう為です。
まぁ最悪、入室中(チャット中)は参加人数も参加者リストも出さないように出来ればと思っています。

いつも詳しい回答をありがとうございますm(_ _)m
当方、まず基本的な部分で思い違いがありました。
No.2971の追加スクリプトが、入室前、入室後の両方でシェアして表示していると思い込んでいたのですが、入室前の表示については元々html.pl中に入っていたのですね。携帯からテストしたつもりだったのに気づいてませんでした。
別々だという事がわかったので、No.2971の上から3行目を

$mem_num = @mem_num;
if($mem_num eq "0"){ $mem_num = 'なし'; }
else{ $mem_num = "$mem_num人:@mem_num"; }
↓
else{ $mem_num = "$mem_num人"; }
こうする事により、参加中は人数表示だけするように対応出来ました。
ありがとうございました。

> > (以下、可能であれば)
> > 参加者リストを別ページで表示するためのリンク
> > 参加者リストを表示するページ
> SSI使えるならSSIでメンバーを表示するページを作って
> そこにリンクするのはどうでしょう？
こちらは、一端リンクで飛んで戻った時のセッション切れが心配ではあるのですが、もう少し自分で考えてみたいと思います。

いえいえ。私の方が全然素人ですから（＾＾；
少しは役に立ったようなので良かったです。

はじめまして。
1時間誰も発言しなかった場合、自動的にログを削除する
っていう風にできますでしょうか？
よろしくお願いします。

こんにちは。
こちらのチャットを使わせていただいて一年になります。
設置からずっと普通に機能していたのですが、今回アップロードをし直してみると、突然アクセスがおかしくなりました。chat.cgiのページを表示させると、ブラウザのタブ部分にチャットのタイトルはでますが、真っ白いページに三本ほどの横フレームラインができるだけで他が一切表示されません。

改めて一からやり直し、パーミッションやその他の事も含めきちんとアップロードしましたが、状況は同じです。
試しに別のサーバを使ったり、FTPソフトを変えたりしてみましたがだめでした。
携帯電話から繋いでみると、こちらはちゃんと稼働しています。
どうにもわけがわからないので投稿した次第です。どうかアドバイスをお願い致します。

今はこんな状態です。
http://carbonote.cool.ne.jp/cabocha/chat.cgi?

バージョンは1.8.3bです。

初めましてこんにちわ。
入室の時と退室の時に表示がされてない人がいるんですけど（『○○さんが入室されました』・『○○さんが退室されました』）前のBBS拝見させてもらったところ管理モード→デザイン→下フレーム→入退室の表示選択とあったので自分で頑張ってみたのですがどうもできません。もう少し詳しいやり方等を教えてくれませんか??

携帯サイトにてTeaChat 1.8.3bを利用させて頂いて下ります。
ご
存じの通り携帯はアクセスの度にIPアドレスが変化してしまうので有
効な荒らし対策がありません
そこで、UTN属性などを利用して個
別にアクセス制限をかける方法ありませんか？

> 携帯サイトにてTeaChat 1.8.3bを利用させて頂いて下ります。
> ご
> 存じの通り携帯はアクセスの度にIPアドレスが変化してしまうので有
> 効な荒らし対策がありません
> そこで、UTN属性などを利用して個
> 別にアクセス制限をかける方法ありませんか？

携帯のみのチャットにするのであれば、
他サイトのプログラムと併用する事で出来ると思います。

> 他サイトのプログラムとはどんな物ですか？

utnによるCGI機能拡張プログラムですね。
http://cgiroom.nu/
こちらのサイト様から配付されてます。

はじめまして。

入室画面で下フレームを出さない設定をして、PCからは覗き防止できたのですが、携帯では「過去ログ５０行」って表示されて入室前でも見れてしまいます。これを消すにはどうしたらいいでしょうか？

それと、携帯から電報のコマンドが表示されませんが、使えないのでしょうか？携帯機種はボーダホンのD-08（ちょっと古い）です。

> 入室画面で下フレームを出さない設定をして、PCからは覗き防止できたのですが、携帯では「過去ログ５０行」って表示されて入室前でも見れてしまいます。これを消すにはどうしたらいいでしょうか？

色々いじってるので、正確な行数は分かりませんが
html.plの120行目辺りに
print qq(<a href="$script?view=on&window=50&reload=0&k_tairom=on" $accesskey="2">2.過去ログ</a>);
というのがあると思うので、それを削除するか、先頭に#を入れてみたら消せると思います。

> それと、携帯から電報のコマンドが表示されませんが、使えないのでしょうか？携帯機種はボーダホンのD-08（ちょっと古い）です。

電報機能はPC限定機能ですね。
携帯だとIPが変わってしまうので使用できないです。

バージョンは1.8.3bです
同一ホストからの書き込みをすると、参加者名があとから入ってきたものに上書されます。

同一ホストでも、参加者表示を正しく表示するにはどのようにしたらよいのでしょうか

1.8.4bでも確認できました。
しかも、過去ログ閲覧すると、どちらか片方の発言しか見えないようです。
通常のチャットログでは、両方とも見えるのですが……。

lockディレクトリとは何の事でしょうか？？また、どのようなものを作成すればいいのでしょうか？
初心者なので専門知識がないので分かりません(＞＜；)分かる方居ましたら教えて頂けると嬉しいです。

私も初心者です(^_^;) lockディレクトリ…私は、lockという名のフォルダを作成(中になにもいれず…)アップしています…稼動はしております。もし、本当のlockディレクトリの正体が判れば知りたいです(^_^;)

やっぱりフォルダなんですか！！
えっと、フォルダには拡張子とかってのは無いのでしょうか？？(＞＜)

> やっぱりフォルダなんですか！！
> えっと、フォルダには拡張子とかってのは無いのでしょうか？？(＞＜)

ディレクトリ（フォルダ）自体に拡張子は無いです。
ようは引き出しと思っておけばいいと思います。
引き出しも無く全部の書類が出ている状態だと整理できませんよね。

lockファイルですが、同時アクセスをされた時にCGIが壊れ無いようにするものってぐらいの認識でいいと思います。
まぁ詳しい事はグーグル等で検索すればすぐに出てきますので、そちらを参考にしてみてはいかがでしょうか？

みつさん、回答ありがとうございます！！無事に設置することができました！！（＾＾）
lockファイルにはそんな機能があるんですね、驚きです(＠＠；)
ご回答、ありがとうございました！！

FOMAからだとclearでのログ削除が効かないようです。
AUのWINでは正常に働きました。
また、これはWINのみしか確認してませんが、WIN端末から管理モードでログ初期化を行っても初期化されませんでした。

> FOMAからだとclearでのログ削除が効かないようです。
> AUのWINでは正常に働きました。


clearはIPで判別してるらしいので、
発言の度にIPが変わる流動IPの携帯ではclear出来ないと思います。

> clearはIPで判別してるらしいので、
> 発言の度にIPが変わる流動IPの携帯ではclear出来ないと思います。
そう言う事だったんですね。
ありがとうございました。