George S. Baugh пре 5 година
родитељ
комит
fa78ce9a36
1 измењених фајлова са 8 додато и 0 уклоњено
  1. 8 0
      routes.pm

+ 8 - 0
routes.pm

@@ -55,6 +55,14 @@ our %routes = (
         method   => 'GET',
         callback => sub {Trog::Routes::HTML::redirect_permanent('/themes/houston.pm/styles/houston.css') },
     },
+    '/talks/(.*)' => {
+        method   => 'GET',
+        callback => sub {
+            my ($query) = @_;
+            Trog::Routes::HTML::redirect_permanent("/assets/talks/$query->{fragment}")
+        },
+        captures => ['fragment'],
+    },
 );
 
 my $processor = Text::Xslate->new(