# -*-perl-*-
# keitairc/lib/plugins/00location
# ־
# ߤޤ au 
# 
# $Id: 00location,v 1.3 2008/01/14 14:05:48 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/00location,v $

# http://siisise.net/gps.html
# <a href="device:gpsone?url=(CGIURL)&ver=1&datum={0: wgs84 1:¬Ϸ tokyo}&unit={0: dms 1:d.xxx}&acry=0&number=0"></a>
# auǤdatum=1Ȥunit=1ꤷƤ0ˤʤä㤦ü褦ʤΤǡ
# Ȥ0ꤷ̵ۤ

$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;
