From 143a3f3efbbf8f7a99d974f6581d26ee20aa9ec5 Mon Sep 17 00:00:00 2001
From: Daniel Bowling <daniel@graymember.local>
Date: Fri, 22 Jan 2021 20:03:15 -0500
Subject: [PATCH] Implement redirect to www

---
 wethepeople.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/wethepeople.pl b/wethepeople.pl
index a4fd890..1de9328 100755
--- a/wethepeople.pl
+++ b/wethepeople.pl
@@ -3,9 +3,15 @@
 use Mojolicious::Lite;
 
 get '/' => sub {
-    my ($c) = @_;
+    my ($c)        = @_;
+    my $hostHeader = $c->req->headers->host();
 
-    $c->render();
+    if ($hostHeader =~ /www.wethepeople.win(|:[0-9]{1,5})/) {
+        $c->render()
+    }
+    else {
+        $c->redirect_to('http://www.wethepeople.win')
+    }
 } => 'index';
 
 app->start();