# -*- mode: perl; coding: utf-8 -*-
# keitairc/lib/plugins/00logout
# ログアウト(セッション破棄)
# $Id: 00logout,v 1.1 2008-12-31 13:59:52 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00logout,v $

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

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

1;
