Changeset 6292 for lang/perl/HTTP-MobileAgent-Plugin-Charset

Timestamp:

02/06/08 18:52:59 (5 years ago)

Author:

chiba

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Charset
auはSSL（というかAccept-Charsetに*が含まれない場合）ではutf-8をサポートしないが
そうでない場合はutf-8をサポートしているのでAccept-Charsetで判別して
sjisかutf-8を決めるようにしました

Location:

lang/perl/HTTP-MobileAgent-Plugin-Charset/branches/au_ssl

Files:

• lib/HTTP/MobileAgent/Plugin/Charset.pm (modified) (1 diff)
• t/01_can_display_utf8.t (modified) (3 diffs)

lang/perl/HTTP-MobileAgent-Plugin-Charset/branches/au_ssl/lib/HTTP/MobileAgent/Plugin/Charset.pm

@@ -17 +17 @@
         return 'x-sjis-airh';
     } elsif ($self->is_ezweb) {
-        # ezweb canot display utf8 in https.
-        return 'x-sjis-ezweb-auto';
+        if ($self->xhtml_compliant && $self->get_header('Accept-Charset') =~ /\*/) {
+            return 'x-utf8-ezweb';
+        } else {
+            # ezweb canot display utf8 in https.
+            return 'x-sjis-ezweb-auto';
+        }
     } elsif ($self->is_vodafone) {
         if ($self->is_type_3gc) {

lang/perl/HTTP-MobileAgent-Plugin-Charset/branches/au_ssl/t/01_can_display_utf8.t

@@ -4 +4 @@
 use HTTP::MobileAgent;
 use HTTP::MobileAgent::Plugin::Charset;
-
 plan tests => 1*blocks;
 
 filters {
-    input => [qw/filt/],
+    input => [qw/trim lines chomp filt/],
     expected => [qw/yaml/],
 };
@@ -15 +14 @@
 
 sub filt {
-    my $ua = shift;
+    my ($ua, $accept_charset) = @_;
 
-    local $ENV{HTTP_USER_AGENT} = $ua;
+    local $ENV{HTTP_USER_AGENT}     = $ua;
+    local $ENV{HTTP_ACCEPT_CHARSET} = $accept_charset if $accept_charset;
 
     my $agent = HTTP::MobileAgent->new;
@@ -70 +70 @@
 encoding: x-sjis-ezweb-auto
 
-=== ez utf8
---- input: KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
+=== ez utf8 non-SSL
+--- input
+KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
+shift_jis,*
+--- expected
+can_display_utf8: utf8
+encoding: x-utf8-ezweb
+
+=== ez utf8 SSL
+--- input
+KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1
+shift_jis
 --- expected
 can_display_utf8: no utf8