first version of masterinterface

1 files changed, 72 insertions, 0 deletions

diff --git a/lib/MasterWebInterface/Handler/ErrorPages.pm b/lib/MasterWebInterface/Handler/ErrorPages.pm
new file mode 100755
index 0000000..dc386fc
--- /dev/null
+++ b/lib/MasterWebInterface/Handler/ErrorPages.pm
@@ -0,0 +1,72 @@
+package MasterWebInterface::Handler::ErrorPages;
+use strict;
+use TUWF ':html';
+
+# handle 404 and 500
+TUWF::set(
+    error_404_handler => \&handle404,
+    error_500_handler => \&handle500,
+);
+
+TUWF::register(
+    qr{500} => sub {die "Process died on purpose, but with a lot of text to test if the whole error is correctly displayed on the screen when debug information is enabled in the website configuration, "},
+);
+
+sub handle404 
+{
+    my $self = shift;
+    
+    $self->resStatus(404);
+    $self->htmlHeader(title => '404 - Not Found');
+    $self->htmlSearchBox(title => "Servers", action => "/s", sel => 's', fq => '');
+    
+    div class => "mainbox warning";
+        div class => "header";
+            h1 'Page not found';
+            p "Error 404: the page could not be found.";
+        end;
+        
+        div class => "description";
+            p;
+                txt 'It seems the page you were looking for does not exist,';
+                br;
+                txt 'perhaps our search function may yield results?';
+            end;
+        end;
+    end;
+    $self->htmlFooter;
+}
+
+sub handle500 
+{
+    my($self, $error) = @_;
+    
+    $self->resStatus(500);
+    $self->htmlHeader(title => '500 - Internal Server Error');
+    $self->htmlSearchBox(title => "Servers", action => "/s", sel => 's', fq => '');
+    
+    div class => "mainbox warning";
+        div class => "header";
+            h1 'Internal Server Error';
+            p "Error 500: loading this page caused an internal error.";
+        end;
+        
+        div class => "description";
+            p;
+                txt 'Something went wrong on our side. The problem was logged ';
+                br;
+                txt 'and will be fixed shortly. Please try again later.';
+            end;
+        end;
+        
+        if ($self->debug) 
+        {
+            div class => "code warning";
+                txt $error;
+            end;
+        }
+    end;
+    $self->htmlFooter;
+}
+
+1;