Changeset 11354

Timestamp:

05/10/08 22:13:40 (5 years ago)

Author:

topia

Message:

* support password.
* support mask.
* explain default value of format.

Files:

• lang/perl/tiarra/trunk/module/Auto/Im.pm (modified) (5 diffs)

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

@@ -42 +42 @@
       if ($msg->command eq 'PRIVMSG') {
           my $text = $msg->param(1);
+          my $full_ch_name = $msg->param(0);
 
-          if ($text =~ $this->{regex}) {
-              my $full_ch_name = $msg->param(0);
+          if ($text =~ $this->{regex} && Mask::match_deep_chan(
+              [$this->config->mask('all')],$msg->prefix,$full_ch_name)) {
+
               my $url = "http://im.kayac.com/api/post/" . $this->config->user;
               my $text = Auto::AliasDB->stdreplace(
@@ -53 +55 @@
                   text => $text,
                  );
-              my $req;
+              my @data = (message => $text);
               if ($this->config->secret) {
-                  $req = POST $url,
-                      [ message => $text,
-                        sig => Digest::SHA->new(1)
-                            ->add($text . $this->config->secret)->hexdigest ];
-              } else {
-                  $req = POST $url,
-                      [ message => $text ];
+                  push(@data, sig => Digest::SHA->new(1)
+                           ->add($text . $this->config->secret)->hexdigest);
+              } elsif ($this->config->password) {
+                  push(@data, password => $this->config->password);
               }
               my $runloop = $this->_runloop;
               Tools::HTTPClient->new(
-                  Request => $req,
+                  Request => POST($url, \@data),
                  )->start(
                      Callback => sub {
@@ -87 +86 @@
 default: off
 
+# 反応する人のマスクを指定します。
+# 省略すると全員に反応します。
+mask: * *!*@*
+
 # 反応するキーワードを正規表現で指定します。
 # 複数指定したい時は複数行指定してください。
@@ -96 +99 @@
 
 # im.kayac.com に送るメッセージのフォーマットを指定します。
+# デフォルト値: [tiarra][#(channel):#(nick.now)] #(text)
 format: [tiarra][#(channel):#(nick.now)] #(text)
 
@@ -102 +106 @@
 user: username
 
+# im.kayac.comで秘密鍵認証を選択した場合は設定してください。
+# 省略すると認証なしになります。
+-secret: some secret
+
+# im.kayac.comでパスワード認証を選択した場合は設定してください。
+# 省略すると認証なしになります。
+# secret と両方指定した場合は secret が優先されています。
+-password: some password
+
 =cut