# -*-perl-*-
# keitairc/lib/plugins/32address
# 
# $Id: 32address,v 1.1 2008/02/25 18:09:22 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/32address,v $

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

1;


