swaggboi/www2.0
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement placeholder (will make session cookies easier later)

Browse Source
This commit is contained in:
swaggboi 2021-03-12 20:07:57 -05:00
parent aa842d2cda
commit 33d34fa679
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
public/Pictures/Simple_book.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 739 B

21
www-swagg.pl
View File

@ -8,11 +8,9 @@ use Regexp::Common qw{net};
use Digest::SHA qw{sha1_hex}; use Digest::SHA qw{sha1_hex};
use Number::Format qw{format_number}; use Number::Format qw{format_number};
# guest.cgi script # CGI scripts
plugin CGI => ['/cgi-bin/guest' => './cgi-bin/guest_mm.cgi']; plugin CGI => ['/cgi-bin/guest' => './cgi-bin/guest_mm.cgi'];
plugin CGI => ['/cgi-bin/whoami' => './cgi-bin/whoami.cgi' ];
# whoami.cgi script
plugin CGI => ['/cgi-bin/whoami' => './cgi-bin/whoami.cgi'];
# The main landing page; pass in the output of the fortune command # The main landing page; pass in the output of the fortune command
get '/' => sub { get '/' => sub {
@ -28,13 +26,6 @@ get '/' => sub {
$c->render(); $c->render();
} => 'index'; } => 'index';
# Deprecation of IE page
get '/die';
get '/me';
get '/news';
# Process mac address to ula6 ala the ol' ula6.cgi script: # Process mac address to ula6 ala the ol' ula6.cgi script:
# - Current time of day in 64-bit NTP format # - Current time of day in 64-bit NTP format
# - Obtain EUI64 # - Obtain EUI64
@ -87,5 +78,13 @@ get '/ula6' => sub {
$c->render(ula6 => $ula6); $c->render(ula6 => $ula6);
}; };
# Catch any other route
get '/:route' => sub {
my ($c) = @_;
my $route = $c->stash('route');
$c->render(template => $route);
};
# Send it # Send it
app->start(); app->start();