# -*-perl-*-
# Keitairc::View
-# $Id: View.pm,v 1.9 2008-05-02 15:29:36 matusita Exp $
+# $Id: View.pm,v 1.10 2008-05-08 14:32:58 matusita Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/View.pm,v $
#
# Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
$p->{is_docomo} = $me->{ClientInfo}->is_docomo();
$p->{is_ezweb} = $me->{ClientInfo}->is_ezweb();
$p->{is_softbank} = $me->{ClientInfo}->is_softbank();
+ $p->{is_mobile} = $me->{ClientInfo}->is_mobile();
map {
$p->{"plugin_$_"} = 1;