# -*- mode: perl; coding: utf-8 -*-
# keitairc/lib/plugins/12keyword
# Keyword処理
# $Id: 99keyword,v 1.1 2008-06-30 15:29:32 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/99keyword,v $

# The line number (1 incremented) and filename below must be
# actual. see perlsyn.
# line 10 "keitairc/lib/plugins/12keyword"

$plugin = {
	name => 'keyword',

	message_replace_regexp => '(\d\d:\d\d) (.*&gt;) (.*)',
	message_replace_imprementation => sub {
		my ($session_id, $time, $nick, $message) = @_;
		if(defined $::cf->irc_keyword()){
			for my $keyword (split(',', $::cf->irc_keyword())){
				$message =~ s|$keyword|<b>$keyword</b>|g;
			}
		}
		return sprintf('%s %s %s', $time, $nick, $message);
	},
};

1;
