\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>
#
# 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 $
################################################################
# ./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
# -*-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>
},
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
--- /dev/null
+# -*-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;