add About page

RSSTootalizer/Website/About.pm

@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use strict;
+use HTML::Template;
+use RSSTootalizer::Website;
+
+package RSSTootalizer::Website::About;
+@RSSTootalizer::Website::About::ISA = qw(RSSTootalizer::Website);
+use Data::Dumper;
+
+sub requires_authentication {
+	return 0;
+}
+
+sub fill_content {
+	return 1;
+}
+
+sub prerender {
+	my $self = shift;
+	$self->{"template"} = "About";
+	$self->{"content_type"} = "html";
+	$self->{"params"}->{"currentmode"} = "About";
+}
+
+1;

index.pl

@@ -120,7 +120,7 @@ my $object;
 # TODO: This is a very bad solution but not as bad as an uncontrolled eval...
 # The @main::modules array holds a list of all permissible values of the $main::FORM{"mode"} variable.
 # If the value is not in this array, the request is not processed and an error is displayed.
-my @modules = ("Login", "Logout", "OAuthLogin", "Dashboard", "Callback", "EditFeed");
+my @modules = ("Login", "Logout", "OAuthLogin", "Dashboard", "Callback", "EditFeed", "About");
 
 if (! grep {$_ eq $FORM{mode}} @modules) {
 	Error("Validation Error", "$FORM{mode} is not a valid module");

static/templates/About.html

@@ -0,0 +1,6 @@
+<TMPL_INCLUDE NAME='_header.html'>
+<script type="text/javascript">
+var l = "https://github.com/blind-coder/rsstootalizer/blob/master/README.md";
+document.location.href=l;
+</script>
+<TMPL_INCLUDE NAME='_footer.html'>