Changeset 11344

Timestamp:

05/10/08 16:36:53 (5 years ago)

Author:

topia

Message:

* set properties.

Files:

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

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

@@ -11 +11 @@
 use HTTP::Request::Common;
 
-# �ǥե�����
+# デフォルト設定
 my $DATE_FORMAT = '%H:%M';
 my $FORMAT = '#(date) << #(from.name|from.nick|from.nick.now) >> #(message)';
@@ -28 +28 @@
 sub destruct {
     my $this = shift;
-    # �⥸�塼�뤬���ˤʤä����˸ƤФ���
-    # �����⥸�塼���ǥ��ȥ饯���Ǥ��롣���Υ᥽�åɤ��ƤФ줿��DESTROY�����    # �����ʤ����åɤ��Ф�������������ޡ�����������ϡ����Υ᥽�åɤ�
-    # �Ǥ��äƤ�������ʤ����ʤ�����
-    # ��̵����
+    # モジュールが不要になった時に呼ばれる。
+    # これはモジュールのデストラクタである。このメソッドが呼ばれた後はDESTROYを除いて
+    # いかなるメソッドも呼ばれる事が無い。タイマーを登録した場合は、このメソッドが
+    # 責任を持ってそれを解除しなければならない。
+    # 引数は無し。
 }
 
@@ -38 +39 @@
   my @result = ($msg);
 
-  # ����������������������
+  # サーバーからのメッセージか？
   if ($sender->isa('IrcIO::Server')) {
-      # PRIVMSG����
+      # PRIVMSGか？
       if ($msg->command eq 'PRIVMSG') {
           my ($get_ch_name,$reply_in_ch,$reply_as_priv,$reply_anywhere, $get_full_ch_name)
@@ -50 +51 @@
 
           if (Mask::match_deep([$this->config->keyword('all')], $str)) {
-              # �����Ƥ�����
+              # 一致していた。
               LWP::UserAgent->new->request( POST "http://im.kayac.com/api/post/$this->{user}",
                   [ message => "[tiarra][$full_ch_name] $str $who $text" ]
@@ -65 +66 @@
 
 =pod
-info: ̾����ƤФ��ȡ���������kayac.com������efault: off
+info: 名前が呼ばれると、その発言をim.kayac.comに送信する
+default: off
 
-# ȿ�����륭����ɤ�ꤷ�ޤ���,����ʣ����������Ǥ�
+# 反応するキーワードを指定します。,区切りで複数指定できるようです
 keyword: hoge
 
-# im.kayac.com���������桼��̾��Ϥ��ޤ���
-# im.kayac.com�ˤĤ��Ƥ�http://im.kayac.com/#docs �򻲹ͤˤ��Ƥ��������
+# im.kayac.comで登録したユーザ名を入力します。
+# im.kayac.comについては http://im.kayac.com/#docs を参考にしてください。
 user: username