Changeset 36552

Timestamp:

01/27/10 23:53:29 (3 years ago)

Author:

drry

Message:

サーバアドレスを更新しました。
正規表現を修正しました。
設定のネットワーク定義例に freenode と Ustream を追加してみました。
設定サンプルでサーバが送受信する文字コードを UTF-8 ベースに変更し、IRCnet と 2ch に JIS を指定しました。(Windows 版 LimeChat? 2 向け)

Location:

lang/perl/tiarra/trunk

Files:

• all.conf (modified) (6 diffs)
• doc-src/all.conf.in (modified) (1 diff)
• doc-src/conf-main.tdoc (modified) (6 diffs)
• mini.conf (modified) (3 diffs)
• module/Auto/Im.pm (modified) (1 diff)
• module/Auto/Notify.pm (modified) (3 diffs)
• module/Client/Guess.pm (modified) (1 diff)
• sample.conf (modified) (6 diffs)

lang/perl/tiarra/trunk/all.conf

@@ -62 +62 @@
   # IRCサーバーから送られる文字のコードと、IRCサーバーへ送る文字のコード。
   # それぞれ省略された場合はjis。
-  server-in-encoding: jis
-  server-out-encoding: jis
+  server-in-encoding: utf8
+  server-out-encoding: utf8
 
   # クライアントから受け取る文字のコードと、クライアントへ伝える文字のコード。
   # それぞれ省略された場合はjis。
-  client-in-encoding: jis
-  client-out-encoding: jis
+  client-in-encoding: utf8
+  client-out-encoding: utf8
 
   # Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはutf8となる。
@@ -107 +107 @@
 
   # Tiarra が、 001 や 002 や、 recent log を送信するときなどに使う prefix
-  # を指定します。 hostname や fqdn っぽいものを指定すると良いかもしれません。
+  # を指定します。 hostname や FQDN っぽいものを指定すると良いかもしれません。
   # デフォルトは tiarra です。普通変える必要はありません。
   #sysmsg-prefix: tiarra
@@ -174 +174 @@
   name: ircnet
   name: 2ch
+  #name: freenode
+  #name: ustream
 
   # 通常Tiarraではチャンネル名を「#Tiarra@ircnet」のように表現します。
@@ -227 +229 @@
   # サーバーのホストとポートを指定。複数行可。(host/port が指定されていない場合は)省略不可。
   # 同じサーバの複数のポート指定は順番に試すので、大量に書かない方がよい。
-  server: irc.nara.wide.ad.jp 6662 6663
-  server: irc.fujisawa.wide.ad.jp 6661 6664
+  server: irc.ircnet.ne.jp 6667
+  server: irc.media.kyoto-u.ac.jp 6662 6663
+  server: irc.huie.hokudai.ac.jp 6667
 
   # サーバーのホストとポート。(server が指定されていない場合は)省略不可。
   # server を指定した場合は server が優先されます。
-  #host: irc.nara.wide.ad.jp
+  #host: irc.media.kyoto-u.ac.jp
   #port: 6663
 
@@ -245 +248 @@
   #password: hoge
 
-  # general/setver-in/out-encodingで設定したエンコーディングを使わずに、
-  # 各ネットワークで独自のエンコーディングを使用する事も可能。
+  # general/setver-in/out-encodingで設定した文字のコードを使わずに、
+  # 各ネットワークで独自の文字コードを使用する事も可能。
   # 省略されたら当然、generalで設定したものが使われる。
-  #in-encoding: jis
-  #out-encoding: jis
+  in-encoding: jis
+  out-encoding: jis
 
   # general/(ipv4|ipv6)bind-addrで設定したローカルアドレスを使わずに、
@@ -259 +262 @@
 
 2ch {
-  host: irc.2ch.net
-  port: 6667
+  server: irc.2ch.net 6667
+  server: irc2.2ch.net 6667
+  server: irc.juggler.jp 6667
+
+  in-encoding: jis
+  out-encoding: jis
+}
+
+freenode {
+  server: chat.freenode.net 6667
+
+  # freenodeではパスワードとして「アカウント パスワード」のように、
+  # アカウントに空白とパスワードを続けたものを指定することで、
+  # NICKコマンドの前の接続の段階でidentifyすることができるため、
+  # nickの重複や異なるnick等、nickとは無関係に自動identifyが可能。
+  #password: account secret
+}
+
+ustream {
+  server: chat1.ustream.tv 6667
+
+  # Ustreamのloginをnickとuserに指定する。
+  #nick: ustreamer
+  #user: ustreamer
+
+  # Ustreamのパスワードを指定する。
+  #password: secret
 }
 

lang/perl/tiarra/trunk/doc-src/all.conf.in

@@ -33 +33 @@
 
 <&2ch>
+
+<&freenode>
+
+<&ustream>
 
 # -----------------------------------------------------------------------------

lang/perl/tiarra/trunk/doc-src/conf-main.tdoc

@@ -60 +60 @@
 # IRCサーバーから送られる文字のコードと、IRCサーバーへ送る文字のコード。
 # それぞれ省略された場合はjis。
-server-in-encoding: jis
-server-out-encoding: jis
+server-in-encoding: utf8
+server-out-encoding: utf8
 
 # クライアントから受け取る文字のコードと、クライアントへ伝える文字のコード。
 # それぞれ省略された場合はjis。
-client-in-encoding: jis
-client-out-encoding: jis
+client-in-encoding: utf8
+client-out-encoding: utf8
 
 # Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはutf8となる。
@@ -105 +105 @@
 
 # Tiarra が、 001 や 002 や、 recent log を送信するときなどに使う prefix
-# を指定します。 hostname や fqdn っぽいものを指定すると良いかもしれません。
+# を指定します。 hostname や FQDN っぽいものを指定すると良いかもしれません。
 # デフォルトは tiarra です。普通変える必要はありません。
 -sysmsg-prefix: tiarra
@@ -171 +171 @@
 name: ircnet
 name: 2ch
+#name: freenode
+#name: ustream
 
 # 通常Tiarraではチャンネル名を「#Tiarra@ircnet」のように表現します。
@@ -226 +228 @@
 # サーバーのホストとポートを指定。複数行可。(host/port が指定されていない場合は)省略不可。
 # 同じサーバの複数のポート指定は順番に試すので、大量に書かない方がよい。
-server: irc.nara.wide.ad.jp 6662 6663
-server: irc.fujisawa.wide.ad.jp 6661 6664
+server: irc.ircnet.ne.jp 6667
+server: irc.media.kyoto-u.ac.jp 6662 6663
+server: irc.huie.hokudai.ac.jp 6667
 
 # サーバーのホストとポート。(server が指定されていない場合は)省略不可。
 # server を指定した場合は server が優先されます。
--host: irc.nara.wide.ad.jp
+-host: irc.media.kyoto-u.ac.jp
 -port: 6663
 
@@ -244 +247 @@
 -password: hoge
 
-# general/setver-in/out-encodingで設定したエンコーディングを使わずに、
-# 各ネットワークで独自のエンコーディングを使用する事も可能。
+# general/setver-in/out-encodingで設定した文字のコードを使わずに、
+# 各ネットワークで独自の文字コードを使用する事も可能。
 # 省略されたら当然、generalで設定したものが使われる。
--in-encoding: jis
--out-encoding: jis
+in-encoding: jis
+out-encoding: jis
 
 # general/(ipv4|ipv6)bind-addrで設定したローカルアドレスを使わずに、
@@ -264 +267 @@
 no-switch: 1
 
-host: irc.2ch.net
-port: 6667
-=cut
+
+server: irc.2ch.net 6667
+server: irc2.2ch.net 6667
+server: irc.juggler.jp 6667
+
+in-encoding: jis
+out-encoding: jis
+=cut
+
+* freenode
+package freenode;
+=pod
+info: ネットワーク定義例 (freenode)
+info-is-omitted: 1
+no-switch: 1
+
+
+server: chat.freenode.net 6667
+
+# freenodeではパスワードとして「アカウント パスワード」のように、
+# アカウントに空白とパスワードを続けたものを指定することで、
+# NICKコマンドの前の接続の段階でidentifyすることができるため、
+# nickの重複や異なるnick等、nickとは無関係に自動identifyが可能。
+-password: account secret
+=cut
+
+* ustream
+package ustream;
+=pod
+info: ネットワーク定義例 (Ustream)
+info-is-omitted: 1
+no-switch: 1
+
+
+server: chat1.ustream.tv 6667
+
+# Ustreamのloginをnickとuserに指定する。
+-nick: ustreamer
+-user: ustreamer
+
+# Ustreamのパスワードを指定する。
+-password: secret
+=cut

lang/perl/tiarra/trunk/mini.conf

@@ -91 +91 @@
 ircnet {
   # サーバーのホストとポート。省略不可。
-  host: irc.nara.wide.ad.jp
-  port: 6667
+  server: irc.ircnet.ne.jp 6667
 
   #user: hoge
@@ -102 +101 @@
 
 irc2ch {
-  host: irc.2ch.net
-  port: 6667
+  server: irc.2ch.net 6667
+  #server: irc2.2ch.net 6667
+  #server: irc.juggler.jp 6667
 }
 
@@ -109 +109 @@
 # 必須の設定は以上です。以下はモジュール(プラグイン)の設定です。
 # ここにある以外にもいっぱいあるので,
-# 
+#
 # -----------------------------------------------------------------------------
 

lang/perl/tiarra/trunk/module/Auto/Im.pm

@@ -81 +81 @@
                          if (!ref($stat)) {
                              $runloop->notify_warn(__PACKAGE__." post failed: $stat");
-                         } elsif ($stat->{Content} !~ /"result":\s*"(ok|posted)"/) {
+                         } elsif ($stat->{Content} !~ /"result":\s*"(?:ok|posted)"/) {
                              # http://im.kayac.com/#docs
                              # (but actually responce is '"result": "ok"')
-                             (my $content = $stat->{Content}) =~ s/[\n\r\s]+/ /;
+                             (my $content = $stat->{Content}) =~ s/\s+/ /;
                              $runloop->notify_warn(__PACKAGE__." post failed: $content");
                          }

lang/perl/tiarra/trunk/module/Auto/Notify.pm

@@ -89 +89 @@
 sub strip_mirc_formatting {
     my ($this, $text) = @_;
-    $text =~ s/(\x03\d\d?(,\d\d?)?|[\x0f\x02\x1f\x16])//g;
+    $text =~ s/(?:\x03\d\d?(?:,\d\d?)?|[\x0f\x02\x1f\x16])//g;
     $text;
 }
@@ -131 +131 @@
                if (!ref($stat)) {
                    $runloop->notify_warn(__PACKAGE__." im.kayac.com: post failed: $stat");
-               } elsif ($stat->{Content} !~ /"result":\s*"(ok|posted)"/) {
+               } elsif ($stat->{Content} !~ /"result":\s*"(?:ok|posted)"/) {
                    # http://im.kayac.com/#docs
                    # (but actually responce is '"result": "ok"')
-                   (my $content = $stat->{Content}) =~ s/[\n\r\s]+/ /;
+                   (my $content = $stat->{Content}) =~ s/\s+/ /;
                    $runloop->notify_warn(__PACKAGE__." im.kayac.com: post failed: $content");
                }
@@ -191 +191 @@
                    $runloop->notify_warn(__PACKAGE__." prowl: post failed: $stat");
                } elsif ($stat->{Content} !~ /<success /) {
-                   (my $content = $stat->{Content}) =~ s/[\n\r\s]+/ /;
+                   (my $content = $stat->{Content}) =~ s/\s+/ /;
                    $runloop->notify_warn(__PACKAGE__." prowl: post failed: $content");
                }

lang/perl/tiarra/trunk/module/Client/Guess.pm

@@ -11 +11 @@
 
 # shorthand
-our $re_ver = qr/[\d.][\d.a-zA-Z-+]+/;
+our $re_ver = qr/[\d.][\d.a-zA-Z+-]+/;
 our $re_tok = qr/\S+/;
 

lang/perl/tiarra/trunk/sample.conf

@@ -101 +101 @@
   # IRCサーバーから送られる文字のコードと、IRCサーバーへ送る文字のコード。
   # それぞれ省略された場合はjis。
-  server-in-encoding: jis
-  server-out-encoding: jis
+  server-in-encoding: utf8
+  server-out-encoding: utf8
 
   # クライアントから受け取る文字のコードと、クライアントへ伝える文字のコード。
   # それぞれ省略された場合はjis。
-  client-in-encoding: jis
-  client-out-encoding: jis
+  client-in-encoding: utf8
+  client-out-encoding: utf8
 
   # Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはutf8となる。
@@ -146 +146 @@
 
   # Tiarra が、 001 や 002 や、 recent log を送信するときなどに使う prefix
-  # を指定します。 hostname や fqdn っぽいものを指定すると良いかもしれません。
+  # を指定します。 hostname や FQDN っぽいものを指定すると良いかもしれません。
   # デフォルトは tiarra です。普通変える必要はありません。
   #sysmsg-prefix: tiarra
@@ -213 +213 @@
   name: ircnet
   name: 2ch
+  #name: freenode
+  #name: ustream
 
   # 通常Tiarraではチャンネル名を「#Tiarra@ircnet」のように表現します。
@@ -266 +268 @@
   # サーバーのホストとポートを指定。複数行可。(host/port が指定されていない場合は)省略不可。
   # 同じサーバの複数のポート指定は順番に試すので、大量に書かない方がよい。
-  server: irc.nara.wide.ad.jp 6662 6663
-  server: irc.fujisawa.wide.ad.jp 6661 6664
+  server: irc.ircnet.ne.jp 6667
+  server: irc.media.kyoto-u.ac.jp 6662 6663
+  server: irc.huie.hokudai.ac.jp 6667
 
   # サーバーのホストとポート。(server が指定されていない場合は)省略不可。
   # server を指定した場合は server が優先されます。
-  #host: irc.nara.wide.ad.jp
+  #host: irc.media.kyoto-u.ac.jp
   #port: 6663
 
@@ -284 +287 @@
   #password: hoge
 
-  # general/setver-in/out-encodingで設定したエンコーディングを使わずに、
-  # 各ネットワークで独自のエンコーディングを使用する事も可能。
+  # general/setver-in/out-encodingで設定した文字のコードを使わずに、
+  # 各ネットワークで独自の文字コードを使用する事も可能。
   # 省略されたら当然、generalで設定したものが使われる。
-  #in-encoding: jis
-  #out-encoding: jis
+  in-encoding: jis
+  out-encoding: jis
 
   # general/(ipv4|ipv6)bind-addrで設定したローカルアドレスを使わずに、
@@ -298 +301 @@
 
 2ch {
-  host: irc.2ch.net
-  port: 6667
+  server: irc.2ch.net 6667
+  server: irc2.2ch.net 6667
+  server: irc.juggler.jp 6667
+
+  in-encoding: jis
+  out-encoding: jis
 }