# -*- mode: perl; coding: utf-8 -*-
# keitairc/lib/plugins/00location
# 位置情報送信
-# $Id: 00location,v 1.7 2008-12-28 15:25:07 morimoto Exp $
+# $Id: 00location,v 1.8 2009-01-02 15:15:15 nyan_ Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00location,v $
# The line number (1 incremented) and filename below must be
my $cid = $param_string;
my $cname = Encode::encode($::cf->web_charset(), $::ib->simple_escape($::ib->compact_channel_name($cid)));
return $view->render('location.html', {
+ web_schema => $::cf->web_schema(),
web_host => $::cf->web_host(),
web_port => $::cf->web_port(),
session_id => $session_id,