diff --git a/public/Pictures/Simple_book.gif b/public/Pictures/Simple_book.gif new file mode 100644 index 0000000..51a2855 Binary files /dev/null and b/public/Pictures/Simple_book.gif differ diff --git a/www-swagg.pl b/www-swagg.pl index b86eb45..b758b1b 100755 --- a/www-swagg.pl +++ b/www-swagg.pl @@ -8,11 +8,9 @@ use Regexp::Common qw{net}; use Digest::SHA qw{sha1_hex}; use Number::Format qw{format_number}; -# guest.cgi script -plugin CGI => ['/cgi-bin/guest' => './cgi-bin/guest_mm.cgi']; - -# whoami.cgi script -plugin CGI => ['/cgi-bin/whoami' => './cgi-bin/whoami.cgi']; +# CGI scripts +plugin CGI => ['/cgi-bin/guest' => './cgi-bin/guest_mm.cgi']; +plugin CGI => ['/cgi-bin/whoami' => './cgi-bin/whoami.cgi' ]; # The main landing page; pass in the output of the fortune command get '/' => sub { @@ -28,13 +26,6 @@ get '/' => sub { $c->render(); } => 'index'; -# Deprecation of IE page -get '/die'; - -get '/me'; - -get '/news'; - # Process mac address to ula6 ala the ol' ula6.cgi script: # - Current time of day in 64-bit NTP format # - Obtain EUI64 @@ -87,5 +78,13 @@ get '/ula6' => sub { $c->render(ula6 => $ula6); }; +# Catch any other route +get '/:route' => sub { + my ($c) = @_; + my $route = $c->stash('route'); + + $c->render(template => $route); +}; + # Send it app->start();