add Plugin::Canonical

diff --git a/src/newslash_web/lib/Newslash/Plugin/Canonical.pm b/src/newslash_web/lib/Newslash/Plugin/Canonical.pm
new file mode 100644 (file)
index 0000000..2738c9d
--- /dev/null
+++ b/src/newslash_web/lib/Newslash/Plugin/Canonical.pm
@@ -0,0 +1,24 @@
+package Newslash::Plugin::Canonical;
+use Mojo::Base 'Mojolicious::Plugin';
+use Mojo::URL;
+
+use POSIX qw(strftime locale_h);
+
+sub register {
+    my ($self, $app, $conf) = @_;
+
+    $app->hook(before_render => sub {
+                   my ($c, $args) = @_;
+                   return if $c->stash('canonical');
+                   my $url = Mojo::URL->new($c->url_for);
+                   $url->host('srad.jp');
+                   $url->port('');
+                   $url->scheme('https');
+                   $c->stash(canonical => $url->to_string);
+               });
+    #$app->helper(canonical => sub { state $canonical = $self; });
+}
+
+
+
+1;

diff --git a/src/newslash_web/lib/Newslash/Web.pm b/src/newslash_web/lib/Newslash/Web.pm
index e861b80..a7d0f06 100644 (file)
--- a/src/newslash_web/lib/Newslash/Web.pm
+++ b/src/newslash_web/lib/Newslash/Web.pm
@@ -97,6 +97,9 @@ sub startup {
         $app->plugin('Newslash::Plugin::ReCaptcha');
     }
 
+    # set canocal (for test.srad.jp)
+    $app->plugin('Newslash::Plugin::Canonical');
+
     # Event Que
     $app->plugin('Newslash::Plugin::EventQue');