がらくたCGI工房

フリーＣＧＩ：人工無脳

Contents

ダウンロード＆設置方法

ちゃぼっとくん２号

Ｗちゃぼっとくん

改造マニュアル

ワイルドカードを変更する

裏ログを取得する

発言消去をできるようにする

入退室メッセージをつける

FAQ(よくある質問)

無限ループにはまる

おみくじをひいてくれない

ワイルドカードを間違えて教育したら？

改造マニュアルの発言消去の正規表現対策にだけ「*」があるのは何故？

W-Chabotくんでは、ぼっと同志で会話しますか？

時々、画面に何も表示されないことがある

↑　このページのＴＯＰへ

ダウンロード＆設置方法

改造マニュアル

ワイルドカードを変更する

ちゃぼっとくんのワイルドカードは「*」になっています。
Perlのワイルドカードは「.*」なのに、なぜわざわざ「*」にしたかというと、一文字の方が(それもDOSやUNIX利用経験がある人にしてみれば*が)嬉しいからです。ファイルに保存する時にはCGIの方で「.*」に書き換えてくれます。
とかいうと偉そうですが、実は単に人様の人工無脳を教育しようとして、ワイルドカードを間違えた経験があるからだったりしますが(笑)。いや「*.」ってやっちゃったんです。「.」をPerlの結合の演算子と勘違いしましてね。ワイルドカードの「.*」の「.」は、正規表現の「.」ですね(^^;。

そういうわけで、ワイルドカードを「.*」に戻したい場合は、sub studyの中の

$key=~s/\*/\.\*/g; # ローカルワイルドカード*を.*に直す

の行を消しちゃって下さい。あと、説明のところのワイルドカードの説明も勿論修正してくださいね。

裏ログを取得する

通常のログは指定した行数(ちゃぼっとくんのデフォルト値は30)しか残っていませんが、もっとずっと残したい場合の改造方法です。ちなみに、どこまでも延々とログを取り続けますので、サーバさんのために時々はローカルに保存するなどして、サーバ側のはサイズ０に戻してやって下さい。

1. 裏ログファイルの名前を決めます。 初期設定のところがいいでしょう。 $logfile="$logdir\/chat.log";の次の行あたりに、例えば
   

   $llogfile="$logdir\/chat.sav";

   など。そして、そのファイルを$logdirに用意してやって下さい。 サイズは最初は0でOK。パーミッションは666です。
2. ログファイルに書き込む時に裏ログにも書くようにします。

   Chabot Ver.2.0x、W-Chabot 1.0の場合

   sub writelogを変更します。
   ロックファイルは$logfileの方とまあ共同で構わないと思いますが、 open,flock,print,flock,closeを裏ログ用にも追加します。
   

   sub writelog{ # 渡された文字列をログファイルに追加記入する
       while (-f $lock_log){ sleep(1);}  # ロックがかかっていれば待機
       eval 'symlink($logfile, $lock_log);'; # ロックをかける
       open(LOG, ">>$logfile") || &end_html("$logfile open error", $lock_log);
       eval 'flock(LOG, 2);';
       open(LLOG, ">>$llogfile") || &end_html("$llogfile open error", $lock_log);
       eval 'flock(LLOG, 2);';
       print LOG "$_[0]";
       print LLOG "$_[0]";
       eval 'flock(LOG, 8);';
       close(LOG);
       eval 'flock(LLOG, 8);';
       close(LLOG);
       unlink $lock_log; # ロックをはずす
   }
   

   Chabot Ver.2.1x、W-Chabot 1.1以上の場合

   やることは上記と同じなのですが、ChabotのVer.2.1x、W-ChabotのVer 1.1以上の場合、ではsub writelogがなくなってしまいましたので、書き込む場所が変わります。
   ログファイルに書き込みをしている部分、open(LOG, ">$logfile")〜 を探して下さい。

   open(LOG, ">$logfile") || &end_html("$logfile open error", $lock_log);
   eval 'flock(LOG, 2);';
   open(LLOG, ">>$llogfile") || &end_html("$llogfile open error", $lock_log);
   eval 'flock(LLOG, 2);';
   print LOG @log; # 配列の中身をファイルに書き出す
   print LLOG @messages; # @logではないので注意。
   eval 'flock(LOG, 8);';
   close(LOG);
   eval 'flock(LLOG, 8);';
   close(LLOG);
   

   こんな感じです。
   

表ログの方があんまり壊れやすいようでしたら、裏ログをベースに表ログを復活させる機能も追加しようと思ってますので、ご一報くださいね。
一応ログのロックは厳重にかけたつもりなので、まずは壊れないことを祈りますが(^^;。

発言消去をできるようにする

「管理者権限でログのあの行を消したいっ！」という場合。 ログファイルから該当の行を直接消してください、と言いたいところですが(苦笑)、チャットしてる最中にログファイルをいじるわけにもいきませんもんね。指定した言葉を含む行を消すように改造しましょう。

発言消去コマンドを仮にcommandとした場合、 「command○○」と発言すると、○○を含む行が消去されるようにする

1. 発言消去コマンドを打ち込んだ時、ちゃぼっとくんに反応してもらっても嬉しくないので(嬉しくない以前に、この改造の方法だとちゃぼっとくんが反応しちゃうと、うまくいきません)、CHABOT: {のすぐ後、ちゃぼっと教育の前に、こんなのを追加します。
   

   # 発言消去だったらちゃぼっとは何もしない
   if($mes=~/^command/){ last CHABOT; }
   

2. 「ログを配列に読み込み、配列を逆順にし、ログを表示する」ところの、FILEの中身を読んだあと、すなわち、ファイルの中身を配列にうつして close(LOG)したすぐ後に、こんなのを追加します。
   

   ## 発言消去
   $flag = 0; # 念のため。
   if($mes=~s/^command//){
       # メタキャラの正規表現対策をする
       $mes=~s/([\^\(\)\<\>\/\\\[\]\$\.\*\?\{\}\+])/\\$1/g; 
       foreach $log (@log) {
           $log = '' if($log=~/$mes/i);
       }
       $flag = 1;
   }
   

3. ログを変更したらログファイルも変更しなくちゃ話になりませんから、この次の行を以下のように変更します。
   

   Chabot Ver.2.0x or W-Chabot Ver.1.0の場合

   修正前：
     if (@log > $row ){
   修正後：
     if ((@log > $row) || ($flag == 1)){
   

   Chabot Ver.2.1x以上 or W-Chabot Ver.1.01以上の場合

   修正前：
     if(@messages > 0){
         splice(@log, $#log+1, 0, @messages);
   修正後：
     if((@messages > 0) || ($flag == 1)){
         splice(@log, $#log+1, 0, @messages) unless ($flag==1);
   

ちなみに、「command○○」を実行した直後、一回分だけ、 消した行が「>」と表示されますが、 次回からちゃんとなりますので、大目に見てください。

更に、clearと打ったら打った人の発言が消去されるようにする

タグ対策の後、CHABOT: {の前に、

## for 発言消去
$mes = 'command'.$name if ($mes eq 'clear');

という行を追加してください。
あと、説明のところに「clearと打つと貴方の発言が全部消去されます」 とか説明を入れるといいかと。

ちゃぼっとくんに入退室メッセージをつける

基本的に私が「要らん」と思っている機能は、作るのが楽しくないです。 そういうわけで「入退室メッセージ機能が欲しい」と言った方がいた時、 私は「自分でつけましょう」と言いました。
いやー、だって、わかってたんですもの。 その人がちゃぼっとくんの改造できるだけの力を身につけていたことを(^^;。 いい勉強になるしぃ。ねえ？ひかるさん。
そして、本当に自分で作ったひかるさんは、更にちゃぼっとくん改として、 それを公開してくれました。
入退室メッセージをつけたい方は、 ひかるさんの「CGI Maniax」から、 ちゃぼっとくん改造教室に行ってください。 他にも、ちゃぼっとくんの、色々なカスタマイズの仕方について載っています。

↑　このページのＴＯＰへ

FAQ(よくある質問)

↑　このページのＴＯＰへ