# -*-perl-*-
# keitairc/lib/plugins/00location_receiver
# see KDDI au: Ѿ > ʰװ־
# http://www.au.kddi.com/ezfactory/tec/spec/eznavi.html
#
# $Id: 00location_receiver,v 1.1 2008/01/13 15:31:09 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/00location_receiver,v $

use Data::Dumper;

$plugin = {
	name => 'location_receiver',
	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $cid = $param_string;
		my $uri = $request->uri();;
		$uri =~ s/.*\?//;
		my %h;
		for my $pair (split(/&/, $uri)){
			my ($k, $v) = split(/=/, $pair);
			$h{$k} = $v;
		}

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

		my $p = {};
		$p->{session_id} = $session_id;
		$p->{channel_compact} = $::ib->compact_channel_name($cid);
		$p->{datum} = $h{datum};
		$p->{unit} = $h{unit};
		$p->{lat} = $h{lat};
		$p->{lon} = $h{lon};
		return $view->render('location_receiver.html', $p);
	}
};

1;
