Changeset 11130

Timestamp:

05/05/08 02:20:34 (5 years ago)

Author:

topia

Message:

* more refactored.
* add documentation.

Files:

• lang/perl/tiarra/trunk/module/CTCP/DCC/RewriteAddress.pm (modified) (6 diffs)

lang/perl/tiarra/trunk/module/CTCP/DCC/RewriteAddress.pm

@@ -14 +14 @@
 use Tools::HTTPClient;
 
+
+sub new {
+    my $this = shift->SUPER::new(@_);
+
+    $this->{permit_types} = [map uc, split /\s+/,
+                             ($this->config->type || 'CHAT SEND')];
+    $this->{resolvers} = [map lc, split /\s+/, $this->config->resolver];
+
+    return $this;
+}
+
 sub message_arrived {
     my ($this,$msg,$sender) = @_;
@@ -21 +32 @@
             !defined $msg->nick) {
 
-        my @permit_types = split /\s+/, (uc($this->config->type));
         my $text = $msg->param(1);
         foreach my $ctcp (CTCP->extract_from_text("$text")) {
             if ($ctcp =~ m|^DCC (\S*) (.*)$|) {
                 my ($type, $params) = (uc($1), $2);
-                next unless !@permit_types or grep { $type eq $_ } @permit_types;
+                next unless grep { $type eq $_ } @{$this->{permit_types}};
                 my $result = $this->rewrite_dcc(
                     $msg->clone, $type, $params, $sender);
@@ -210 +220 @@
 sub rewrite_dcc {
     my ($this, $msg, $type, $param, $sender) = @_;
-    if ($param !~ /^(\S*) (\S*) (\S*)(.*)$/) {
+    if ($param !~ /^(\S+) ([\d.]+) (\S+)(.*)$/) {
         return undef;
     }
 
     my ($arg, $addr, $port, $trail) = ($1, $2, $3, $4);
+
     $addr = intaddr_to_octet($addr);
     my $send_dcc = sub {
@@ -223 +234 @@
         1;
     };
-    my @resolvers = split /\s+/, $this->config->resolver;
 
     my $closure = sub {
@@ -233 +243 @@
     };
     $this->get_dcc_address_port(
-        $msg, $sender, $addr, $port, $closure, @resolvers);
+        $msg, $sender, $addr, $port, $closure, @{$this->{resolvers}});
 
 }
@@ -250 +260 @@
 # 別のクライアントには送信されません。
 
-# 変換する DCC タイプ。省略すると全てのDCCを処理する。
-type: send chat
+# 変換する DCC タイプ。 [デフォルト値: CHAT SEND]
+type: CHAT SEND
 
 # 変換用アドレスの取得方法を選択する。デフォルト値はありません。
-resolver: client-socket server-socket
-
+# 以下の取得方法(server-socket client-socket dns http)から
+# 必要なもの(複数可)を指定してください。
+resolver: client-socket server-socket dns http
+
+# 取得方法と設定
+# なにも設定がないときはブロック自体を省略することもできます。
 server-socket {
   # サーバソケットのローカルアドレスを取ります。