forum class

diff --git a/ND/Web/Pages/Forum.pm b/ND/Web/Pages/Forum.pm
index d31f4d3c04cd7a080ecc3530490652913518ccf4..76a7e62438611ff9990735d4d304f79e0eaaf8f5 100644 (file)
--- a/ND/Web/Pages/Forum.pm
+++ b/ND/Web/Pages/Forum.pm
@@ -25,23 +25,22 @@ use CGI qw/:standard/;
 use ND::Web::Include;
 use ND::Include;
 
-$ND::PAGES{forum} = {parse => \&parse, process => \&process, render=> \&render};
+use base qw/ND::Web::XMLPage/;
+
+$ND::Web::Page::PAGES{forum} = __PACKAGE__;
 
 sub parse {
-       my ($uri) = @_;
-       if ($uri =~ m{^/.*/allUnread}){
+       my $self = shift;
+       if ($self->{URI} =~ m{^/.*/allUnread}){
                param('allUnread',1);
        }
 }
 
-sub process {
-
-}
-
-sub render {
-       my ($DBH,$BODY) = @_;
-
-       $ND::TEMPLATE->param(TITLE => 'Forum');
+sub render_body {
+       my $self = shift;
+       my ($BODY) = @_;
+       $self->{TITLE} = 'Forum';
+       my $DBH = $self->{DBH};
 
        $DBH->do(q{UPDATE users SET last_forum_visit = NOW() WHERE uid = $1},undef,$ND::UID) or $ND::ERROR .= p($DBH->errstr);
 

diff --git a/startup.pl b/startup.pl
index cef986016ea42777f5de6baf376ab82ba85d7e87..77a315204d38bf85b0269d42298ef129e3a9964a 100644 (file)
--- a/startup.pl
+++ b/startup.pl
@@ -45,7 +45,7 @@ use ND::Web::Pages::MemberIntel;
 use ND::Web::Pages::Resources;
 use ND::Web::Pages::PlanetNaps;
 use ND::Web::Pages::Motd;
-#use ND::Web::Pages::Forum;
+use ND::Web::Pages::Forum;
 use ND::Web::Pages::Settings;
 use ND::Web::Pages::Graph;