# -*-perl-*-
# keitairc/lib/plugins/11url_session
# URL(ZbVXVăt@tTmh)
# $Id: 11url_session,v 1.1 2008/02/23 19:45:07 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/11url_session,v $

$plugin = {
	name => 'url_session',
	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $ci = new Keitairc::ClientInfo($request);
		my $view = new Keitairc::View($::cf, $ci);

		# V session_id ČÂ̂͏
		$::sm->delete($session_id);
		my $new_session = $::sm->add($ci->{header}->{user_agent}, $ci->serial_key());
		return $view->render('url_session.html', {
			url => $param_string,
			session_id => $new_session->{id},
			escaped_url => ::uri_escape($param_string),
			     });
	}
};

1;
