Changeset 847

Timestamp:

10/29/07 21:17:23 (6 years ago)

Author:

yappo

Message:

lang/perl/irssi/scripts/mobirc.pl: changed END section to pod section maybe for irssi 0.8.12 problem.
lang/perl/irssi/scripts/mobirc.pl: add_messageの末尾にclassを追加

Files:

• lang/perl/irssi/scripts/mobirc.pl (modified) (9 diffs)

lang/perl/irssi/scripts/mobirc.pl

@@ -124 +124 @@
         $poe, decode( 'utf-8',  $target ),
         $nick, decode( 'utf-8', $msg ),
+        'public',
     );
 }
@@ -134 +135 @@
 
     add_message(
-        $poe, decode('utf-8', $target), $server->{nick}, decode('utf-8', $msg)
+        $poe, decode('utf-8', $target), $server->{nick}, decode('utf-8', $msg), 'public'
     );
 }
@@ -150 +151 @@
             $poe, decode('utf-8', $channel),
             undef, decode('utf-8', "$nick joined"),
+            'join',
         );
     }
@@ -164 +166 @@
     }
     else {
-        add_message($poe, decode('utf-8', $channel), undef, decode('utf-8', "$nick leaves"));
+        add_message($poe, decode('utf-8', $channel), undef, decode('utf-8', "$nick leaves"), 'leave');
     }
 }
@@ -179 +181 @@
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
-    add_message($poe, decode('utf-8', $channel), undef, decode('utf-8', "$nick set topic: $topic"));
+    add_message($poe, decode('utf-8', $channel), undef, decode('utf-8', "$nick set topic: $topic"), 'topic');
     $irc->{channel_topic}{canon_name($channel)} = $topic;
 }
@@ -192 +194 @@
 
     $msg = sprintf('* %s %s', $server->{nick}, decode('utf-8', $msg));
-    add_message( $poe, decode('utf-8', $target), '', $msg );
+    add_message( $poe, decode('utf-8', $target), '', $msg, 'ctcp_action');
 }
 
@@ -201 +203 @@
 
     $msg = sprintf('* %s %s', $nick, decode('utf-8', $msg));
-    add_message( $poe, decode('utf-8', $target), '', $msg );
+    add_message( $poe, decode('utf-8', $target), '', $msg, 'ctcp_action');
 }
 
@@ -209 +211 @@
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
-    add_message($poe, decode('utf-8', $target), $server->{nick}, decode('utf-8', $msg));
+    add_message($poe, decode('utf-8', $target), $server->{nick}, decode('utf-8', $msg), 'notice');
 }
 
@@ -217 +219 @@
     my $irc = $poe->kernel->alias_resolve('irc_session')->get_heap;
 
-    add_message($poe, decode('utf-8', $target), $nick, decode('utf-8', $msg));
+    add_message($poe, decode('utf-8', $target), $nick, decode('utf-8', $msg), 'notice');
 }
 sub irssi_irc_own_ctcp {}