# -*- mode: perl; coding: utf-8 -*-
# $Id: 20mail,v 1.1 2008-08-02 18:35:54 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/t/02_Plugins/20mail,v $

# WARNING: This file is a part of Keitairc::Plugins test suite, not
# actual working code.

$plugin = {
	name => 'mail',

	message_replace_regexp => '\b(\w[\w.+=-]*\@[\w.-]+[\w]\.[\w]{2,4})\b',
	message_replace_imprementation => sub {
		my ($session_id, $param) = @_;
		sprintf('<a href="%s%s/mail/%s">%s</a>',
			$::cf->web_root(), $session_id, $param, $param);
	},

	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $ci = new Keitairc::ClientInfo($request);
		my $view = new Keitairc::View($::cf, $ci);
		return $view->render('mail.html', {
			session_id => $session_id,
			mail => $param_string,
			     });
	}
};

1;