Changeset 9921 for lang/perl/Moxy/branches

Timestamp:

04/20/08 00:19:26 (5 years ago)

Author:

tokuhirom

Message:

HTTP::MobileAttribute? つかって、ヘッダ情報から画面幅を計算する方向で。

Location:

lang/perl/Moxy/branches/CC

Files:

• assets/common/docomo-display-map.yaml (added)
• config.yaml (modified) (1 diff)
• lib/Moxy/MobileAttribute/UAInfo.pm (deleted)
• lib/Moxy/Plugin/Filter/HTMLWidth.pm (modified) (1 diff)
• lib/Moxy/Plugin/Server.pm (modified) (1 diff)

lang/perl/Moxy/branches/CC/config.yaml

@@ -17 +17 @@
   - module: Filter::UserAgentSwitcher
   - module: Filter::Pictogram
+  # XXX これからやらんと
   - module: Filter::HTMLWidth
   - module: Filter::QRCode

lang/perl/Moxy/branches/CC/lib/Moxy/Plugin/Filter/HTMLWidth.pm

@@ -8 +8 @@
     my ($class, $context, $args) = @_;
 
-    if ( $args->{mobile_attribute} && $args->{mobile_attribute}->display_width ) {
+    if ( $args->{mobile_attribute} && (my $display = $args->{mobile_attribute}->display) ) {
         my $header = sprintf(
             q{<div style="border: 1px black solid; 
                                             margin-right:auto; 
                                             margin-left:auto; 
-                                            width: %dpx">}, $args->{mobile_attribute}->display_width
+                                            width: %dpx">}, $display->width
         );
+
         my $content = $args->{response}->content;
         $content =~ s!(<body[^>]*>)!$1$header!i;

lang/perl/Moxy/branches/CC/lib/Moxy/Plugin/Server.pm

@@ -14 +14 @@
 use Params::Validate ':all';
 use URI::Heuristic qw(uf_uristr);
+use File::Spec::Functions;
 use HTTP::MobileAttribute plugins => [
-    qw/CarrierLetter IS +Moxy::MobileAttribute::UAInfo/
+    qw/CarrierLetter IS/,
+    {
+        module => 'Display',
+        config => {
+            DoCoMoMap => YAML::LoadFile(
+                catfile( 'assets', 'common', 'docomo-display-map.yaml' )
+            )
+        }
+    },
 ];
 our @EXPORT = qw/rewrite handle_request render_control_panel/;