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

Clean up excess redirects

Browse Source
This commit is contained in:
Daniel Bowling 2021-01-23 19:23:22 -05:00
parent a588be82b4
commit aef71fdbae
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
wethepeople.pl
View File

@ -5,12 +5,13 @@ use Mojolicious::Lite;
get '/' => sub { get '/' => sub {
my ($c) = @_; my ($c) = @_;
my $hostHeader = $c->req->headers->host(); my $hostHeader = $c->req->headers->host();
my $scheme = $c->req->url->base->scheme();
if ($hostHeader =~ /www.wethepeople.win(|:[0-9]{1,5})/) { if ($hostHeader =~ /www.wethepeople.win(|:[0-9]{1,5})/) {
$c->render() $c->render()
} }
else { else {
$c->redirect_to('http://www.wethepeople.win') $c->redirect_to("$scheme://www.wethepeople.win")
} }
} => 'index'; } => 'index';