Keyword checking support. Closes #12482.

diff --git a/ChangeLog b/ChangeLog
index 596d0ac..9897076 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,9 @@
        \e$B%$%"%s%H$+$i\e(BIRC\e$B%3%^%s%I\e(B(\e$B$N$&$A\e(Bnick/join\e$BEy8B$i$l$?%3%^%s%I\e(B)\e$B$r<B9T$G\e(B
        \e$B$-$k$h$&$K$9$k!%$^$?!$\e(Bpart \e$B%a%C%;!<%8$bBP1~\e(B (thanks to Takahashi
        Yoshihiro)\e$B!%\e(B Closes #12479.
+       * etc/dot.keitairc, lib/Keitairc/Config.pm, lib/plugins/12keyword:
+       \e$B;XDj$7$?%-!<%o!<%I$,H/8@$5$l$?:]!$B@;zI=<($7$FH/8@$,$"$C$?$3$H$r$o\e(B
+       \e$B$+$j$d$9$/$9$k\e(B (thanks to Takahashi Yoshihiro)\e$B!%\e(B Closes #12482.
 
 2008-05-03  Makoto Matsushita  <matusita@jp.FreeBSD.org>
 

diff --git a/etc/dot.keitairc b/etc/dot.keitairc
index d221825..84b395a 100644 (file)
--- a/etc/dot.keitairc
+++ b/etc/dot.keitairc
@@ -1,7 +1,7 @@
 #
 # sample ~/.keitairc for keitairc 2.x
 #
-# $Id: dot.keitairc,v 1.11 2008-05-02 15:22:47 matusita Exp $
+# $Id: dot.keitairc,v 1.12 2008-05-08 14:46:14 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/etc/dot.keitairc,v $
 
 ################################################################
@@ -76,6 +76,9 @@ web_password = 1234
 # ./lib/plugins:/usr/share/keitairc/lib/plugins by default.
 # plugin_dir = 
 
+# Keyword
+# irc_keyword = "mynick,myfavoriteword"
+
 # By default, channel messages are shown in reverse order.
 # Set to these value to '0' to disable.
 # reverse_message = 0

diff --git a/lib/Keitairc/Config.pm b/lib/Keitairc/Config.pm
index bb529f3..8b4455e 100644 (file)
--- a/lib/Keitairc/Config.pm
+++ b/lib/Keitairc/Config.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::Config
-# $Id: Config.pm,v 1.11 2008-05-02 15:22:47 matusita Exp $
+# $Id: Config.pm,v 1.12 2008-05-08 14:46:14 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/Config.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -25,6 +25,7 @@ sub new{
                },
                qw(irc_nick irc_username irc_desc
                   irc_server irc_port irc_password
+                  irc_keyword
                   au_subscriber_id au_pcsv
                   docomo_foma_icc docomo_imodeid
                   softbank_serial_key

diff --git a/lib/plugins/12keyword b/lib/plugins/12keyword
new file mode 100644 (file)
index 0000000..811cb7b
--- /dev/null
+++ b/lib/plugins/12keyword
@@ -0,0 +1,23 @@
+# -*-perl-*-
+# keitairc/lib/plugins/12keyword
+# Keyword\8f\88\97\9d
+# $Id: 12keyword,v 1.1 2008-05-08 14:46:14 matusita Exp $
+# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/12keyword,v $
+
+$plugin = {
+       name => 'keyword',
+
+       message_replace_regexp => '(\d\d:\d\d) (.*>) (.*)',
+       message_replace_imprementation => sub {
+               my ($session_id, $time, $nick, $message) = @_;
+               my @keyword_list = split(',', $::cf->irc_keyword());
+
+               foreach my $keyword (@keyword_list) {
+                       $message =~ s/$keyword/<b>$keyword<\/b>/g;
+               }
+
+               return sprintf('%s %s %s', $time, $nick, $message);
+       },
+};
+
+1;