# -*-perl-*-
# keitairc/lib/plugins/00location
# 
# $Id: 00location,v 1.1 2008/01/13 15:31:09 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/00location,v $

$plugin = {
	name => 'location',
	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $cid = $param_string;
		my $channel = $::ib->cid2name($cid);

		my $ci = new Keitairc::ClientInfo($request);
		my $view = new Keitairc::View($::cf, $ci);

		my $p = {};
		$p->{web_host} = $::cf->web_host();
		$p->{web_port} = $::cf->web_port();
		$p->{session_id} = $session_id;
		$p->{cid} = $cid;
		$p->{channel_compact} = $::ib->compact_channel_name($cid);
		return $view->render('location.html', $p);
	}
};

1;
