#!/usr/bin/perl
# keitairc
-# $Id: keitairc,v 1.35 2008-01-09 18:42:42 morimoto Exp $
+# $Id: keitairc,v 1.36 2008-01-13 06:23:53 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/keitairc,v $
#
# Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
return action_login($request);
}
- if($uri eq '/quicklogin'){
- return action_quicklogin($request);
+ if($uri eq '/login_icc'){
+ return action_login_icc($request);
}
for my $name ($pl->list_action_plugins()){
# \82©\82ñ\82½\82ñ\83\8d\83O\83C\83\93\82ÌPOST\90æ
# DoCoMo\82¾\82Á\82½\82çicc\82ª\97\88\82Ä\82¢\82é\82Í\82¸\82È\82Ì\82Å, icc + user_agent \82Å\83`\83F\83b\83N\81B
# \8d\87\82Á\82Ä\82¢\82½\82ç\83Z\83b\83V\83\87\83\93\95\9c\8bA\82µ\82Ä /{SESSION}/index \82Ö
-sub action_quicklogin{
+sub action_login_icc{
my $request = shift;
my $ci = new Keitairc::ClientInfo($request);
if($ci->is_docomo()){
my $view = new Keitairc::View($cf, $ci, $s->{id});
return $view->redirect("/$s->{id}/index");
}
+
+ my $view = new Keitairc::View($cf, $ci);
+ return $view->render('login_icc.html', { icc => $docomo_foma_icc });
}
}
# -*-perl-*-
# Keitairc::View
-# $Id: View.pm,v 1.3 2008-01-11 18:34:33 morimoto Exp $
+# $Id: View.pm,v 1.4 2008-01-13 06:23:53 morimoto Exp $
# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/View.pm,v $
#
# Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
$p->{title} = $me->{Config}->web_title();
$p->{version} = $me->{Config}->version();
$p->{viewport} = $me->{ClientInfo}->is_ipod();
+ $p->{is_docomo} = $me->{ClientInfo}->is_docomo();
+ $p->{is_ezweb} = $me->{ClientInfo}->is_ezweb();
+ $p->{is_softbank} = $me->{ClientInfo}->is_softbank();
$p->{timestamp} = timestamp();
my $t = new HTML::Template(
--- /dev/null
+<html>
+ <head>
+ <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
+ <meta http-equiv="Cache-Control" content="max-age=0" />
+ <tmpl_if viewport>
+ <meta name="viewport" content="width=device-width" />
+ <meta name="viewport" content="initial-scale=1.0, user-scalable=yes" />
+ </tmpl_if>
+ <title><!-- tmpl_var title -->: icc\95\\8e¦</title>
+ </head>
+ <body>
+ \82 \82È\82½\82ÌFOMA¶-ÄÞ\82Ìicc\82Í\93o\98^\82³\82ê\82Ä\82¢\82Ü\82¹\82ñ\81B
+ <form action="">
+ icc\94Ô\8d\86\82ðºËß-<br />
+ <input type="text" value="<!-- tmpl_var icc -->" />
+ </form>
+ <hr />
+ <!-- tmpl_var timestamp --><br />
+ keitairc <!-- tmpl_var version -->
+ </body>
+</html>
</form>
<tmpl_if docomo>
- <form method="post" action="quicklogin" utn>
+ <form method="post" action="login_icc" utn>
<input accesskey="2" type="submit" value="[2] FOMA¶-ÄÞ\90»\91¢\94Ô\8d\86\91\97\90M" />
</form>
</tmpl_if>
OSDN Git Service
