diff --git a/lib/PerlDancer.pm b/lib/PerlDancer.pm index f20c777..5cf1733 100644 --- a/lib/PerlDancer.pm +++ b/lib/PerlDancer.pm @@ -15,19 +15,30 @@ get '/' => sub { }; }; -get '/donate/thanks' => sub { +get '/donate/thanks.html' => sub { template 'thanks'; }; -get '/testimonials' => sub { +get '/testimonials.html' => sub { template 'testimonials-display', { testimonials => [ _get_testimonials() ] }; }; -get '/dancefloor' => sub { +get '/dancefloor.html' => sub { my $sites = _get_dancefloor_sites(); template 'dancefloor-display', { sites => _get_dancefloor_sites() }; }; +get qr{^/(irc|quickstart|documentation|about|contribute|cheatsheet|donate).html$} => sub { + my ($page) = splat; + forward "/$page"; # autopage +}; + +get '/slides/' => sub { + my $res = Dancer::Renderer::_autopage_response( Dancer::FileUtils::path( 'slides' ) ); + $res->header( 'Content-Type' => 'text/html' ); + $res; +}; + # Add last tweet to template params hook before_template_render => sub { shift->{last_tweet} = latest_tweet(); diff --git a/public/404.html b/public/404.html index d70c678..fc74a64 100644 --- a/public/404.html +++ b/public/404.html @@ -43,22 +43,22 @@

The easiest way to write web applications in Perl

diff --git a/public/500.html b/public/500.html index 8842f6a..92183b2 100644 --- a/public/500.html +++ b/public/500.html @@ -43,22 +43,22 @@

The easiest way to write web applications in Perl

diff --git a/views/about.tt b/views/about.tt index 07736b6..7f25d8d 100644 --- a/views/about.tt +++ b/views/about.tt @@ -37,14 +37,14 @@ Search the mailing list:

It's also possible to use GitHub to submit a patch, see the contribute page for more details about collaborating in +href="/contribute.html">contribute page for more details about collaborating in Dancer development.

You can also reach the development team on irc.perl.org, chan #dancer. If you don't have an IRC client available, you can -connect using Mibbit web IRC. +connect using Mibbit web IRC.