Web interface for MasterServer-Perl

1 files changed, 50 insertions, 0 deletions

diff --git a/lib/MasterWebInterface/Handler/Tools/Version.pm b/lib/MasterWebInterface/Handler/Tools/Version.pm
new file mode 100755
index 0000000..9ffe41a
--- /dev/null
+++ b/lib/MasterWebInterface/Handler/Tools/Version.pm
@@ -0,0 +1,50 @@
+package MasterWebInterface::Handler::Tools::Version;
+use strict;
+use warnings;
+use TUWF ':html';
+
+TUWF::register(
+  qr{version}, \&version,
+);
+
+sub version {
+  my $self = shift;
+  $self->htmlHeader(title => 'Version information', noindex => 1);
+
+  div class => "mainbox contact";
+    div class => "header";
+      h1 "Version Information";
+      p class => "alttitle", "";
+    end;
+        
+    # version and author information
+    #
+    # You are not allowed to modify these variables without making (significant)
+    # alterations to the source code of this master server program. Only changing
+    # these fields does not count as a significant alteration.
+    #
+    # -- addition to the LICENCE, you are only allowed to modify these lines
+    # if you send Darkelarious a postcard or (e)mail with your compliments.
+    #
+
+    p "This MasterServer Interface has the following version information:";
+    table;
+      Tr; td "build_type";    td "333networks Masterserver Development Interface ";end;
+      Tr; td "build_version"; td "3.0.0";end;
+      Tr; td "build_date";    td "2017-09-25";end;
+      Tr; td "build_author";  td "Darkelarious, darkelarious\@333networks.com";end;
+    end;    
+    
+    p "This MasterServer Interface is compatible since the following MasterServer type(s):";
+    table;
+      Tr; td "build_type";    td "333networks Masterserver-Perl";end;
+      Tr; td "build_version"; td "2.4.1";end;
+      Tr; td "build_date";    td "2017-09-25";end;
+      Tr; td "build_author";  td "Darkelarious, darkelarious\@333networks.com";end;
+    end;    
+    
+  end;
+}
+
+1;
+