Trivial Mojolicious::Lite app to serve static content from html dir; currently uses redirects instead of content negotiation

Author: Geoffrey Broadwell

app.pl

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use Mojolicious::Lite;
+
+my $app = $ENV{MOJO_APP};
+$app->{static}->root('html');
+
+get '(*dir)/:file' => sub {
+    my $self = shift;
+    my $dir  = $self->param('dir');
+    my $file = $self->param('file');
+    return $self->redirect_to("/$dir/$file.html");
+};
+
+get '(*dir)/' => sub {
+    my $self = shift;
+    my $dir  = $self->param('dir');
+    return $self->redirect_to("/$dir/index.html");
+};
+
+get '/' => sub {
+    my $self = shift;
+    return $self->redirect_to('/index.html');
+};
+
+$app->start;