Changeset 9895

Timestamp:

04/19/08 19:25:16 (5 years ago)

Author:

tokuhirom

Message:

RefererCutter? なおした。

Location:

lang/perl/Moxy/branches/CC

Files:

• config.yaml (modified) (1 diff)
• lib/Moxy/Plugin/Filter/RefererCutter.pm (modified) (1 diff)
• t/Plugins (added)
• t/Plugins/RefererCutter.t (added)

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

@@ -19 +19 @@
   - module: Filter::HTMLWidth
   - module: Filter::QRCode
+  - module: Filter::RefererCutter
+# - module: Filter::QRCode::Imager
 # - module: Filter::HTTPEnv
 # - module: Filter::GPS
-# - module: Filter::RefererCutter
 # - module: Filter::FlashUseImgTag
 # - module: Filter::DisableTableTag

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

@@ -2 +2 @@
 use strict;
 use warnings;
+use base qw/Moxy::Plugin/;
 
-sub register {
-    my ($class, $context) = @_;
+sub request_filter:Hook('request_filter') {
+    my ($self, $context, $args) = @_;
 
-    $context->register_hook(
-        request_filter => sub {
-            my ($context, $args) = @_;
-
-            $args->{request}->remove_header('Referer');
-        }
-    );
+    $args->{request}->remove_header('Referer');
 }