Changeset 12849

Timestamp:

05/30/08 22:39:40 (5 years ago)

Author:

topia

Message:

* Merging r12488 through r12848 from trunk.

Location:

lang/perl/tiarra/branches/module-reload

Files:

• all.conf (modified) (3 diffs)
• doc-src/conf-main.tdoc (modified) (1 diff)
• doc/module/Auto.html (modified) (5 diffs)
• module/Auto/Reply.pm (modified) (6 diffs)
• module/System/WebClient.pm (modified) (3 diffs)
• sample.conf (modified) (1 diff)

lang/perl/tiarra/branches/module-reload/all.conf

@@ -486 +486 @@
 
   # NOTE:
-  #  利用するにはcodereposから
+  #  利用するにはCodeReposから
   #  module/Tools/HTTPClient.pm     rev.8220
   #  main/Tiarra/Socket/Buffered.pm rev.8219
@@ -823 +823 @@
 
   # 使用するブロックの定義。
+  # 省略すると std を使用.
+  # 複数個の blocks の指定も可能.
   blocks: std
 
   std {
+    # 1つの応答ブロックの定義.
+    # 一応全ての項目が省略可能ではあるけれど,
+    # 通常は最低限 file と file-encoding を使用する.
+    # IRCで応答の追加削除等を行いたいときにはそれに更に設定を追加する形.
+    # (IRC上で応答の追加削除は行うが保存はしない時に限ってfileを省略可能.)
+
+    # 機能:
+    # - 通常応答
+    # - 登録数確認(count-query)
+    # - 反応確認(request)
+    # - 反応追加(add)
+    # - 反応削除(remove)
+    # 通常応答以外は設定を省略することで機能を無効にできます。
+
     # データファイルと文字コードを指定します。
-    # ファイルの中では一行に一つの"反応:メッセージ"を書いて下さい。
+    # ファイルの中では一行に一つの"反応マスク:メッセージ"を書いて下さい。
     file: reply.txt
     file-encoding: euc
 
-    # 反応チェックを行うキーワードを指定します。
+    # １つの発言で複数の反応マスクにマッチする場合,
+    # どれにマッチするかは未定義です.
+    # ただ, どちらか1つにのみマッチします.
+
+    # 同じ反応マスクに複数個のメッセージが記述してあった場合の処理.
+    # multivalue: random #==> ランダムに1つ選択.
+    # multivalue: all    #==> 全て返す.
+    # multivalue: seq    #==> 順番に1つずつ返す.
+    # 省略時及び認識できなかったときは random.
+    #multivalue: random
+    # 返す最大行数.
+    # multivalue: all の時のみ有効.
+    # (それ以外の時は1行しか返さない)
+    # デフォルトは 5 行まで.
+    #multivalue-limit: 5
+
+    # 反応する人のマスク。
+    # 通常応答と登録数の返答時にチェックされる。
+    mask: * *!*@*
+    # plum: mask: *!*@*
+
+    # このブロックが発言に反応する確率を指定します。
+    # 百分率です。省略された場合は100と見做されます。
+    rate: 100
+
+
+    # 反応の確認を行うためのキーワードを指定します。
     # 実際の指定方法は、「<requestで指定したキーワード> <チェックしたい発言>」です。
+    # 省略するとこの機能は無効になります。
+    # 指定したときだけこの機能が有効になります。
     request: 反応チェック
 
     # request に反応するときのフォーマットを指定します。
     # #(key) がキーワード、 #(message) が発言に置換されます。
+    # request を指定したときのみ必要。
     reply-format: 「#(key)」という発言に「#(message)」と反応します。
 
-    # request に反応する最大個数を指定します。
+    # request に反応する最大個数(ブロックの数)を指定します。
     # あまり大きな値を指定すると、アタックが可能になったり、ログが流れて邪魔なので注意してください。
+    # 通常の反応には関与しません。また、応答の行数ではありません。
     max-reply: 5
 
     # メッセージの登録数を返答するキーワードを指定します。
+    # 省略するとこの機能は無効になります。
+    # 指定したときだけこの機能が有効になります。
     count-query: 反応登録数
 
     # メッセージの登録数を返答するときの反応を指定します。
     # formatで指定できるものと同じです。#(count)は登録数になります。
+    # count-query を指定したときのみ必要。
     count-format: 反応は#(count)件登録されています。
 
-    # 反応する人のマスク。
-    mask: * *!*@*
-    # plum: mask: *!*@*
+    # メッセージを追加するキーワードを指定します。
+    # ここで指定したキーワードを発言すると、新しいメッセージを追加します。
+    # 実際の追加方法は「<addで指定したキーワード> <追加するメッセージ>」です。
+    # 省略するとこの機能は無効になります。
+    # 指定したときだけこの機能が有効になります。
+    #add: 反応追加
 
     # 反応が追加されたときの反応を指定します。
@@ -858 +910 @@
     added-format: #(name|nick.now): #(key) に対する反応 #(message) を追加しました。
 
+    # メッセージを削除するキーワードを指定します。
+    # 実際の削除方法は「<removeで指定したキーワード> <削除するキーワード>」です。
+    # 省略するとこの機能は無効になります。
+    # 指定したときだけこの機能が有効になります。
+    #remove: 反応削除
+
     # メッセージが削除されたときの反応を指定します。
     # formatで指定できるものと同じです。#(message)は削除されたメッセージになります。
     removed-format: #(name|nick.now): #(key) #(message;に対する反応 %s|;) を #(count) 件削除しました。
-
-    # 発言に反応する確率を指定します。百分率です。省略された場合は100と見做されます。
-    rate: 100
-
-    # メッセージを追加するキーワードを指定します。
-    # ここで指定したキーワードを発言すると、新しいメッセージを追加します。
-    # 実際の追加方法は「<addで指定したキーワード> <追加するメッセージ>」です。
-    add: 反応追加
-
-    # メッセージを削除するキーワードを指定します。
-    # 実際の削除方法は「<removeで指定したキーワード> <削除するキーワード>」です。
-    remove: 反応削除
 
     # addとremoveを許可する人。省略された場合は「* *!*@*」と見做します。

lang/perl/tiarra/branches/module-reload/doc-src/conf-main.tdoc

@@ -68 +68 @@
 client-out-encoding: jis
 
-# Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはeucとなる。
+# Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはutf8となる。
 # ただしtiarra.confのパースが完了するまでは文字コードの変換は行なわれない(つまりこの設定が有効にならない)ことに注意して下さい。
 stdout-encoding: utf8

lang/perl/tiarra/branches/module-reload/doc/module/Auto.html

@@ -280 +280 @@
 <p class="comment">
 NOTE:<br />
-&nbsp;利用するにはcodereposから<br />
+&nbsp;利用するにはCodeReposから<br />
 &nbsp;module/Tools/HTTPClient.pm     rev.8220<br />
 &nbsp;main/Tiarra/Socket/Buffered.pm rev.8219<br />
@@ -749 +749 @@
 <p class="comment">
 使用するブロックの定義。<br />
+省略すると std を使用.<br />
+複数個の blocks の指定も可能.<br />
 </p>
 <div class="element"><span class="key">blocks</span>:<span class="value">std</span></div>
@@ -754 +756 @@
 <div class="block content">
 <p class="comment">
+1つの応答ブロックの定義.<br />
+一応全ての項目が省略可能ではあるけれど,<br />
+通常は最低限 file と file-encoding を使用する.<br />
+IRCで応答の追加削除等を行いたいときにはそれに更に設定を追加する形.<br />
+(IRC上で応答の追加削除は行うが保存はしない時に限ってfileを省略可能.)<br />
+</p>
+<p class="comment">
+機能:<br />
+- 通常応答<br />
+- 登録数確認(count-query)<br />
+- 反応確認(request)<br />
+- 反応追加(add)<br />
+- 反応削除(remove)<br />
+通常応答以外は設定を省略することで機能を無効にできます。<br />
+</p>
+<p class="comment">
 データファイルと文字コードを指定します。<br />
-ファイルの中では一行に一つの&quot;反応:メッセージ&quot;を書いて下さい。<br />
+ファイルの中では一行に一つの&quot;反応マスク:メッセージ&quot;を書いて下さい。<br />
 </p>
 <div class="element"><span class="key">file</span>:<span class="value">reply.txt</span></div>
 <div class="element"><span class="key">file-encoding</span>:<span class="value">euc</span></div>
 <p class="comment">
-反応チェックを行うキーワードを指定します。<br />
+１つの発言で複数の反応マスクにマッチする場合,<br />
+どれにマッチするかは未定義です.<br />
+ただ, どちらか1つにのみマッチします.<br />
+</p>
+<p class="comment">
+同じ反応マスクに複数個のメッセージが記述してあった場合の処理.<br />
+multivalue: random #==&gt; ランダムに1つ選択.<br />
+multivalue: all    #==&gt; 全て返す.<br />
+multivalue: seq    #==&gt; 順番に1つずつ返す.<br />
+省略時及び認識できなかったときは random.<br />
+</p>
+<div class="element"><span class="key">multivalue</span>:<span class="value">random</span></div>
+<p class="comment">
+返す最大行数.<br />
+multivalue: all の時のみ有効.<br />
+(それ以外の時は1行しか返さない)<br />
+デフォルトは 5 行まで.<br />
+</p>
+<div class="element"><span class="key">multivalue-limit</span>:<span class="value">5</span></div>
+<p class="comment">
+反応する人のマスク。<br />
+通常応答と登録数の返答時にチェックされる。<br />
+</p>
+<div class="element"><span class="key">mask</span>:<span class="value">* *!*@*</span></div>
+<p class="comment">
+plum: mask: *!*@*<br />
+</p>
+<p class="comment">
+このブロックが発言に反応する確率を指定します。<br />
+百分率です。省略された場合は100と見做されます。<br />
+</p>
+<div class="element"><span class="key">rate</span>:<span class="value">100</span></div>
+<p class="comment">
+反応の確認を行うためのキーワードを指定します。<br />
 実際の指定方法は、「&lt;requestで指定したキーワード&gt; &lt;チェックしたい発言&gt;」です。<br />
+省略するとこの機能は無効になります。<br />
+指定したときだけこの機能が有効になります。<br />
 </p>
 <div class="element"><span class="key">request</span>:<span class="value">反応チェック</span></div>
@@ -767 +820 @@
 request に反応するときのフォーマットを指定します。<br />
 #(key) がキーワード、 #(message) が発言に置換されます。<br />
+request を指定したときのみ必要。<br />
 </p>
 <div class="element"><span class="key">reply-format</span>:<span class="value">「#(key)」という発言に「#(message)」と反応します。</span></div>
 <p class="comment">
-request に反応する最大個数を指定します。<br />
+request に反応する最大個数(ブロックの数)を指定します。<br />
 あまり大きな値を指定すると、アタックが可能になったり、ログが流れて邪魔なので注意してください。<br />
+通常の反応には関与しません。また、応答の行数ではありません。<br />
 </p>
 <div class="element"><span class="key">max-reply</span>:<span class="value">5</span></div>
 <p class="comment">
 メッセージの登録数を返答するキーワードを指定します。<br />
+省略するとこの機能は無効になります。<br />
+指定したときだけこの機能が有効になります。<br />
 </p>
 <div class="element"><span class="key">count-query</span>:<span class="value">反応登録数</span></div>
@@ -781 +838 @@
 メッセージの登録数を返答するときの反応を指定します。<br />
 formatで指定できるものと同じです。#(count)は登録数になります。<br />
+count-query を指定したときのみ必要。<br />
 </p>
 <div class="element"><span class="key">count-format</span>:<span class="value">反応は#(count)件登録されています。</span></div>
-<p class="comment">
-反応する人のマスク。<br />
-</p>
-<div class="element"><span class="key">mask</span>:<span class="value">* *!*@*</span></div>
-<p class="comment">
-plum: mask: *!*@*<br />
-</p>
-<p class="comment">
-反応が追加されたときの反応を指定します。<br />
-formatで指定できるものと同じです。#(message)は追加されたメッセージになります。<br />
-</p>
-<div class="element"><span class="key">added-format</span>:<span class="value">#(name|nick.now): #(key) に対する反応 #(message) を追加しました。</span></div>
-<p class="comment">
-メッセージが削除されたときの反応を指定します。<br />
-formatで指定できるものと同じです。#(message)は削除されたメッセージになります。<br />
-</p>
-<div class="element"><span class="key">removed-format</span>:<span class="value">#(name|nick.now): #(key) #(message;に対する反応 %s|;) を #(count) 件削除しました。</span></div>
-<p class="comment">
-発言に反応する確率を指定します。百分率です。省略された場合は100と見做されます。<br />
-</p>
-<div class="element"><span class="key">rate</span>:<span class="value">100</span></div>
 <p class="comment">
 メッセージを追加するキーワードを指定します。<br />
 ここで指定したキーワードを発言すると、新しいメッセージを追加します。<br />
 実際の追加方法は「&lt;addで指定したキーワード&gt; &lt;追加するメッセージ&gt;」です。<br />
+省略するとこの機能は無効になります。<br />
+指定したときだけこの機能が有効になります。<br />
 </p>
 <div class="element"><span class="key">add</span>:<span class="value">反応追加</span></div>
+<p class="comment">
+反応が追加されたときの反応を指定します。<br />
+formatで指定できるものと同じです。#(message)は追加されたメッセージになります。<br />
+</p>
+<div class="element"><span class="key">added-format</span>:<span class="value">#(name|nick.now): #(key) に対する反応 #(message) を追加しました。</span></div>
 <p class="comment">
 メッセージを削除するキーワードを指定します。<br />
 実際の削除方法は「&lt;removeで指定したキーワード&gt; &lt;削除するキーワード&gt;」です。<br />
+省略するとこの機能は無効になります。<br />
+指定したときだけこの機能が有効になります。<br />
 </p>
 <div class="element"><span class="key">remove</span>:<span class="value">反応削除</span></div>
+<p class="comment">
+メッセージが削除されたときの反応を指定します。<br />
+formatで指定できるものと同じです。#(message)は削除されたメッセージになります。<br />
+</p>
+<div class="element"><span class="key">removed-format</span>:<span class="value">#(name|nick.now): #(key) #(message;に対する反応 %s|;) を #(count) 件削除しました。</span></div>
 <p class="comment">
 addとremoveを許可する人。省略された場合は「* *!*@*」と見做します。<br />

lang/perl/tiarra/branches/module-reload/module/Auto/Reply.pm

@@ -14 +14 @@
 use Mask;
 
+our $DEFAULT_BLOCK_NAME = 'std';
+our $DEFAULT_MUILTILINE_LIMIT = 10;
+
 sub new {
     my $class = shift;
@@ -19 +22 @@
     $this->{config} = [];
 
-    $this->_load;
+    eval{
+      $this->_load;
+    };
+    if( $@ )
+    {
+      $this->_error("$@");
+    }
     return $this;
+}
+
+sub _error
+{
+  my $this = shift;
+  my $msg  = shift;
+
+  $this->_runloop->notify_error(__PACKAGE__." -- ".$msg);
 }
 
@@ -27 +44 @@
 
     my $BLOCKS_NAME = 'blocks';
-
-    foreach my $blockname ($this->config->get($BLOCKS_NAME, 'all')) {
-        die "$blockname block name is reserved!" if $blockname eq $BLOCKS_NAME;
+    my @block_names = $this->config->get($BLOCKS_NAME, 'all');
+    if( !@block_names )
+    {
+      @block_names = $DEFAULT_BLOCK_NAME;
+      if( !$this->config->get($DEFAULT_BLOCK_NAME) )
+      {
+        $this->_("Both blocks: records and std block are not defined");
+        return;
+      }
+    }
+
+    foreach my $blockname (@block_names) {
+        if( $blockname eq $BLOCKS_NAME )
+        {
+          $this->_error("block name $blockname is reserved!");
+          next;
+        }
         my $block = $this->config->get($blockname);
-        die "$blockname isn't block!" unless UNIVERSAL::isa($block, 'Configuration::Block');
+        if( !$block )
+        {
+          $this->_error("block $blockname is not defined");
+          next;
+        }
+        if( !UNIVERSAL::isa($block, 'Configuration::Block') )
+        {
+          $this->_error("$blockname isn't block!");
+          next;
+        }
         push(@{$this->{config}}, {
-            mask => [Mask::array_or_all_chan($block->mask('all'))],
-            request => [$block->request('all')],
-            reply_format => [$block->reply_format('all')],
-            max_reply => $block->max_reply,
-            rate => $block->rate,
-            count_query => [$block->count_query('all')],
-            count_format => [$block->count_format('all')],
-            add => [$block->get('add', 'all')],
-            added_format => [$block->added_format('all')],
-            remove => [$block->remove('all')],
+            mask           => [Mask::array_or_all_chan($block->mask('all'))],
+            request        => [$block->request('all')],
+            reply_format   => [$block->reply_format('all')],
+            max_reply      => $block->max_reply,
+            rate           => $block->rate,
+            count_query    => [$block->count_query('all')],
+            count_format   => [$block->count_format('all')],
+            add            => [$block->get('add', 'all')],
+            added_format   => [$block->added_format('all')],
+            remove         => [$block->remove('all')],
             removed_format => [$block->removed_format('all')],
-            modifier => [$block->modifier('all')],
-            use_re => $block->use_re,
-            database => Tools::HashDB->new(
+            modifier       => [$block->modifier('all')],
+            use_re         => $block->use_re,
+            multivalue     => $block->multivalue,
+            multivalue_limit => $block->multivalue_limit,
+            multivalue_seq   => 0, # updated internally.
+            database       => Tools::HashDB->new(
                 $block->file,
                 $block->file_encoding,
@@ -133 +176 @@
                 my $key = (_search($block, $msg->param(1), 1, $block->{rate}))[0];
                 if (defined $key) {
-                    $reply_anywhere->($block->{database}->get_value_random($key));
+                  my $multivalue = $block->{multivalue} || 'random';
+                  if( $multivalue eq 'all' )
+                  {
+                    my $limit = $block->{multivalue_limit} || $DEFAULT_MUILTILINE_LIMIT;
+                    my $values = $block->{database}->get_array($key);
+                    if( @$values > $limit )
+                    {
+                      $values = [ @$values[0..$limit-1] ];
+                    }
+                    $reply_anywhere->($values);
+                  }elsif( $multivalue eq 'seq' || $multivalue eq 'sequence' )
+                  {
+                    my $values = $block->{database}->get_array($key);
+                    my $seq = $block->{multivalue_seq} || 0;
+                    if( $seq < 0 || $seq >= @$values )
+                    {
+                      $seq = 0;
+                    }
+                    $reply_anywhere->($values->[$seq]);
+                    $block->{multivalue_seq} = ($seq + 1) % @$values;
+                  }else
+                  {
+                    my $value = $block->{database}->get_value_random($key);
+                    $reply_anywhere->($value);
+                  }
                 }
             }
@@ -177 +244 @@
 
 # 使用するブロックの定義。
+# 省略すると std を使用.
+# 複数個の blocks の指定も可能.
 blocks: std
 
 std {
+  # 1つの応答ブロックの定義.
+  # 一応全ての項目が省略可能ではあるけれど,
+  # 通常は最低限 file と file-encoding を使用する.
+  # IRCで応答の追加削除等を行いたいときにはそれに更に設定を追加する形.
+  # (IRC上で応答の追加削除は行うが保存はしない時に限ってfileを省略可能.)
+
+  # 機能:
+  # - 通常応答
+  # - 登録数確認(count-query)
+  # - 反応確認(request)
+  # - 反応追加(add)
+  # - 反応削除(remove)
+  # 通常応答以外は設定を省略することで機能を無効にできます。
+
   # データファイルと文字コードを指定します。
-  # ファイルの中では一行に一つの"反応:メッセージ"を書いて下さい。
+  # ファイルの中では一行に一つの"反応マスク:メッセージ"を書いて下さい。
   file: reply.txt
   file-encoding: euc
 
-  # 反応チェックを行うキーワードを指定します。
+  # １つの発言で複数の反応マスクにマッチする場合, 
+  # どれにマッチするかは未定義です.
+  # ただ, どちらか1つにのみマッチします.
+
+  # 同じ反応マスクに複数個のメッセージが記述してあった場合の処理.
+  # multivalue: random #==> ランダムに1つ選択.
+  # multivalue: all    #==> 全て返す.
+  # multivalue: seq    #==> 順番に1つずつ返す.
+  # 省略時及び認識できなかったときは random.
+  -multivalue: random
+  # 返す最大行数.
+  # multivalue: all の時のみ有効.
+  # (それ以外の時は1行しか返さない)
+  # デフォルトは 5 行まで.
+  -multivalue-limit: 5
+
+  # 反応する人のマスク。
+  # 通常応答と登録数の返答時にチェックされる。
+  mask: * *!*@*
+  # plum: mask: *!*@*
+
+  # このブロックが発言に反応する確率を指定します。
+  # 百分率です。省略された場合は100と見做されます。
+  rate: 100
+
+
+  # 反応の確認を行うためのキーワードを指定します。
   # 実際の指定方法は、「<requestで指定したキーワード> <チェックしたい発言>」です。
+  # 省略するとこの機能は無効になります。
+  # 指定したときだけこの機能が有効になります。
   request: 反応チェック
 
   # request に反応するときのフォーマットを指定します。
   # #(key) がキーワード、 #(message) が発言に置換されます。
+  # request を指定したときのみ必要。
   reply-format: 「#(key)」という発言に「#(message)」と反応します。
 
-  # request に反応する最大個数を指定します。
+  # request に反応する最大個数(ブロックの数)を指定します。
   # あまり大きな値を指定すると、アタックが可能になったり、ログが流れて邪魔なので注意してください。
+  # 通常の反応には関与しません。また、応答の行数ではありません。
   max-reply: 5
 
   # メッセージの登録数を返答するキーワードを指定します。
+  # 省略するとこの機能は無効になります。
+  # 指定したときだけこの機能が有効になります。
   count-query: 反応登録数
 
   # メッセージの登録数を返答するときの反応を指定します。
   # formatで指定できるものと同じです。#(count)は登録数になります。
+  # count-query を指定したときのみ必要。
   count-format: 反応は#(count)件登録されています。
 
-  # 反応する人のマスク。
-  mask: * *!*@*
-  # plum: mask: *!*@*
+  # メッセージを追加するキーワードを指定します。
+  # ここで指定したキーワードを発言すると、新しいメッセージを追加します。
+  # 実際の追加方法は「<addで指定したキーワード> <追加するメッセージ>」です。
+  # 省略するとこの機能は無効になります。
+  # 指定したときだけこの機能が有効になります。
+  -add: 反応追加
 
   # 反応が追加されたときの反応を指定します。
@@ -212 +331 @@
   added-format: #(name|nick.now): #(key) に対する反応 #(message) を追加しました。
 
+  # メッセージを削除するキーワードを指定します。
+  # 実際の削除方法は「<removeで指定したキーワード> <削除するキーワード>」です。
+  # 省略するとこの機能は無効になります。
+  # 指定したときだけこの機能が有効になります。
+  -remove: 反応削除
+
   # メッセージが削除されたときの反応を指定します。
   # formatで指定できるものと同じです。#(message)は削除されたメッセージになります。
   removed-format: #(name|nick.now): #(key) #(message;に対する反応 %s|;) を #(count) 件削除しました。
 
-  # 発言に反応する確率を指定します。百分率です。省略された場合は100と見做されます。
-  rate: 100
-
-  # メッセージを追加するキーワードを指定します。
-  # ここで指定したキーワードを発言すると、新しいメッセージを追加します。
-  # 実際の追加方法は「<addで指定したキーワード> <追加するメッセージ>」です。
-  add: 反応追加
-
-  # メッセージを削除するキーワードを指定します。
-  # 実際の削除方法は「<removeで指定したキーワード> <削除するキーワード>」です。
-  remove: 反応削除
-
   # addとremoveを許可する人。省略された場合は「* *!*@*」と見做します。
   modifier: * *!*@*

lang/perl/tiarra/branches/module-reload/module/System/WebClient.pm

@@ -577 +577 @@
   if( !_verify_value($param->[1], $user) )
   {
+    defined($user) or $user = '';
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] user $param->[1] does not match with '$user' (user)");
     return;
   }
   if( !_verify_value($param->[2], $pass) )
   {
+    defined($pass) or $pass = '';
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[2] does not match with '$pass' (pass)");
     return;
   }
@@ -613 +617 @@
     return 1;
   }
+  defined($uid) or $uid = '';
+  defined($sn)  or $sn  = '';
+  $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[1] does not match with '$uid' (uid), '$sn' (sn)");
   return;
 }
@@ -627 +634 @@
   if( !_verify_value($param->[1], $subno) )
   {
+    defined($subno) or $subno = '';
+    $DEBUG and ::printmsg("$req->{peer}: $param->[0] pass $param->[1] does not match with '$subno' (subno)");
     return;
   }

lang/perl/tiarra/branches/module-reload/sample.conf

@@ -109 +109 @@
   client-out-encoding: jis
 
-  # Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはeucとなる。
+  # Tiarraは標準出力に様々なメッセージを出力するが、その文字コードを指定する。省略時にはutf8となる。
   # ただしtiarra.confのパースが完了するまでは文字コードの変換は行なわれない(つまりこの設定が有効にならない)ことに注意して下さい。
   stdout-encoding: utf8