diff -urN tiarra-20040309/ChangeLog tiarra-20040313/ChangeLog --- tiarra-20040309/ChangeLog 2004-03-09 17:03:45.000000000 +0900 +++ tiarra-20040313/ChangeLog 2004-03-13 22:23:39.000000000 +0900 @@ -1,3 +1,26 @@ +2004-03-13 phonohawk + + * main/Hook.pm (Hook::call, HookTarget::call_hooks): + フック関数に引数を渡せるように変更。 + + * main/RunLoop.pm: + Hook.pmで一般化したためにコメントアウトしてあったフック関連のコードを削除。 + + * main/IrcIO/Client.pm (inform_joinning_channels): + チャンネル情報一つ転送される度に呼ばれるフック channel-info を定義。 + このフックには引数としてIrcIO::Client自身とチャンネル名が渡される。 + フッククラスは同ファイルで定義されるIrcIO::Client::Hook。 + + * module/Log/Recent/pm: + クライアントに送られるチャンネルと同じ順番でログも送るように変更。 + この動作はIrcIO::Clientのフックを利用している。 + + * main/RunLoop.pm (run): + Tiarra暴走検出のコードにバグがあったので修正。 + 0秒selectに2秒以上の間隔が開いた場合にはカウンタをリセットする意図があったと思うが + 2秒*以下*の間隔でリセットしていた。 + ついでなので警告の閾値も300まで引き上げ。 + 2004-03-09 Topia * module/Client/Cache.pm: @@ -1454,7 +1477,7 @@ * これ以前のログは書いていません。 -# Id: $Id: ChangeLog,v 1.136 2004/03/09 07:48:12 topia Exp $ -# Author: $Author: topia $ -# Date: $Date: 2004/03/09 07:48:12 $ -# Revision: $Revision: 1.136 $ +# Id: $Id: ChangeLog,v 1.138 2004/03/13 07:17:33 admin Exp $ +# Author: $Author: admin $ +# Date: $Date: 2004/03/13 07:17:33 $ +# Revision: $Revision: 1.138 $ diff -urN tiarra-20040309/doc/default.css tiarra-20040313/doc/default.css --- tiarra-20040309/doc/default.css 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/default.css 2004-03-13 22:23:40.000000000 +0900 @@ -0,0 +1,86 @@ +/* $Id: default.css,v 1.1 2003/08/04 09:29:21 admin Exp $ */ + +body { + background-color: #ffac6a; + color: #000000; + font-style: normal; + font-size: 14px; + text-align: left; + text-indent: 0px; + padding: 20px 30px; + margin: 0px; +} + +/* general */ +a { + text-decoration: underline; +} +a:link { + color: #c70800; +} +a:visited { + color: #a25a4e; +} +a:active { + text-decoration: none; +} +a:hover { + font-weight: bold; + text-decoration: underline; +} + +/* toc-group */ +.toc-group { + font-size: 18px; +} + +.toc-group .group-description { + font-size: 14px; +} + +.toc-group .toc-individual { + font-size: 16px; +} + +.toc-group .toc-individual .module-description { + font-size: 12px; +} + +/* doc-element */ +.element { + /* border-style: double; + border-width: 3px; */ + border-color: #ffffff; + padding: 7px; +} + +.element .element-name { + font-size: 24px; + font-style: bold; +} + +.element .description { + font-style: bold; +} + +.element .doc-content { + margin: 5px 0 0 0; +} + +.element .comment { + font-size: 12px; + + /*border-style: solid; + border-width: 2px;*/ + margin: 10px 0 0 0; +} + +.element .key { + color: #880000; + font-size: 16px; +} + +.element .value { + color: #880000; + font-size: 16px; +} \ ファイル末尾に改行がありません diff -urN tiarra-20040309/doc/module/Auto.html tiarra-20040313/doc/module/Auto.html --- tiarra-20040309/doc/module/Auto.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/Auto.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,580 @@ + + + + + + + Auto + + + + + +
+ Auto::Alias ユーザエイリアス情報の管理を行ないます。 +
+

+エイリアスは基本的にname,userの二つのフィールドから成っており、
+それぞれユーザー名、ユーザーマスクを表します。
+

+

+ エイリアス定義ファイルのパスと、そのエンコーディング。
+ このファイルは次のようなフォーマットである。
+ 1. それぞれの行は「<キー>: <値>」の形式である。
+ 2. 空の行で、各ユーザーを区切る。
+ 3. <値>はカンマで区切られて複数の値とされる。
+
+ エイリアス定義ファイルの例:
+
+ name: sample
+ user: *!*sample@*.sample.net
+
+ name: sample2,[sample2]
+ user: *!sample2@*.sample.net,*!sample2@*.sample2.net
+
+

+alias:alias.txt
+alias-encoding:euc
+

+この発言をした人のエイリアスが登録されていれば、それをprivで送る。
+

+confirm:エイリアス確認
+

+「 user *!*user@*.user.net」のようにして情報を追加。
+発言をした人のエイリアスが未登録だった場合は、userのみ受け付けて新規追加とする。
+

+add:エイリアス追加
+

+「 name ユーザー」のようにして情報を削除。
+userを全て削除されたエイリアスは他の情報(name等)も含めて消滅する。
+

+remove:エイリアス削除
+

+メッセージが追加されたときの反応を指定します。
+ランダムなメッセージを発言する際のフォーマットを指定します。
+エイリアス置換が有効です。#(nick.now)、#(channel)は
+それぞれ相手のnick、チャンネル名に置換されます。
+#(key)、#(value)は、追加されたキーと値に置換されます。
+

+added-format:#(name|nick.now): エイリアス #(key) に #(value) を追加しました。
+

+メッセージが削除されたときの反応を指定します。
+added-formatで指定できるものと同じです。
+

+removed-format:#(name|nick.now): エイリアス #(key) から #(value) を削除しました。
+

+エイリアスの追加や削除が許されている人。省略された場合は「*!*@*」と見做される。
+

+modifier:*!*@*
+ +
+
+ + +
+ + +
+ Auto::Answer 特定の発言に反応して対応する発言をする。 +
+

+Auto::Aliasを有効にしていれば、エイリアス置換を行ないます。
+

+

+ 反応する発言と、それに対する返事を定義します。
+ エイリアス置換が有効です。#(nick.now)と$(channel)はそれぞれ
+ 相手の現在のnickとチャンネル名に置換されます。
+
+ 書式: <反応する発言のマスク> <それに対する返事>
+ 例:
+

+reply:こんにちは* こんにちは、#(name|nick.now)さん。
+

+この例では誰かが「こんにちは」で始まる発言をすると、
+発言した人のエイリアスを参照して「こんにちは、○○さん。」のように発言します。
+

+ +
+
+ + +
+ + +
+ Auto::ChannelWithoutOper チャンネルオペレータ権限がなくなってしまったときに発言する。 +
+

++で始まらない特定のチャンネルで、+aモードでも+rモードでもないのに
+誰もチャンネルオペレータ権限を持っていない状態になっている時、
+そこに誰かがJOINする度に特定のメッセージを発言するモジュールです。
+

+

+書式: <チャンネル名> <メッセージ>
+

+channel:#IRC談話室@ircnet なると消失しました。
+ +
+
+ + +
+ + +
+ Auto::Joined 特定のチャンネルに誰かがJOINする度に特定のメッセージを発言する。 +
+

+Auto::Aliasを有効にしていれば、エイリアス置換を行ないます。
+

+

+ 発言を行なうチャンネルと、その内容を定義します。
+ #(nick.now)と$(channel)は、それぞれ相手の現在のnickとチャンネル名に置換されます。
+
+ 書式: <チャンネル名> <発言内容>
+

+channel:#チャンネル@ircnet 「#ちゃんねる」に移転しました。
+ +
+
+ + +
+ + +
+ Auto::MesMail 伝言をメールとして送信する。 +
+

+メールアドレスはエイリアスの mail を参照します。
+

+

+Fromアドレス。[default: OSのユーザ名]
+

+from:example1@example.jp
+

+送信用のキーワード [default: mesmail_send]
+

+send:速達伝言
+

+使用を許可する人&チャンネルのマスク。
+例はTiarraモード時。 [default: なし]
+

+mask:* +*!*@*
+

+[plum-mode] mask: +*!*@*
+

+

+maskで拒否されたときのメッセージ [default: なし]
+

+deny:伝言したくない。
+

+一度に送れる宛先の量 [default: 無制限]
+

+max-send-address:5
+

+宛先を探すエイリアスエントリ [default: なし]
+

+alias-key:name
+alias-key:nick
+

+宛先の人を判別出来なかったときのメッセージ [default: なし]
+

+unknown:#(who)さんと言うのは誰ですか?
+

+メールの日付形式
+

+date:%H:%M:%S
+

+エイリアスは見付かったけれどメールアドレスが登録されていなかったときのメッセージ。 [default: なし]
+

+none-address:#(who)さんはアドレスを登録していません。
+

+SMTPのホスト [default: localhost]
+

+smtphost:localhost
+

+SMTPのポート [default: smtp(25)]
+

+smtpport:25
+

+SMTPで自ホストのFQDN [default: localhost]
+

+smtpfqdn:localhost
+

+送信するメールの既定件名(エイリアス使用不可) [default: Message from IRC]
+

+subject:Message from IRC
+

+送信するメールの本文 [default: #(date) << #(from.name|from.nick|from.nick.now) >> #(message)]
+

+format:#(date)に#(from.name|from.nick|from.nick.now)さんから#(message)という伝言です。
+

+送信したときのメッセージ。 [default: なし]
+

+accept:#(who)さんに#(message)と伝言しておきました。
+

+---- POP before SMTP の指定 ----
+POP before SMTPを使う。 [default: no]
+

+use-pop3:yes
+

+POP before SMTPのタイムアウト時間(分)。分からない場合は指定しなくて良い。 [default: 0]
+

+pop3-expire:4
+

+POPのホスト。 [default: localhost]
+

+pop3host:localhost
+

+POPのポート。 [default: pop(110)]
+

+pop3port:110
+

+POPのユーザ [default: OSのユーザ名]
+

+pop3user:example1
+

+POPのパスワード [default: 空パスワード('')]
+

+pop3pass:test-password
+

+---- エラーメッセージの設定 ----
+

+

+一般エラー。
+error-[state] と言う形式で詳細エラーメッセージを指定できる。
+[state]は、
+   * mailfrom(メールの送信者を指定しようとしてエラー)
+   * rcptto(メールの送信先を指定しようとしてエラー)
+   * norcptto(メールの送信先が全部無くなった)
+   * data(メールの中身を送信しようとしてエラー)
+   * finish(メールの中身を送信したらエラー)
+がある。特に欲しくなければerror-[state]は指定しなくても構わない。
+メッセージを出したくないなら中身の無いエントリを指定すれば良い。
+error-[state]が指定されてない場合は代わりに error を使う。 [default: 未定義]
+

+error-rcptto:
+error-norcptto:#(who)さんには送れませんでした。送信できるメールアドレスがありません。
+error-data:メールが送信できません。DATAコマンドに失敗しました。#(line;サーバ応答:%s|;)
+error:メール送信エラーです。#(line;サーバ応答:%s|;)#(state; on %s|;)
+

+致命的なエラー。メールに個別なエラーではないので送信者(のprefix)毎に1メッセージ送られる。
+fatalerror-[state]
+[state]:
+   * first(接続エラー)
+   * helo(SMTPセッションを開始出来ない)
+がある。特に欲しくなければfatalerror-[state]は指定しなくても構わない。
+メッセージを出したくないなら中身の無いエントリを指定すれば良い。
+fatalerror-[state]が指定されてない場合は代わりに fatalerror を使う。 [default: 未定義]
+

+fatalerror-first:SMTPサーバに接続できません。
+fatalerror:SMTPセッションで致命的なエラーがありました。#(line; サーバ応答:%s|;)#(state; on %s|;)
+ +
+
+ + +
+ + +
+ Auto::Oper 特定の文字列を発言した人を+oする。 +
+

+Auto::Aliasを有効にしていれば、エイリアス置換を行ないます。
+

+

++oを要求する文字列(マスク)を指定します。
+

+request:なると寄越せ
+

+チャンネルオペレータ権限を要求した人と要求されたチャンネルが
+ここで指定したマスクに一致しなかった場合は
+denyで指定した文字列を発言し、+oをやめます。
+省略された場合は誰にも+oしません。
+書式は「チャンネル 発言者」です。
+マッチングのアルゴリズムは次の通りです。
+1. チャンネル名にマッチするmask定義を全て集める
+2. 集まった定義の発言者マスクを、定義された順にカンマで結合する
+3. そのようにして生成されたマスクで発言者のマッチングを行ない、結果を+o可能性とする。
+例1:
+mask: *@2ch* *!*@*
+mask: #*@ircnet* *!*@*.hoge.jp
+この例ではネットワーク 2ch の全てのチャンネルで誰にでも +o し、
+ネットワーク ircnet の # で始まる全てのチャンネルでホスト名 *.hoge.jp の人に+oします。
+#*@ircnetだと「#hoge@ircnet:*.jp」などにマッチしなくなります。
+例2:
+mask: #hoge@ircnet -*!*@*,+*!*@*.hoge.jp
+mask: * +*!*@*
+基本的に全てのチャンネルで誰にでも +o するが、例外的に#hoge@ircnetでは
+ホスト名 *.hoge.jp の人にしか +o しない。
+この順序を上下逆にすると、全てのチャンネルで全ての人を +o する事になります。
+何故なら最初の* +*!*@*が全ての人にマッチするからです。
+

+mask:* *!*@*
+

++oを要求した人を実際に+oする時、ここで指定した発言をしてから+oします。
+#(name|nick)のようなエイリアス置換を行います。
+エイリアス以外でも、#(nick.now)を相手のnickに、#(channel)を
+そのチャンネル名にそれぞれ置換します。
+

+message:了解
+

++oを要求されたが+oすべき相手ではなかった場合の発言。
+省略されたら何も喋りません。
+

+deny:断わる
+

++oを要求されたが相手は既にチャンネルオペレータ権限を持っていた場合の発言。
+省略されたらdenyに設定されたものを使います。
+

+oper:既に@を持っている
+

++oを要求されたが自分はチャンネルオペレータ権限を持っていなかった場合の発言。
+省略されたらdenyに設定されたものを使います。
+

+not-oper:@が無い
+

+チャンネルに対してでなく自分に対して+oの要求を行なった場合の発言。
+省略されたらdenyに設定されたものを使います。
+

+private:チャンネルで要求せよ
+

+チャンネルの外から+oを要求された場合の発言。+nチャンネルでは起こりません。
+省略されたらdenyに設定されたものを使います。
+

+out:チャンネルに入っていない
+ +
+
+ + +
+ + +
+ Auto::Random 特定の発言に反応してランダムな発言をします。 +
+

+Auto::Aliasを有効にしていれば、エイリアス置換を行ないます。
+

+

+使用するブロックの定義。
+

+blocks:wimikuji
+wimikuji +
+

+ランダムに発言するメッセージの書かれたファイルと、その文字コードを指定します。
+ファイルの中では一行に一つのメッセージを書いて下さい。
+

+file:random.txt
+file-encoding:euc
+

+反応する発言を表すマスクを指定します。
+

+request:ゐみくじ
+

+メッセージの登録数を返答するキーワードを指定します。
+

+count-query:ゐみくじ登録数
+

+メッセージの登録数を返答するときの反応を指定します。
+formatで指定できるものと同じです。#(count)は登録数になります。
+

+count-format:ゐみくじは#(count)件登録されています。
+

+ランダムなメッセージを発言する際のフォーマットを指定します。
+エイリアス置換が有効です。#(message)、#(nick.now)、#(channel)は
+それぞれメッセージ内容、相手のnick、チャンネル名に置換されます。
+何も登録されていないときのために、#(message|;無登録)のように指定すると良いでしょう。
+

+format:#(name|nick.now)の運命は#(message)
+

+反応する人のマスク。
+

+mask:* *!*@*
+

+plum: mask: *!*@*
+

+

+メッセージが追加されたときの反応を指定します。
+formatで指定できるものと同じです。#(message)は追加されたメッセージになります。
+

+added-format:#(name|nick.now): ゐみくじ #(message) を追加しました。
+

+メッセージが削除されたときの反応を指定します。
+formatで指定できるものと同じです。#(message)は削除されたメッセージになります。
+

+removed-format:#(name|nick.now): ゐみくじ #(message) を削除しました。
+

+発言に反応する確率を指定します。百分率です。省略された場合は100と見做されます。
+

+rate:100
+

+メッセージを追加するキーワードを指定します。
+ここで指定したキーワードを発言すると、新しいメッセージを追加します。
+実際の追加方法は「 <追加するメッセージ>」です。
+

+add:ゐみくじ追加
+

+メッセージを削除するキーワードを指定します。
+実際の削除方法は「 <削除するキーワード>」です。
+

+remove:ゐみくじ削除
+

+addとremoveを許可する人。省略された場合は誰も変更できません。
+

+modifier:* *!*@*
+

+plum: modifier: *!*@*
+

+
+ +
+
+ + +
+ + +
+ Auto::Reply 特定の発言に反応して発言をします。 +
+

+Auto::Aliasを有効にしていれば、エイリアス置換を行ないます。
+

+

+使用するブロックの定義。
+

+blocks:std
+std +
+

+データファイルと文字コードを指定します。
+ファイルの中では一行に一つの"反応:メッセージ"を書いて下さい。
+

+file:reply.txt
+file-encoding:euc
+

+反応チェックを行うキーワードを指定します。
+実際の指定方法は、「 <チェックしたい発言>」です。
+

+request:反応チェック
+

+request に反応するときのフォーマットを指定します。
+#(key) がキーワード、 #(message) が発言に置換されます。
+

+reply-format:「#(key)」という発言に「#(message)」と反応します。
+

+request に反応する最大個数を指定します。
+あまり大きな値を指定すると、アタックが可能になったり、ログが流れて邪魔なので注意してください。
+

+max-reply:5
+

+メッセージの登録数を返答するキーワードを指定します。
+

+count-query:反応登録数
+

+メッセージの登録数を返答するときの反応を指定します。
+formatで指定できるものと同じです。#(count)は登録数になります。
+

+count-format:反応は#(count)件登録されています。
+

+反応する人のマスク。
+

+mask:* *!*@*
+

+plum: mask: *!*@*
+

+

+反応が追加されたときの反応を指定します。
+formatで指定できるものと同じです。#(message)は追加されたメッセージになります。
+

+added-format:#(name|nick.now): #(key) に対する反応 #(message) を追加しました。
+

+メッセージが削除されたときの反応を指定します。
+formatで指定できるものと同じです。#(message)は削除されたメッセージになります。
+

+removed-format:#(name|nick.now): #(key) #(message;に対する反応 %s|;) を #(count) 件削除しました。
+

+発言に反応する確率を指定します。百分率です。省略された場合は100と見做されます。
+

+rate:100
+

+メッセージを追加するキーワードを指定します。
+ここで指定したキーワードを発言すると、新しいメッセージを追加します。
+実際の追加方法は「 <追加するメッセージ>」です。
+

+add:反応追加
+

+メッセージを削除するキーワードを指定します。
+実際の削除方法は「 <削除するキーワード>」です。
+

+remove:反応削除
+

+addとremoveを許可する人。省略された場合は「*!*@*」と見做します。
+

+modifier:*!*@*
+

+正規表現拡張を許可するか。省略された場合は許可します。
+

+use-re:1
+
+ +
+
+ + +
+ + +
+ Auto::Response データファイルの指定にしたがって反応する。 +
+

+大量の反応データを定義するのに向いています。
+

+

+データファイルのフォーマット
+| pattern: re:^(こん(に)?ちは)
+| rate: 90
+| mask: * *!*@*
+| #plum: mask: *!*@*
+| response: こんにちは。
+| response: いらっしゃいませ。
+|
+| pattern: おやすみ
+| rate: 20
+| response: おやすみなさい。
+patternは一行しか書けません。(手抜き
+maskもrateも省略できます。省略した場合はmaskは全員、rateは100となります。
+responseは複数書いておけばランダムに選択されます。
+

+

+データファイル
+

+file:response.txt
+

+文字コード
+

+charset:euc
+

+使用を許可する人&チャンネルのマスク。
+

+mask:* *!*@*
+

+plum: mask: +*!*@*
+

+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/CTCP.html tiarra-20040313/doc/module/CTCP.html --- tiarra-20040309/doc/module/CTCP.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/CTCP.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,101 @@ + + + + + + + CTCP + + + + + +
+ CTCP::ClientInfo CTCP CLIENTINFOに応答する。 +
+

+CTCP::Versionのintervalと同じ。
+

+interval:3
+ +
+
+ + +
+ + +
+ CTCP::Ping CTCP PINGに応答する。 +
+

+CTCP::Versionのintervalと同じ。
+

+interval:3
+ +
+
+ + +
+ + +
+ CTCP::Time CTCP TIMEに応答する。 +
+

+CTCP::Versionのintervalと同じ。
+

+interval:3
+ +
+
+ + +
+ + +
+ CTCP::UserInfo CTCP USERINFOに応答する。 +
+

+CTCP::Versionのintervalと同じ。
+

+interval:3
+

+USERINFOとして返すメッセージ。
+

+message:テスト
+ +
+
+ + +
+ + +
+ CTCP::Version CTCP VERSIONに応答する。 +
+

+ 連続したCTCPリクエストに対する応答の間隔。単位は秒。
+ 例えば3秒に設定した場合、一度応答してから3秒間は
+ CTCPに一切応答しなくなる。デフォルトは3。
+
+ なお、CTCP受信時刻の記録は、全てのCTCPモジュールで共有される。
+ 例えばCTCP VERSIONを送った直後にCTCP CLIENTINFOを送ったとしても、
+ CTCP::ClientInfoのintervalで設定された時間を過ぎていなければ
+ 後者は応答しない。
+

+interval:3
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/Channel.html tiarra-20040313/doc/module/Channel.html --- tiarra-20040309/doc/module/Channel.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/Channel.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,194 @@ + + + + + + + Channel + + + + + +
+ Channel::Freeze 特定のチャンネルの発言を、一時的に受信するのをやめる。 +
+

+ログを取っているなら、ログには記録される。
+

+

+チャンネルの凍結に用いるコマンド名。
+省略時は freeze であり、/freeze #channel@network のように使う。
+チャンネル名を省略すると、現在フリーズされているチャンネルのリストを表示する。
+

+freeze-command:freeze
+

+凍結解除に用いるコマンド名。
+省略時は defrost であり、/defrost #channel@network のように使う。
+

+defrost-command:defrost
+

+凍結しているチャンネルが存在する時、一定時間毎にその旨を報告する事も可能。
+この機能は凍結した事を忘れないようにする為にある。
+単位は分、デフォルトはゼロ(報告しない)。
+

+reminder-interval:30
+ +
+
+ + +
+ + +
+ Channel::Join::Connect サーバーに初めて接続した時、指定したチャンネルに入るモジュール。 +
+

+ 書式: <チャンネル1>[,<チャンネル2>,...] [<チャンネル1のキー>,...]
+     コンマの直後のスペースは無視されます。
+
+ 例:
+   「#aaaaa@ircnet」に「aaaaa」というキーで入る。
+

+channel:#aaaaa@ircnet aaaaa
+

+
+   「#aaaaa@ircnet」、「#bbbbb@ircnet:*.jp」、「#ccccc@ircnet」、「#ddddd@ircnet」の4つのチャンネルに入る。
+

+channel:#aaaaa@ircnet,#bbbbb@ircnet:*.jp, #ccccc@ircnet
+channel:#ddddd@ircnet
+ +
+
+ + +
+ + +
+ Channel::Join::Invite 招待されたらそのチャンネルに入る。 +
+

+許可するユーザ/チャンネルのマスク。
+

+mask:* *!*@*
+

+plum: *!*@*
+

+

+招待されたチャンネルに流すメッセージのフォーマット。
+

+message:こんばんわ〜。
+ +
+
+ + +
+ + +
+ Channel::Join::Kicked 特定のチャンネルからkickされた時に、自動で入りなおす。 +
+

+対象となるチャンネル名のマスク
+

+channel:*
+ +
+
+ + +
+ + +
+ Channel::Mode::Get チャンネルにJOINした時、そのチャンネルのモードを取得します。 +
+

+Channel::Mode::Set等が正しく動くためには
+チャンネルのモードをTiarraが把握しておく必要があります。
+自動的にモードを取得するクライアントであれば必要ありませんが、
+そうでなければこのモジュールを使うべきです。
+

+

+設定項目は無し。
+

+ +
+
+ + +
+ + +
+ Channel::Mode::Oper::Grant 特定のチャンネルに特定の人間がjoinした時に、自分がチャンネルオペレータ権限を持っていれば+oする。 +
+

+splitからの復帰などで+o対象の人が一度に大量に入って来ても+oは少しずつ実行します。
+Excess Floodにはならない筈ですが、本格的な防衛BOTに使える程の物ではありません。
+

+

+対象の人間がjoinしてから実際に+oするまで何秒待つか。
+省略されたら待ちません。
+

+wait:0
+

+チャンネルと人間のマスクを定義。Auto::Operと同様。
+

+mask:* example!~example@*.example.ne.jp
+ +
+
+ + +
+ + +
+ Channel::Mode::Set チャンネルを作成した時に自動的にモードを設定するモジュール。 +
+

+書式は<チャンネル名にマッチするマスク> <設定するモード>[,<設定するモード>,...]です。
+#IRC談話室@ircnetなら+t+nを、それ以外なら+nを設定する例。
+

+channel:#IRC談話室@ircnet +t
+channel:* +n
+

+LimeChat 標準設定を模倣する設定例。
+

+channel:* +sn
+ +
+
+ + +
+ + +
+ Channel::Rejoin チャンネルオペレータ権限を無くしたとき、一人ならjoinし直す。 +
+

++チャンネルや+aされているチャンネル以外でチャンネルオペレータ権限を持たずに
+一人きりになった時、そのチャンネルの@を復活させるために自動的にjoinし直すモジュール。
+トピック、モード、banリスト等のあらゆるチャンネル属性をも保存します。
+

+

++b,+I,+eリストの復旧を行なうかどうか。
+あまりに長いリストを取得するとMax Send-Q Exceedで落とされるかも知れません。
+

+save-lists:1
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/Client.html tiarra-20040313/doc/module/Client.html --- tiarra-20040309/doc/module/Client.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/Client.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,56 @@ + + + + + + + Client + + + + + +
+ Client::Cache データをキャッシュしてサーバに問い合わせないようにする +
+

+キャッシュを使用しても、使われるのは接続後最初の一度だけです。
+二度目からは通常通りにサーバに問い合わせます。
+また、クライアントオプションの no-cache を指定すれば動きません。
+

+

+mode キャッシュを使用するか
+

+use-mode-cache:1
+

+who キャッシュを使用するか
+

+use-who-cache:1
+ +
+
+ + +
+ + +
+ Client::Eval クライアントから Perl 式を実行できるようにする。 +
+

+eval を実行するコマンド名。省略されるとコマンドを追加しません。
+この時コマンドはTiarraが握り潰すので、IRCプロトコル上で定義された
+コマンド名を設定すべきではありません。
+

+command:eval
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/Debug.html tiarra-20040313/doc/module/Debug.html --- tiarra-20040309/doc/module/Debug.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/Debug.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,54 @@ + + + + + + + Debug + + + + + +
+ Debug::RawLog 標準出力にクライアントやサーバとの通信をダンプする。 +
+

+0 または省略で表示しない。 1 で表示する。
+クライアントオプションの logname によって、ダンプに使う名前を指定できます。
+

+

+サーバからの入力
+

+enable-server-in:1
+

+サーバへの出力
+

+enable-server-out:1
+

+クライアントからの入力
+

+enable-client-in:0
+

+クライアントへの出力
+

+enable-client-out:0
+

+PING/PONG を無視する
+

+ignore-ping:1
+

+NumericReply の名前を解決して表示する(ちゃんとした dump では無くなります)
+

+resolve-numeric:1
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/Log.html tiarra-20040313/doc/module/Log.html --- tiarra-20040309/doc/module/Log.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/Log.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,129 @@ + + + + + + + Log + + + + + +
+ Log::Channel チャンネルやprivのログを取るモジュール。 +
+

+Log系のモジュールでは、以下のように日付や時刻の置換が行なわれる。
+%% : %
+%Y : 年(4桁)
+%m : 月(2桁)
+%d : 日(2桁)
+%H : 時間(2桁)
+%M : 分(2桁)
+%S : 秒(2桁)
+

+

+ログを保存するディレクトリ。Tiarraが起動した位置からの相対パス。~指定は使えない。
+

+directory:log
+

+ログファイルの文字コード。省略されたらjis。
+

+charset:sjis
+

+各行のヘッダのフォーマット。省略されたら'%H:%M'。
+

+header:%H:%M:%S
+

+ファイル名のフォーマット。省略されたら'%Y.%m.%d.txt'
+

+filename:%Y.%m.%d.txt
+

+ログファイルのモード(8進数)。省略されたら600
+

+mode:600
+

+ログディレクトリのモード(8進数)。省略されたら700
+

+dir-mode:700
+

+ログを取るコマンドを表すマスク。省略されたら記録出来るだけのコマンドを記録する。
+

+command:privmsg,join,part,kick,invite,mode,nick,quit,kill,topic,notice
+

+PRIVMSGとNOTICEを記録する際に、自分の発言と他人の発言でフォーマットを変えるかどうか。1/0。デフォルトで1。
+

+distinguish-myself:1
+

+各ログファイルを開きっぱなしにするかどうか。
+このオプションは多くの場合、ディスクアクセスを抑えて効率良くログを保存しますが
+ログを記録すべき全てのファイルを開いたままにするので、50や100のチャンネルを
+別々のファイルにログを取るような場合には使うべきではありません。
+

+keep-file-open:1
+

+keep-file-openを有効にした場合、発言の度にログファイルに追記するのではなく
+一定の分量が溜まってから書き込まれる。そのため、ファイルを開いても
+最近の発言はまだ書き込まれていない可能性がある。
+syncを設定すると、即座にログをディスクに書き込むためのコマンドが追加される。
+省略された場合はコマンドを追加しない。
+

+sync:sync
+

+各チャンネルの設定。チャンネル名の部分はマスクである。
+個人宛てに送られたPRIVMSGやNOTICEはチャンネル名"priv"として検索される。
+記述された順序で検索されるので、全てのチャンネルにマッチする"*"などは最後に書かなければならない。
+指定されたディレクトリが存在しなかったら、Log::Channelはそれを勝手に作る。
+フォーマットは次の通り。
+channel: <ディレクトリ名> (<チャンネル名> / 'priv')
+例:
+filename: %Y.%m.%d.txt
+channel: IRCDanwasitu #IRC談話室@ircnet
+channel: others *
+この例では、#IRC談話室@ircnetのログはIRCDanwasitu/%Y.%m.%d.txtに、
+それ以外(privも含む)のログはothers/%Y.%m.%d.txtに保存される。
+

+channel:priv priv
+channel:others *
+ +
+
+ + +
+ + +
+ Log::Recent クライアントを接続した時に、保存しておいた最近のメッセージを送る。 +
+

+クライアントオプションの no-recent-logs が指定されていれば送信しません。
+

+

+各行のヘッダのフォーマット。省略されたら'%H:%M'。
+

+header:%H:%M:%S
+

+ログをチャンネル毎に何行まで保存するか。省略されたら10。
+

+line:15
+

+PRIVMSGとNOTICEを記録する際に、自分の発言と他人の発言でフォーマットを変えるかどうか。1/0。デフォルトで1。
+

+distinguish-myself:1
+

+どのメッセージを保存するか。省略されたら保存可能な全てのメッセージを保存する。
+

+command:privmsg,notice,topic,join,part,quit,kill
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/System.html tiarra-20040313/doc/module/System.html --- tiarra-20040309/doc/module/System.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/System.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,162 @@ + + + + + + + System + + + + + +
+ System::Macro 新規にコマンドを追加し、そのコマンドが使われた時に特定の動作をまとめて実行します。 +
+

+書式: <コマンド> <動作>
+コマンド"switch"を追加して、それが使われると
+#a@ircnet,#b@ircnet,#c@ircnetにjoinして、
+#d@ircnet,#e@ircnet,#f@ircnetからpartする例。
+

+macro:switch join #a@ircnet,#b@ircnet,#c@ircnet
+macro:switch part #d@ircnet,#e@ircnet,#f@ircnet
+ +
+
+ + +
+ + +
+ System::Pong サーバーからのPINGメッセージに対し、自動的にPONGを返す。 +
+

+これをoffにするとクライアントが自らPINGに応答せざるを得なくなりますが、
+クライアントからのPONGメッセージはデフォルトのサーバーへ送られるので
+デフォルト以外のサーバーからはPing Timeoutで落とされるなど
+全く良い事がありません。
+  設定項目はありません。
+

+ +
+
+ + +
+ + +
+ System::PrivTranslator クライアントからの個人的なprivが相手に届かなくなる現象を回避する。 +
+

+このモジュールは個人宛てのprivmsgの送信者のnickにネットワーク名を付加します。
+設定項目はありません。
+

+ +
+
+ + +
+ + +
+ System::Raw マスクで指定したサーバーにIRCメッセージを加工せずに直接送る。 +
+

+例えばQUITを送る事で一時的な切断が可能。
+

+

+この機能を利用するためのコマンド名。デフォルトは「raw」。
+「/raw ircnet quit」のようにして使う。
+一つ目のパラメータは送り先のネットワーク名。ワイルドカード使用可能。
+CHOCOA の場合、 raw がクライアントで使われてしまうので、
+コマンド名を変えるか、 /raw raw ircnet quit のようにする必要がある。
+

+command:raw
+ +
+
+ + +
+ + +
+ System::Reload confファイルやモジュールの更新をリロードするコマンドを追加する。 +
+

+リロードを実行するコマンド名。省略されるとコマンドを追加しません。
+例えば"load"を設定すると、"/load"と発言しようとした時にリロードを実行します。
+この時コマンドはTiarraが握り潰すので、IRCプロトコル上で定義された
+コマンド名を設定すべきではありません。
+

+command:load
+ +
+
+ + +
+ + +
+ System::RemoteControl 特定の発言が送られてきたとき、それに反応してIRCコマンドを実行します。 +
+

+実行を許可する人間を表すマスク。
+

+mask:*!*example@example.net
+

+ 構文: +
+ は反応するbotのnickを表すマスク。
+ はサーバーに向けて発行するIRCメッセージ。
+
+ 例:
+ + hoge NICK [hoge]
+ hogeというBOTが[hoge]にnickを変更する。
+

+ +
+
+ + +
+ + +
+ System::Shutdown Tiarraを終了させる。 +
+

+クライアントから特定のコマンドが実行された時や、
+誰かから個人的に(privで)特定の発言が送られた時に
+Tiarra を終了させます。
+

+

+追加するコマンド。省略された場合はコマンドでのシャットダウンは無効になります。
+

+command:shutdown
+

+Tiarraをシャットダウンさせるprivの発言。
+省略された場合はprivでのシャットダウンは無効になります。
+

+message:shutdown
+

+privでのシャットダウンを許可する人。
+省略された場合はprivでのシャットダウンは無効になります。
+複数のマスクを指定した場合は、一つでもマッチするものがあればシャットダウンします。
+

+mask:example!example@*.example.jp
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module/User.html tiarra-20040313/doc/module/User.html --- tiarra-20040309/doc/module/User.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module/User.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,173 @@ + + + + + + + User + + + + + +
+ User::Away::Client クライアントが一つも接続されていない時にAWAYを設定します。 +
+

+どのようなAWAYメッセージを設定するか。省略された場合はAWAYを設定しません。
+

+away:居ない。
+ +
+
+ + +
+ + +
+ User::Away::Nick ニックネーム変更に応じて AWAY を設定します。 +
+

+ニックネームを変更したときに、そのニックネームに対応するAWAYが
+設定されていれば、そのAWAYを設定します。そうでなければAWAYを取り消します。
+

+

+ 書式: <設定するAWAYメッセージ>
+
+ nickをhoge_zzzに変更すると、「寝ている」というAWAYを設定する。
+ hoge_workまたはhoge_zzzに変更した場合は、「仕事中」というAWAYを設定する。
+ それ以外のnickに変更した場合はAWAYを取り消す。
+ 後者は正規表現を利用して「away: re:hoge_(work|zzz) 仕事中」としても良い。
+

+away:hoge_zzz 寝ている
+away:hoge_work,hoge_zzz 仕事中
+ +
+
+ + +
+ + +
+ User::Filter 指定された人物からのPRIVMSGやNOTICEを書き換える。 +
+

+人物のマスクと、置換パターンを定義。
+置換パターン中の#(message)は、発言内容に置換されます。
+人物が複数のマスクに一致する場合は、最初に一致したものが使われます。
+

+pattern:*!*@* #(message)
+ +
+
+ + +
+ + +
+ User::Ignore 指定された人間からのPRIVMSGやNOTICEを破棄してクライアントへ送らないようにするモジュール。 +
+

+対象となるコマンドのマスク。省略時には"privmsg,notice"が設定されている。
+ただしprivmsgとnotice以外を破棄してしまうと、(Tiarraは平気でも)クライアントが混乱する。
+

+command:privmsg,notice
+

+maskは複数定義可能。定義された順番でマッチングが行なわれます。
+

+mask:example!*@*.example.net
+ +
+
+ + +
+ + +
+ User::Nick::Detached クライアントが接続されていない時に、特定のnickに変更します。 +
+

+クライアントが接続されていない時のnick。
+このnickが既に使われていたら、適当に変更が加えられて使用されます。
+クライアントが再び接続されると、切断前のローカルnickに戻ります。
+

+detached:PHO_d
+ +
+
+ + +
+ + +
+ User::ServerOper 特定のネットワークに接続した時、OPERコマンドを発行してします。 +
+

+ 書式: <ネットワーク名> <オペレータ名> <オペレータパスワード>
+
+ ネットワーク"local"に接続した時、オペレータ名oper、
+ オペレータパスワードoper-passでOPERコマンドを発行する例。
+

+oper:local oper oper-pass
+ +
+
+ + +
+ + +
+ User::Vanish 指定された人物の存在を、様々なメッセージから消去する。 +
+

+対象となった人物の発行したJOIN、PART、INVITE、QUIT、NICKは消去され、NAMESの返すネームリストからも消える。
+また、対象となった人物のNJOINも消去される。
+

+

+Vanish対象が発行したMODEを消去するかどうか。デフォルトで0。
+消去するとは云え、本当にMODEそのものを消してしまうのではなく、
+そのユーザーの代わりに"HIDDEN!HIDDEN@HIDDEN.BY.USER.VANISH"がMODEを実行した事にする。
+

+drop-mode-by-target:1
+

+Vanish対象を対象とするMODE +o/-o/+v/-vを消去するかどうか。デフォルトで1。
+

+drop-mode-switch-for-target:1
+

+Vanish対象が発行したKICKを消去するかどうか。デフォルトで0。
+本当に消すのではなく、"HIDDEN!HIDDEN@HIDDEN"がKICKを実行した事にする。
+

+drop-kick-by-target:1
+

+Vanish対象を対象とするKICKを消去するかどうか。デフォルトで0。
+

+drop-kick-for-target:0
+

+Vanish対象が発行したTOPICを消去するかどうか。デフォルトで0。
+本当に消すのでは無いが、他の設定と同じ。
+

+drop-topic-by-target:1
+

+チャンネルとVanish対象の定義。
+特定のチャンネルでのみ対象とする、といった事が可能。
+また、privの場合は「#___priv___@ネットワーク名」という文字列をチャンネル名の代わりとしてマッチングを行なう。
+書式: mask: <チャンネルのマスク> <ユーザーのマスク>
+

+mask:#example@example example!exapmle@example.com
+ +
+
+ + + + + + diff -urN tiarra-20040309/doc/module-toc.html tiarra-20040313/doc/module-toc.html --- tiarra-20040309/doc/module-toc.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc/module-toc.html 2004-03-13 22:23:47.000000000 +0900 @@ -0,0 +1,163 @@ + + + + + + + モジュール + + + + +

モジュール

+ +

[ここにモジュール全般についての説明を入れる]

+ + + +

[ここにも適当になんか入れとく]

+ + + diff -urN tiarra-20040309/doc-src/README tiarra-20040313/doc-src/README --- tiarra-20040309/doc-src/README 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/README 2004-03-13 22:23:41.000000000 +0900 @@ -0,0 +1,115 @@ +-*- mode: outline; mode: auto-fill; -*- + +* tdoc形式について + +次のような形式を持つ=podと=cutに囲まれた範囲が、TiarraDoc(tdoc)として +認識されます。 + +=pod +ヘッダのキー: ヘッダの値 +ヘッダのキー: ヘッダの値 +... + +内容 +=cut + +このように、"キー: 値"の行が一つ以上続き、その後に空行が来るような形を +していないpodはtdocパーサによって無視されます。 + +tdocデータはファイル内の何処にあっても構いませんが、そのtdocが説明する +パッケージ内の範囲に無ければなりません。つまり、複数のパッケージを持 +つ*.pmファイルの中では、パッケージFooについてのtdocはパッケージFoo内に +置く必要があります。 +tdocパーサはperlのpackage文を認識し、どのパッケージについての説明であ +るかを判断します。 + +tdocデータはsample.confの生成とhtmlドキュメントの生成の両方に使われま +す。また、将来これ以外の使い方がされる可能性もあります。 + +** ヘッダ + +ヘッダに記述すべき内容は、通常のモジュール(module下のもの)、内部モジュー +ル(main下のもの)、そしてドキュメント生成元データ(doc-src下の*.tdoc)そ +れぞれに於て異なります。 + +*** 通常のモジュールのヘッダ(module下のもの) + +通常のモジュールは、ヘッダとして"info"と"default"を持ちます。 +infoはモジュールの簡単な説明(一行)、defaultは値として"on"または"off"を +持つ真偽値で、それぞれsample.conf内でデフォルトで"+"になっているか"-" +になっているかを示します。 + +例(System::Reload): + +=pod +info: confファイルやモジュールの更新をリロードするコマンドを追加する。 +default: on + +# リロードを実行するコマンド名。省略されるとコマンドを追加しません。 +# 例えば"load"を設定すると、"/load"と発言しようとした時にリロードを実行します。 +# この時コマンドはTiarraが握り潰すので、IRCプロトコル上で定義された +# コマンド名を設定すべきではありません。 +command: load +=cut + +*** 内部モジュール(main下のもの) + +未定 + +*** ドキュメント生成元データ(doc-src下の*.tdoc) + +未定 + + +** 内容 + +ドキュメント内容もヘッダと同じように、通常モジュール、内部モジュール、 +ドキュメント生成元データのそれぞれに於て異ります。 + +*** 通常モジュール + +通常モジュールは、"#"で始まる行と"key: value"の形そしている行、そして +"-key: value"の形をしている行の三種類の形式で記述します。 +空の行やこれらの形を持たない行は、パーサによって無視されます。 + +"#"で始まる行は、後述する"key: value"の説明の為にあります。 +連続する"#"行はtdocパーサによって一つに纏められ、先頭の空白が削除され +た後にsample.conf、htmlの各形式に整形されます。 +纏められた"#"行の先頭に共通する空白は全て削除されますが、共通*しない* +空白は残されます。 + +例: +# foo +# bar +# baz + +以上の三行は纏められ、先頭の空白が削除される。sample.confでの整形結果 +は結果は次の通り。 + +# foo +# bar +# baz + +例: +# foo +# bar +# baz + +以上の三行は纏められ、全ての行に存在する空白が削除される。結果は次の通 +り。 + +# foo +# bar +# baz + +"key: value"形式の行は、そのモジュールの設定項目を表します。 +同様に、"-key: value"形式の行は、そのモジュールの設定項目ではあっても、 +sample.confではデフォルトでコメントアウトされている項目を表します。 + +*** 内部モジュール(main下のもの) + +未定 + +*** ドキュメント生成元データ(doc-src下の*.tdoc) + +未定 diff -urN tiarra-20040309/doc-src/conf-main.tdoc tiarra-20040313/doc-src/conf-main.tdoc --- tiarra-20040309/doc-src/conf-main.tdoc 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/conf-main.tdoc 2004-03-13 22:23:41.000000000 +0900 @@ -0,0 +1,224 @@ +-*- outline -*- +$Id: conf-main.tdoc,v 1.4 2004/02/23 02:46:18 topia Exp $ + +perlのソースに使うpodパーサを流用しているので、package文と=pod〜=cutで書く必要があります。 +ヘッダのinfo-is-ommitedとno-switchはどちらも値を真に定義しなければなりません。 + +* general +package general; +=pod +info: conf自身の文字コードやユーザー情報などを指定する +info-is-omitted: 1 +no-switch: 1 + +# tiarra.conf自身の文字コード +# コード名はjis,sjis,euc,utf8,utf16,utf32等。(この値はUnicode::Japaneseにそのまま渡されます) +# autoが指定された、または省略された場合は自動判別します。 +conf-encoding: euc + +# ユーザー情報 +# 省略不能です。 +nick: tiarra +user: tiarra +name: Tiarra the "Aeon" + +# どのようなユーザーモードでログインするか。+iwや+iのように指定する。 +# 省略された場合はユーザーモードを特に設定しない。 +-user-mode: +i + +# Tiarraへの接続を許可するホスト名を表わすマスク。 +# 制限をしないのであれば"*"を指定するか省略する。 +client-allowed: * + +# Tiarraが開くポート。ここに指定したポートへクライアントに接続させる。 +# 省略されたらポートを開かない。 +tiarra-port: 6667 + +# Tiarraがポートtiarra-portを開く際、IPv6とIPv4のどちらでリスニングを行なうか。 +# 'v4'または'v6'で指定します。デフォルトは'v4'です。 +# IPv6を使うためにはSocket6.pmが利用可能である必要があります。 +-tiarra-ip-version: v4 + +# Tiarraがポートtiarra-portを開く際のローカルアドレス。 +# 意味が分からなければ省略して下さい。 +# デフォルトは、IPv4のはINADDR_ANY、IPv6のはin6addr_anyになります。 +-tiarra-ipv4-bind-addr: 0.0.0.0 +-tiarra-ipv6-bind-addr: ::0 + +# Tiarraにクライアントが接続する際に要求するパスワードをcryptした文字列。 +# 空の文字列が指定されたり省略された場合はパスワードを要求しない。 +tiarra-password: xl7cflIcH9AwE + +# 外部プログラムからtiarraをコントロールする為のUNIXドメインソケットの名前。 +# 例えば"foo"を指定した場合、ソケット/tmp/tiarra-control/fooが作られる。 +# 省略された場合はこの機能を無効とする。 +# また、非UNIX環境ではそもそもUNIXドメインソケットが利用可能でないため、 +# そのような場合にもこの機能は無効となる。 +-control-socket-name: test + +# IRCサーバーから送られる文字のコードと、IRCサーバーへ送る文字のコード +# どちらも省略された場合はjis。 +server-in-encoding: jis +server-out-encoding: jis + +# クライアントから受け取る文字のコードと、クライアントへ伝える文字のコード +# どちらも省略された場合はjis。 +client-in-encoding: jis +client-out-encoding: jis + +# Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはeucとなる。 +# ただしtiarra.confのパースが完了するまでは文字コードの変換は行なわれない(つまりこの設定が有効にならない)ことに注意して下さい。 +stdout-encoding: euc + +# Tiarraはエラーメッセージを標準出力に出力するが、その時に接続しているクライアントがあればクライアントにもNOTICEで送る事が出来る。 +# この値を1にすると、その機能が有効になる。省略するか0を指定するとこの機能は無効になる。 +notice-error-messages: 1 + +# Tiarraでチャンネルとユーザーのマスクを指定するときの形式。 +# plum形式とTiarra形式が選択できます。 +#----------------- +# plum形式: (channelには+や-は使えない。channelは省略すると*とみなす。) +# + syntax: user[ channel[ channel[ ...]]] +# +# mask: +*!*@*.example.com #{example}@ircnet +{example3}@ircnet +# mask: -*!*@*.example.com #{example2}@2ch,+{example4}@2ch +# mask: -*!*@* +#----------------- +# Tiarra形式: (channelにも+や-を使える。) +# + syntax: channel user +# +# mask: #{example}@ircnet,-#{example2}@2ch +*!*@*.example.com +# mask: ++{example3}@ircnet,-+{example4}@2ch +*!*@*.example.com # +で始まるチャンネル。 +# mask: * -*!*@* +#----------------- +# となります。 この二つはまったく同じマスクを表しています。 + +# この値をplumにすると、plum形式、省略するかtiarraを指定すると、Tiarra形式になります。 +chanmask-mode: tiarra + +# サーバーに接続する際、ローカル側のどのアドレスにバインドするか。 +# 意味が分からなければ省略して下さい。 +# デフォルトは、IPv4のはINADDR_ANY、IPv6のはin6addr_anyになります。 +-ipv4-bind-addr: 0.0.0.0 +-ipv6-bind-addr: ::0 + +# tiarra が、 001 や 002 や、 recent log を送信するときなどに使う prefix +# を指定します。 hostname や fqdn っぽいものを指定すると良いかもしれません。 +# デフォルトは tiarra です。普通変える必要はありません。 +-sysmsg-prefix: tiarra + +sysmsg-prefix-use-masks { + # sysmsg-prefix を使用する場所を指定する。 + + # システムメッセージ(NumericReply など)。デフォルトは * です。 + # ふつうこれを変更する必要はありません。 + system: * + + # 個人宛メッセージ(Notice,Privmsg の中で)。デフォルトはなし。 + -priv: + + # チャンネル宛メッセージ(Notice,Privmsg の中で)。デフォルトは * です。 + # Ziciz などのクライアントを接続する場合は、 + # -*::log を指定しておくといいかもしれません。 + channel: * +} +=cut + +* networks +package networks; +=pod +info: Tiarraから接続するネットワークの定義、その他 +info-is-omitted: 1 +no-switch: 1 + +# 複数のサーバーへの接続を可能にするかどうか。1(オン)と0(オフ)で指定。 +# これを1にすると、次のnameを複数個定義する事が可能になり、 +# 複数のサーバーに同時に接続出来るようになります。 +# その一方、これを1にしている時は、チャンネル名にネットワーク名が付加される等、 +# IRCの大部分のメッセージがTiarraによる改変を受けます。 +# これを0にしている間は、次のnameを複数個定義する事は出来なくなります。 +# マルチサーバーモードの設定を起動中に変えると、クライアントから見たチャンネル名が +# 変更になる為、全クライアントが一時的に全てのチャンネルからpartしたように見え、 +# その直後にjoinし直したように見えます。 +# デフォルトでは1です。 +multi-server-mode: 1 + +# 接続するIRCネットワークに名前を付けます。この名前は後で使用します。 +# 複数のネットワークに接続したい場合は多重定義して下さい。 +name: ircnet +name: 2ch + +# 通常Tiarraではチャンネル名を「#Tiarra@ircnet」のように表現します。 +# これはネットワークircnet内の#Tiarraというチャンネルを表わします。 +# @以降は省略可能ですが、省略された場合のデフォルトのネットワーク名をここで指定します。 +# 省略した場合は最も始めに定義されたnameがデフォルトになります。 +# (そしてnameが一つも無かった場合はmainがデフォルトになります) +default: ircnet + +# 上に述べた通り、デフォルトではTiarraはチャンネル名とネットワーク名を@で区切ります。 +# この区切り文字は任意の文字に変更する事が出来ます。省略された場合は@になります。 +channel-network-separator: @ + +# 接続先のサーバーから切断された時に、joinしていたそのサーバーのチャンネルをどうするか。 +# 1. "part-and-join"の場合は、切断されるとクライアントにはチャンネルからpartしたように見せ掛け、 +# 再接続に成功すると再びjoinしたように見せ掛ける。最も負荷が高い。(これはplumに似た動作である) +# 2. "one-message"の場合は、切断されるとクライアントに宛ててTiarraがNOTICEでその旨を報告する。 +# 再接続に成功すると再びNOTICEで報告する。JOINやPARTはしないので、 +# クライアントからはまだそのチャンネルに残っているかのように見える。 +# 3. "message-for-each"の場合は、切断されるとクライアントに宛ててTiarraが +# 到達不能になった全てのチャンネルにNOTICEでその旨を報告する。 +# 再接続に成功すると再びNOTICEで報告する。JOINやPARTはしない。 +# デフォルトはpart-and-joinです。 +action-when-disconnected: message-for-each + +# NICKを変更する度に、変更したサーバーでの新しいNICKをNOTICEで常に通知するかどうか。 +# 1なら必ず通知し、0なら変更後のnickがローカルnick(クライアントが見る事の出来るnick)と違っている場合のみ通知する。 +# デフォルトは0です。 +always-notify-new-nick: 0 +=cut + + +* ircnet +package ircnet; +=pod +info: ネットワーク定義例 (IRCnet) +info-is-omitted: 1 +no-switch: 1 + +# サーバーのホストとポート。省略不可。 +host: irc.nara.wide.ad.jp +port: 6663 + +# general/userで設定したユーザ名を使わずに、各ネットワークで独自のユーザ名を使用する事も可能。 +# 省略されたら当然、general/userで設定したものが使われる。 +-user: hoge + +# general/nameで設定した本名(建前上)を使わずに、各ネットワークで独自の本名を使用可能。 +-name: hoge + +# このサーバーの要求するパスワード。省略可能。 +-password: hoge + +# general/setver-in/out-encodingで設定したエンコーディングを使わずに、 +# 各ネットワークで独自のエンコーディングを使用する事も可能。 +# 省略されたら当然、generalで設定したものが使われる。 +-in-encoding: jis +-out-encoding: jis + +# general/(ipv4|ipv6)bind-addrで設定したローカルアドレスを使わずに、 +# 各ネットワークで独自のbind_addrを使用する事も可能。 +# 省略されたらgeneralで設定したものが使われる。 +-ipv4-bind-addr: 0.0.0.0 +-ipv6-bind-addr: ::0 +=cut + +* 2ch +package 2ch; +=pod +info: ネットワーク定義例 (2ch) +info-is-omitted: 1 +no-switch: 1 + +host: irc.2ch.net +port: 6667 +=cut diff -urN tiarra-20040309/doc-src/contents.html tiarra-20040313/doc-src/contents.html --- tiarra-20040309/doc-src/contents.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/contents.html 2004-03-13 22:23:41.000000000 +0900 @@ -0,0 +1,28 @@ + + + + + + + <&group-name> + + + + + +
+ <&content-name> <&description> +
+ <&content> +
+
+ + +
+ + + + + diff -urN tiarra-20040309/doc-src/module-group.tdoc tiarra-20040313/doc-src/module-group.tdoc --- tiarra-20040309/doc-src/module-group.tdoc 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/module-group.tdoc 2004-03-13 22:23:41.000000000 +0900 @@ -0,0 +1,56 @@ +-*- outline -*- +$Id: module-group.tdoc,v 1.2 2004/02/23 02:46:18 topia Exp $ + +各モジュールの分類名(= グループ名)と、その説明。 +グループ名とは、モジュール名のm/^(.+?)::/で与えられる部分を指す。 + +この分類表で定義されていないモジュールは、グループ `UNCLASSIFIED' に属するものと見做される。 + +* Auto +package Auto; +=pod +description: 自動反応 +=cut + +* Channel +package Channel; +=pod +description: チャンネルに対する操作 +=cut + +* Client +package Client; +=pod +description: クライアントとの入出力 +=cut + +* CTCP +package CTCP; +=pod +description: CTCP 関連 +=cut + +* Debug +package Debug; +=pod +description: Tiarraや、Tiarraモジュールのデバッグ用 +=cut + +* Log +package Log; +=pod +description: ログの記録 +=cut + +* System +package System; +=pod +description: Tiarra自身の動作に関するもの +=cut + +* User +package User; +=pod +description: 特定の人間に対する動作や自分自身についての動作 +=cut + diff -urN tiarra-20040309/doc-src/module-toc.html tiarra-20040313/doc-src/module-toc.html --- tiarra-20040309/doc-src/module-toc.html 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/module-toc.html 2004-03-13 22:23:41.000000000 +0900 @@ -0,0 +1,34 @@ + + + + + + + モジュール + + + + +

モジュール

+ +

[ここにモジュール全般についての説明を入れる]

+ + + +

[ここにも適当になんか入れとく]

+ + + diff -urN tiarra-20040309/doc-src/sample.conf.in tiarra-20040313/doc-src/sample.conf.in --- tiarra-20040309/doc-src/sample.conf.in 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/doc-src/sample.conf.in 2004-03-13 22:23:40.000000000 +0900 @@ -0,0 +1,112 @@ +# -*- tiarra-conf -*- +# ----------------------------------------------------------------------------- +# $Id: sample.conf.in,v 1.2 2004/02/23 02:46:18 topia Exp $ +# ----------------------------------------------------------------------------- +# tiarra.conf サンプル +# +# tiarraは起動時に全ての設定をこのファイルから取得します。 +# このファイルの文字コードは任意ですが、改行コードはLFもしくはCRLFでなければなりません。 +# +# 半角の#で始まる行はコメントとして無視されます。 +# 行の途中に#を置いた場合はコメントにはなりません。 +# +# 設定行は「設定名 : 値」の形式で指定されます。 +# 行の先頭及び末尾、コロンの前後の空白は無視されます。 +# +# 特に指定が無い場合、同じ設定を二度以上繰り返した時は最初に定義された設定が有効になります。 +# +# ブロックごと省略した場合は、そのブロックの全ての値が省略されたものとみなします。 +# ただし省略不可能な設定もありますので御注意下さい。 +# +# 「@include foo.conf」という行があると、foo.confがその場所に +# 挿入されたかのように処理します。 +# +# {}記号の位置には、それなりの自由度があります。 +# 次の例は全て有効です。 +# block { +# foo: bar +# } +# +# block {} +# +# block +# {} +# +# 次の例は全て無効です。 +# block {foo: bar} +# +# block +# {foo: bar} +# +# block { +# foo: bar} +# +# block +# {foo: bar +# } +# ----------------------------------------------------------------------------- + +# ----------------------------------------------------------------------------- +# generalブロック +# +# tiarra.conf自身の文字コードやユーザー情報などを指定するブロックです。 +# ----------------------------------------------------------------------------- +<&general> + +# ----------------------------------------------------------------------------- +# networksブロック +# +# Tiarraから接続するIRCネットワークの名称です。 +# 一つも定義しなかった場合やこのブロックを省略した場合は、 +# "main"というネットワークが一つだけ指定されたものと見做します。 +# ----------------------------------------------------------------------------- +<&networks> + +# ----------------------------------------------------------------------------- +# 各ネットワークの設定 +# +# networksブロックで定義した全てのネットワークについて、 +# そのアドレス、ポート、(必要なら)パスワードを定義します。 +# ----------------------------------------------------------------------------- +<&ircnet> + +<&2ch> + +# ----------------------------------------------------------------------------- +# 必須の設定は以上です。以下はモジュール(プラグイン)の設定です。 +# ----------------------------------------------------------------------------- + +# +または-で始まる行はモジュール設定行と見做されます。 +# +で記述されたモジュールが使用され、-で記述されたモジュールは使用されません。 +# +や-の後の空白は幾つあっても無視されます。 + +# メッセージが各モジュールを通過する順番は、このconfファイルで記述された +# 順番の通りになります。ログを取るモジュールなどはconfでも後の方に +# 記述した方が良いということになります。 + +# モジュール名はperlのそれと同じようにディレクトリ区切り文字を「::」としたパスで表現されます。 +# 例えばモジュールChannel::Auto::Operの実体はファイルmodule/Channel/Auto/Oper.pm +# でなければならず、そのpackage宣言もChannel::Auto::Operでなければなりません。 +# Tiarraモジュールの名称は、perl標準モジュール群やmain/下の.pmファイルと重複しないように +# 気を付けて下さい。Tiarraはモジュールが本当にModuleのサブクラスかどうかをチェックするので +# 例えばIO::Socket::INETといったモジュールを置いても誤動作はしませんが、 +# そのようなモジュールはロード時にエラーを出して使用中止になります。 + +# 一つのモジュールを複数回定義して、何度も同じモジュールをメッセージが通過するようには出来ません。 + +# 幾つかのモジュールはパラメータとしてチャンネル名を必要とします。 +# ここで指定するチャンネル名は、ネットワーク名も含めた文字列でなければなりません。 +# 「#チャンネル」では駄目で「#チャンネル@ネットワーク」などとする必要があります。 + +# マスクの書式: +# ['+' / '-'] ( <マスク文字列> / "re:" 正規表現 ) +# これはカンマで幾つでも継ぐ事が出来ます。"\,"でカンマそのものを表します。 +# 先頭が+なら、それに続く部分にマッチするものが選ばれ、-なら除外されます。省略されたら+と見做されます。 +# マスク文字列とは"*"で0文字以上の任意の文字列を、"?"で1文字の任意の文字列を表す文字列です。 +# 例: +# tiarra* これはtiarraで始まる文字列を表す。 +# +*!*tiarra@*.jp,-re:\d これは*!*tiarra@*.jpにマッチして、かつ文字列中に数字を含まないものを表す。 + + +<&module> + diff -urN tiarra-20040309/main/Hook.pm tiarra-20040313/main/Hook.pm --- tiarra-20040309/main/Hook.pm 2004-03-09 17:03:45.000000000 +0900 +++ tiarra-20040313/main/Hook.pm 2004-03-13 22:23:39.000000000 +0900 @@ -1,5 +1,5 @@ # ----------------------------------------------------------------------------- -# $Id: Hook.pm,v 1.1 2003/08/12 01:45:35 admin Exp $ +# $Id: Hook.pm,v 1.2 2004/03/13 07:17:34 admin Exp $ # ----------------------------------------------------------------------------- # Hook: あらゆるフックのベースクラス # HookTarget: あらゆるフック先のベースクラス @@ -23,7 +23,7 @@ # # $HOOK_TARGET_DEFAULT: # フックを掛ける対象のオブジェクトが省略された場合のデフォルト値。 -# これは省略可能で、 +# これは省略可能で、省略した場合はinstall時にターゲットの省略が出来なくなる。 # # これらの変数を定義し、Hookを@ISAに入れたパッケージを作る。 # ----------------------------------------------------------------------------- @@ -31,6 +31,8 @@ # # HookTargetを@ISAに入れたクラスを作る。コンストラクタでの配慮は不要。 # $obj->call_hooks($hook_name)で、インストールされた全てのフックを呼ぶ。 +# $obj->call_hooks($hook_name, $foo, $bar, $baz)のように任意の個数の引数を +# 渡す事が可能で、その場合はそれらを引数としてフック関数が呼ばれる。 # # 現在の実装では、HookTargetはオブジェクトをハッシュで持つクラスでのみ使用可能。 # また、`installed-hooks'と云うキーを勝手に使う。 @@ -149,14 +151,15 @@ } sub call { - my $this = shift; + my ($this, @args) = @_; my ($caller_pkg) = caller(2); if ($caller_pkg->isa(ref $this->{target})) { - $this->{code}->($this); + $this->{code}->($this, @args); } else { - croak "Only ${\ref($this->{target})} can call ${\ref($this)}->call\n"; + croak "Only ${\ref($this->{target})} can call ${\ref($this)}->call\n". + "$caller_pkg is not allowed to do so.\n"; } } @@ -205,12 +208,12 @@ } sub call_hooks { - my ($this, $hook_name) = @_; + my ($this, $hook_name, @args) = @_; my $array = $this->_get_hooks_array($hook_name); foreach my $hook (@$array) { eval { - $hook->call; + $hook->call(@args); }; if ($@) { die ref($this)."->call_hooks, exception occured: $@\n"; } diff -urN tiarra-20040309/main/IrcIO/Client.pm tiarra-20040313/main/IrcIO/Client.pm --- tiarra-20040309/main/IrcIO/Client.pm 2004-03-09 17:03:45.000000000 +0900 +++ tiarra-20040313/main/IrcIO/Client.pm 2004-03-13 22:23:39.000000000 +0900 @@ -1,5 +1,5 @@ # ----------------------------------------------------------------------------- -# $Id: Client.pm,v 1.26 2004/02/23 05:41:21 topia Exp $ +# $Id: Client.pm,v 1.27 2004/03/13 07:17:34 admin Exp $ # ----------------------------------------------------------------------------- # IrcIO::Clientはクライアントからの接続を受け、 # IRCメッセージをやり取りするクラスです。 @@ -9,6 +9,7 @@ use warnings; use Carp; use base qw(IrcIO); +use IrcIO; use Net::hostent; use Crypt; use Configuration; @@ -17,10 +18,11 @@ use LocalChannelManager; use NumericReply; -use SelfLoader; -SelfLoader->load_stubs; # このクラスには親クラスがあるから。(SelfLoaderのpodを参照) -1; -__DATA__ +# 複数のパッケージを混在させてるとSelfLoaderが使えない…？ +#use SelfLoader; +#SelfLoader->load_stubs; # このクラスには親クラスがあるから。(SelfLoaderのpodを参照) +#1; +#__DATA__ sub new { my ($class,$sock) = @_; @@ -460,6 +462,9 @@ my $ch_name = $_; if (Mask::match($mask, $ch_name)) { $send_channelinfo->(@{$channels{$ch_name}}); + # channel-infoフックの引数は (IrcIO::Client, チャンネル名) + IrcIO::Client::HookTarget->shared->call( + 'channel-info', $this, $ch_name); delete $channels{$ch_name}; last; } @@ -467,9 +472,55 @@ } # のこりを出力 - map { - $send_channelinfo->(@$_); - } values %channels; + while (my ($ch_name, $pair) = each %channels) { + $send_channelinfo->(@$pair); + IrcIO::Client::HookTarget->shared->call( + 'channel-info', $this, $ch_name); + } +} + +# ----------------------------------------------------------------------------- +# クライアントにチャンネル情報(JOIN,TOPIC,NAMES等)を渡した直後に呼ばれるフック。 +# チャンネル名(multi server modeならネットワーク名付き)を引数として、 +# チャンネル一つにつき一度ずつ呼ばれる。 +# +# my $hook = IrcIO::Client::Hook->new(sub { +# my $hook_itself = shift; +# # 何らかの処理を行なう。 +# })->install('channel-info'); # チャンネル情報転送時にこのフックを呼ぶ。 +# ----------------------------------------------------------------------------- +package IrcIO::Client::Hook; +use FunctionalVariable; +use base 'Hook'; + +our $HOOK_TARGET_NAME = 'IrcIO::Client::HookTarget'; +our @HOOK_NAME_CANDIDATES = qw/channel-info/; +our $HOOK_NAME_DEFAULT = 'channel-info'; +our $HOOK_TARGET_DEFAULT; +FunctionalVariable::tie( + \$HOOK_TARGET_DEFAULT, + FETCH => sub { + IrcIO::Client::HookTarget->shared; + }, + ); + +# ----------------------------------------------------------------------------- +package IrcIO::Client::HookTarget; +use Hook; +our @ISA = 'HookTarget'; +our $_shared; + +sub shared { + my $class = shift; + if (!defined $_shared) { + $_shared = bless {} => $class; # 繼承するなら問題になるが… + } + $_shared; +} + +sub call { + my ($this, $name, @args) = @_; + $this->call_hooks($name, @args); } 1; diff -urN tiarra-20040309/main/RunLoop.pm tiarra-20040313/main/RunLoop.pm --- tiarra-20040309/main/RunLoop.pm 2004-03-09 17:03:46.000000000 +0900 +++ tiarra-20040313/main/RunLoop.pm 2004-03-13 22:23:40.000000000 +0900 @@ -1,5 +1,5 @@ # ----------------------------------------------------------------------------- -# $Id: RunLoop.pm,v 1.54 2004/02/23 06:24:20 topia Exp $ +# $Id: RunLoop.pm,v 1.56 2004/03/13 07:17:34 admin Exp $ # ----------------------------------------------------------------------------- # このクラスはTiarraのメインループを実装します。 # select()を実行し、サーバーやクライアントとのI/Oを行うのはこのクラスです。 @@ -88,8 +88,6 @@ timers => [], # インストールされている全てのTimer external_sockets => [], # インストールされている全てのExternalSocket - #hooks_before_select => [], # インストールされている全てのbefore-selectフック - #hooks_after_select => [], # インストールされている全てのafter-selectフック conf_reloaded_hook => undef, # この下でインストールするフック }; @@ -666,67 +664,6 @@ undef; } -=pod -sub install_hook { - my ($this,$hook_name,$hook) = @_; - my $array = do { - if ($hook_name eq 'before-select') { - $this->{hooks_before_select}; - } - elsif ($hook_name eq 'after-select') { - $this->{hooks_after_select}; - } - else { - croak "RunLoop->install_hook, hook name '$hook_name' is invalid.\n"; - } - }; - push @$array,$hook; - $this; -} - -sub uninstall_hook { - my ($this,$hook_name,$hook) = @_; - my $array = do { - if ($hook_name eq 'before-select') { - $this->{hooks_before_select}; - } - elsif ($hook_name eq 'after-select') { - $this->{hooks_after_select}; - } - else { - croak "RunLoop->uninstall_hook, hook name '$hook_name' is invalid.\n"; - } - }; - @$array = grep { - $_ != $hook; - } @$array; - $this; -} - -sub call_hooks { - my ($this,$hook_name) = @_; - my $array = do { - if ($hook_name eq 'before-select') { - $this->{hooks_before_select}; - } - elsif ($hook_name eq 'after-select') { - $this->{hooks_after_select}; - } - else { - croak "RunLoop->call_hooks, hook name '$hook_name' is invalid.\n"; - } - }; - foreach my $hook (@$array) { - eval { - $hook->call; - }; if ($@) { - die "RunLoop: Exception in calling hook.\n$@\n"; - } - } -} - -=cut - sub install_timer { my ($this,$timer) = @_; push @{$this->{timers}},$timer; @@ -883,7 +820,7 @@ } my $zerotime = { - limit => 100, + limit => 300, minimum_to_reset => 2, interval => 10, @@ -905,7 +842,7 @@ } } } - elsif ($elapsed < $zerotime->{minimum_to_reset}) { + elsif ($elapsed > $zerotime->{minimum_to_reset}) { $zerotime->{count} = 0; } }; @@ -1286,9 +1223,6 @@ # })->install('after-select'); # select実行直後にこのフックを呼ぶ。 # ----------------------------------------------------------------------------- package RunLoop::Hook; -#use strict; -#use warnings; -#use Carp; use FunctionalVariable; use base 'Hook'; @@ -1303,67 +1237,4 @@ }, ); -=pod -sub new { - my ($class,$code) = @_; - my $this = { - runloop => undef, - hook_name => undef, - - code => $code, - }; - - if (!defined $code) { - croak "RunLoop::Hook->new, Arg[0] was undef.\n"; - } - elsif (ref($code) ne 'CODE') { - croak "RunLoop::Hook->new, Arg[0] was bad type.\n"; - } - - bless $this,$class; -} - -sub install { - # $hook_name: 'before-select' または 'after-select'。 - # それぞれselect直前か直後に呼ばれる。省略されたりundefが渡された場合はafter-selectになる。 - # $runloop: インストールするRunLoop。省略された場合はRunLoop->shared。 - my ($this,$hook_name,$runloop) = @_; - $hook_name = 'after-select' if !defined $hook_name; - $runloop = RunLoop->shared if !defined $runloop; - - if (defined $this->{runloop}) { - croak "RunLoop::Hook->install, this hook is already installed.\n"; - } - - $this->{runloop} = $runloop; - $this->{hook_name} = $hook_name; - $runloop->install_hook($hook_name,$this); - - $this; -} - -sub uninstall { - my $this = shift; - - $this->{runloop}->uninstall_hook($this->{hook_name},$this); - $this->{runloop} = undef; - $this->{hook_name} = undef; - - $this; -} - -sub call { - my $this = shift; - - my ($caller_pkg) = caller; - if ($caller_pkg->isa('RunLoop')) { - $this->{code}->($this); - } - else { - croak "Only RunLoop can call RunLoop::Hook->call\n"; - } -} - -=cut - 1; diff -urN tiarra-20040309/makedoc tiarra-20040313/makedoc --- tiarra-20040309/makedoc 1970-01-01 09:00:00.000000000 +0900 +++ tiarra-20040313/makedoc 2004-03-13 22:23:39.000000000 +0900 @@ -0,0 +1,313 @@ +#!/usr/bin/perl +# ------------------------------------------------------------------------ +# $Id: makedoc,v 1.2 2004/02/23 02:46:17 topia Exp $ +# ------------------------------------------------------------------------ +use strict; +use warnings; +use lib qw(main); +use Unicode::Japanese; +use IO::File; +use File::Find; +use Template; +use TiarraDoc; +my $unijp_init = Unicode::Japanese->new; + +my $conf_output = 'sample.conf'; + +my $stdout_charset = 'euc'; +my $conf_charset = 'euc'; +my $html_charset = 'euc'; + +if (!-f 'tiarra' || !-d 'main' || !-d 'module') { + die "run this script on tiarra's directory.\n"; +} + +mkdir 'doc'; + +&makeconf; +&makehtml_mods_toc; +&makehtml_mods; +exit; + +sub makeconf { + print "*** Generating $conf_output... ***\n"; + + my $unijp = Unicode::Japanese->new; + my $t = Template->new('doc-src/sample.conf.in'); + + foreach my $conf (DocParser::Module->new('doc-src/conf-main.tdoc')->makeconf) { + print $conf->[0]." : ".$unijp->set($conf->[1])->$stdout_charset."\n"; + $t->expand($conf->[0] => $unijp->set($conf->[2])->$conf_charset); + } + + # module下の.pmを検索 + my @modules; + find(sub { + if (-f $_ && $_ =~ m/\.pm$/) { + push @modules, $File::Find::name; + } + },'module'); + + map { + my @confs = DocParser::Module->new($_)->makeconf; + foreach my $conf (@confs) { + print $conf->[0]." : ".$unijp->set($conf->[1])->$stdout_charset."\n"; + $t->modules->add(module => $unijp->set($conf->[2])->$conf_charset); + } + } sort @modules; + + my $fh = IO::File->new($conf_output,'w'); + $fh->print($t->str); +} + +our $classify_modules_CACHE; +sub classify_modules { + # 一度実行したら、その結果がキャッシュされる。 + if (defined($_ = $classify_modules_CACHE)) { + return $_; + } + + my $classified = {}; # {グループ名 => [それに含まれるモジュールのDocPod]} + my $classify = sub { + my $doc = shift; + + my $groupname = do { + if ($doc->pkg_name =~ m/^(.+?)::/) { + $1; + } + else { + ''; + } + }; + + my $vec = $classified->{$groupname}; + if (!defined $vec) { + $vec = $classified->{$groupname} = []; + } + push @$vec,$doc; + }; + + # module下の.pmを検索 + find(sub { + if (-f $_ && $_ =~ m/\.pm$/) { + my $parser = DocParser->new($_); + my $doc = eval { + $parser->getdoc; + }; if ($@) { + die "ERROR[$_]: $@\n"; + } + + # 分類 + $classify->($doc) if defined $doc; + } + },'module'); + + # ソート + foreach (keys %$classified) { + @{$classified->{$_}} = + map { $_->[1] } + sort { $a->[0] cmp $b->[0] } + map { [$_->pkg_name, $_]; } @{$classified->{$_}}; + } + + $classify_modules_CACHE = $classified; + $classified; +} + +sub makehtml_mods { + # ファイルはグループ毎に作られる点に注意。 + # すなわち、まず最初に全てのモジュールをグループに分類する必要がある。 + my $classified = &classify_modules; # {グループ名 => [それに含まれるモジュールのDocPod]} + + mkdir 'doc/module'; + + my $unijp = Unicode::Japanese->new; + my $t = Template->new('doc-src/contents.html'); + + while (my ($groupname,$docpods) = each %$classified) { + my $group_path = + join('', + 'module/', + $groupname eq '' ? 'UNCLASSIFIED' : $groupname, + '.html'); + print "*** Generating doc/$group_path... ***\n"; + + $t->reset; + $t->expand( + group_name => $groupname, + css_path => '../default.css', + ); + + my $last_docpod = $docpods->[-1]; + foreach my $docpod (@$docpods) { + print " parsing and translating ".$docpod->pkg_name."\n"; + # 空行はそのまま出力。 + # key: valueの行は、とで出力。 + # そのkeyの頭に'-'が付いていたら、単にその'-'を消す。 + # + # '#'で始まる行は、

で出力するが、以下の特殊なルールに従う。 + # 1. '#'の行が連続している場合、それらの行を一つのグループにまとめる。 + # 2. 各グループ内で'#'に後続する共通の数のスペースを取り除く。 + # 3. 取り除いた後、'#'後にスペースがまだ残っているなら、それを に置換する。 + # + # 例: + # # foo + # # bar { + # # baz + # # } + # ↓ + #

+ # foo
+ # bar {
+ #   baz
+ # }
+ #

+ my $html = ''; # 文字コードはUTF-8 + + my @lines = split /\n/,$docpod->content; + for (my $i = 0; $i < @lines; $i++) { + my $line = $lines[$i]; + + if ($line eq '') { + #$html .= "
\n"; + } + elsif ($line =~ m/^\s*#/) { + # グループ作成 + my @group; + for (; $i < @lines; $i++) { + if ($lines[$i] =~ m/^\s*#/) { + # これはブロックの続き。 + (my $stripped = $lines[$i]) =~ s/^\s*#//; + + # タブは4つのスペースに変換。この動作は後で修正するかも知れない。 + $stripped =~ s/\t/ /g; + + push @group,$stripped; + } + else { + $i--; + last; # ここで終わり + } + } + + # 共通する先頭のスペースを除去。すなわち各行について先頭のスペースの個数を数え、 + # その最小値を削るべきスペースの数とする。 + my $spaces_to_remove; + foreach (@group) { + m/^(\s*)/; + if (defined $1) { + my $n_spaces = length($1); + if (defined $spaces_to_remove) { + $spaces_to_remove = $n_spaces + if $spaces_to_remove > $n_spaces; + } + else { + $spaces_to_remove = $n_spaces; + } + } + } + if (defined $spaces_to_remove) { + @group = map { + s/^\s{$spaces_to_remove}//; $_; + } @group; + } + + # それでも残っている先頭のスペースを に置換。 + @group = map { + s/^(\s+)/' ' x length($1) if defined $1/e; $_; + } @group; + + $html .= qq{

\n}; + $html .= join('', + map { + "$_
\n"; + } @group); + $html .= qq{

\n}; + } + elsif ($line =~ m/^-?(.+?)\s*:\s*(.*)$/) { + my ($key,$value) = ($1,$2); + $html .= qq{$key:$value
\n}; + } elsif ($line =~ m/^(.+?)\s*{\s*$/) { + $html .= qq{$1\n}; + $html .= qq{
\n}; + } elsif ($line =~ m/^}\s*$/) { + $html .= qq{
\n}; + } + } + + # テンプレを展開 + $t->element->expand( + content_name => $docpod->pkg_name, + description => $unijp->set($docpod->header('info'))->$html_charset, + content => $unijp->set($html)->$html_charset); + + # これが最後の要素でなければ、hrを追加する。 + if ($docpod != $last_docpod) { + $t->element->hr->add; + } + + $t->element->add; + } + + # ファイルに出力 + my $fh = IO::File->new("doc/$group_path",'w'); + $fh->print($t->str); + } +} + +sub makehtml_mods_toc { + print "*** Generating doc/module-toc.html... ***\n"; + + my $t = Template->new('doc-src/module-toc.html'); + + my $classified = &classify_modules; # {グループ名 => [それに含まれるモジュールのDocPod]} + + # module-group.tdocを読んで、各グループの説明を取得する。 + my $groups = DocParser->new('doc-src/module-group.tdoc'); + + foreach my $groupname (sort {$a cmp $b} keys %$classified) { + my $description = do { + # このグループに対して、説明が定義されているか？ + my $groupdoc = $groups->getdoc($groupname); + if (defined $groupdoc) { + my $description = $groupdoc->header->{description}; + defined $description ? $description : ''; + } + else { + ''; + } + }; + if ($description eq '') { + warn "group $groupname don't have description."; + } + + my $unijp = Unicode::Japanese->new; + + my $group_path = + join('', + 'module/', + $groupname eq '' ? 'UNCLASSIFIED' : $groupname, + '.html'); + + $t->toc_group->expand( + group_path => $unijp->set($group_path)->$html_charset, + group_name => $unijp->set($groupname)->$html_charset, + description => $unijp->set($description)->$html_charset, + ); + + # 各モジュール名とその説明を展開〜 + foreach my $moddoc (@{$classified->{$groupname}}) { + print $moddoc->pkg_name." belongs to the group `".$groupname."'\n"; + $t->toc_group->toc_individual->add( + group_path => $unijp->set($group_path)->$html_charset, + mod_name => $unijp->set($moddoc->pkg_name)->$html_charset, + description => $unijp->set($moddoc->header->{info} || '')->$html_charset, + ); + } + + $t->toc_group->add; + } + + my $fh = IO::File->new('doc/module-toc.html','w'); + $fh->print($t->str); +} diff -urN tiarra-20040309/module/Log/Recent.pm tiarra-20040313/module/Log/Recent.pm --- tiarra-20040309/module/Log/Recent.pm 2004-03-09 17:03:46.000000000 +0900 +++ tiarra-20040313/module/Log/Recent.pm 2004-03-13 22:23:40.000000000 +0900 @@ -1,5 +1,5 @@ # ----------------------------------------------------------------------------- -# $Id: Recent.pm,v 1.9 2004/02/23 02:46:19 topia Exp $ +# $Id: Recent.pm,v 1.10 2004/03/13 07:17:35 admin Exp $ # ----------------------------------------------------------------------------- # Local: $Clovery: tiarra/module/Log/Recent.pm,v 1.5 2003/02/11 07:59:32 topia Exp $ package Log::Recent; @@ -25,9 +25,34 @@ }, $this, 'S_PRIVMSG','C_PRIVMSG','S_NOTICE','C_NOTICE'); + $this->{hook} = IrcIO::Client::Hook->new( + sub { + my ($hook, $client, $ch_name) = @_; + my $ch = RunLoop->shared->channel($ch_name); + # ログはあるか？ + my $vec = $ch->remarks('recent-log'); + if (defined $vec) { + my $ch_name; + foreach my $elem (@$vec) { + $ch_name = + RunLoop->shared->multi_server_mode_p ? + $elem->[0] : $ch->name; + $client->send_message( + IRCMessage->new( + Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(channel log)), + Command => 'NOTICE', + Params => [$ch_name,$elem->[1]])); + } + } + })->install('channel-info'); $this; } +sub destruct { + my $this = shift; + $this->{hook} and $this->{hook}->uninstall; +} + sub message_arrived { my ($this,$msg,$sender) = @_; # Log::Recent/commandにマッチするか？ @@ -50,26 +75,27 @@ Command => 'NOTICE', Params => [$local_nick,$elem->[1]])); # $elem->[0]は常に'priv' } + # 次に各チャンネル - foreach my $network (values %{RunLoop->shared->networks}) { - foreach my $ch (values %{$network->channels}) { - # ログはあるか？ - my $vec = $ch->remarks('recent-log'); - if (defined $vec) { - my $ch_name; - foreach my $elem (@$vec) { - $ch_name = - RunLoop->shared->multi_server_mode_p ? - $elem->[0] : $ch->name; - $client->send_message( - IRCMessage->new( - Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(channel log)), - Command => 'NOTICE', - Params => [$ch_name,$elem->[1]])); - } - } - } - } +# foreach my $network (values %{RunLoop->shared->networks}) { +# foreach my $ch (values %{$network->channels}) { +# # ログはあるか？ +# my $vec = $ch->remarks('recent-log'); +# if (defined $vec) { +# my $ch_name; +# foreach my $elem (@$vec) { +# $ch_name = +# RunLoop->shared->multi_server_mode_p ? +# $elem->[0] : $ch->name; +# $client->send_message( +# IRCMessage->new( +# Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(channel log)), +# Command => 'NOTICE', +# Params => [$ch_name,$elem->[1]])); +# } +# } +# } +# } } *S_PRIVMSG = \&PRIVMSG_or_NOTICE; diff -urN tiarra-20040309/sample.conf tiarra-20040313/sample.conf --- tiarra-20040309/sample.conf 2004-03-09 17:03:45.000000000 +0900 +++ tiarra-20040313/sample.conf 2004-03-13 22:23:44.000000000 +0900 @@ -1,6 +1,6 @@ # -*- tiarra-conf -*- # ----------------------------------------------------------------------------- -# $Id: sample.conf,v 1.65 2004/02/23 08:27:11 topia Exp $ +# $Id: sample.conf.in,v 1.2 2004/02/23 02:46:18 topia Exp $ # ----------------------------------------------------------------------------- # tiarra.conf サンプル #