Implement placeholder (will make session cookies easier later)
This commit is contained in:
parent
aa842d2cda
commit
33d34fa679
BIN
public/Pictures/Simple_book.gif
Normal file
BIN
public/Pictures/Simple_book.gif
Normal file
Binary file not shown.
After Width: | Height: | Size: 739 B |
23
www-swagg.pl
23
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();
|
||||
|
|
Loading…
Reference in a new issue