Changeset 9926 for lang/perl/Moxy/branches

Timestamp:

04/20/08 01:11:02 (5 years ago)

Author:

tokuhirom

Message:

FlashUseImgTag? のサポートをついかした。

Location:

lang/perl/Moxy/branches/CC

Files:

• config.yaml (modified) (1 diff)
• lib/Moxy/Plugin/Filter/FlashUseImgTag.pm (modified) (1 diff)

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

@@ -23 +23 @@
   - module: Filter::CookieCutter
   - module: Filter::HTTPHeader
-# - module: Filter::FlashUseImgTag
+  - module: Filter::FlashUseImgTag
 # - module: Filter::QRCode::Imager
 # - module: Filter::GPS

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

@@ -6 +6 @@
 use HTML::Parser;
 
-sub register {
-    my ($class, $context) = @_;
+sub e: Hook('response_filter_E') {
+    my ( $self, $context, $args ) = @_;
 
-    $context->register_hook(
-        response_filter_E => sub {
-            my ( $context, $args ) = @_;
+    # only for html.
+    return unless (($args->{response}->header('Content-Type')||'') =~ /html/);
 
-            # only for html.
-            return unless (($args->{response}->header('Content-Type')||'') =~ /html/);
+    my $output = '';
+    my $parser = HTML::Parser->new(
+        api_version   => 3,
+        start_h       => [ sub {
+            my ($tagname, $attr, $orig) = @_;
 
-            my $output = '';
-            my $parser = HTML::Parser->new(
-                api_version   => 3,
-                start_h       => [ sub {
-                    my ($tagname, $attr, $orig) = @_;
+            if ($tagname =~ /^img$/i && $attr->{src} =~ /\.swf$/) {
+                $output .= qq|
+                    <object data="@{[$attr->{src}]}" width="@{[$attr->{width}]}" height="@{[$attr->{height}]}" 
+                            type="application/x-shockwave-flash">
+                        <param name="bgcolor" value="#ffffff" />
+                        <param name="loop" value="off" />
+                        <param name="quality" value="high" />
+                        <param name="salign" value="t" />
+                    </object>
+                |;
+            } else {
+                $output .= $orig;
+                return;
+            }
 
-                    if ($tagname =~ /^img$/i && $attr->{src} =~ /\.swf$/) {
-                        $output .= qq|
-                            <object data="@{[$attr->{src}]}" width="@{[$attr->{width}]}" height="@{[$attr->{height}]}" 
-                                    type="application/x-shockwave-flash">
-                                <param name="bgcolor" value="#ffffff" />
-                                <param name="loop" value="off" />
-                                <param name="quality" value="high" />
-                                <param name="salign" value="t" />
-                            </object>
-                        |;
-                    } else {
-                        $output .= $orig;
-                        return;
-                    }
+        }, "tagname, attr, text" ],
+        end_h  => [ sub { $output .= shift }, "text"],
+        text_h => [ sub { $output .= shift }, "text"],
+    );
 
-                }, "tagname, attr, text" ],
-                end_h  => [ sub { $output .= shift }, "text"],
-                text_h => [ sub { $output .= shift }, "text"],
-            );
+    $parser->boolean_attribute_value('__BOOLEAN__');
+    $parser->parse( $args->{response}->content );
 
-            $parser->boolean_attribute_value('__BOOLEAN__');
-            $parser->parse(${ $args->{content_ref} });
-
-            ${ $args->{content_ref} } = $output;
-        }
-    );
+    $args->{response}->content( $output );
 }