X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FMotd.pm;fp=ND%2FWeb%2FPages%2FMotd.pm;h=0000000000000000000000000000000000000000;hb=d6c9085e748c4d61901aaea72f0e1546dcc7cdda;hp=2914191611461933035ead519d32a81f286eb7b3;hpb=ac65e241f748773959b94d66691ee93019fcae84;p=ndwebbie.git diff --git a/ND/Web/Pages/Motd.pm b/ND/Web/Pages/Motd.pm deleted file mode 100644 index 2914191..0000000 --- a/ND/Web/Pages/Motd.pm +++ /dev/null @@ -1,54 +0,0 @@ -#************************************************************************** -# Copyright (C) 2006 by Michael Andreen * -# * -# This program is free software; you can redistribute it and/or modify * -# it under the terms of the GNU General Public License as published by * -# the Free Software Foundation; either version 2 of the License, or * -# (at your option) any later version. * -# * -# This program is distributed in the hope that it will be useful, * -# but WITHOUT ANY WARRANTY; without even the implied warranty of * -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * -# GNU General Public License for more details. * -# * -# You should have received a copy of the GNU General Public License * -# along with this program; if not, write to the * -# Free Software Foundation, Inc., * -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * -#**************************************************************************/ - -package ND::Web::Pages::Motd; -use strict; -use warnings FATAL => 'all'; -use ND::Include; -use CGI qw/:standard/; -use ND::Web::Include; - -use base qw/ND::Web::XMLPage/; - -$ND::Web::Page::PAGES{motd} = __PACKAGE__; - -sub render_body { - my $self = shift; - my ($BODY) = @_; - $self->{TITLE} = 'Edit MOTD'; - my $DBH = $self->{DBH}; - - return $self->noAccess unless $self->isHC; - - if (defined param 'cmd' and param('cmd') eq 'change'){ - $DBH->begin_work; - my $query = $DBH->prepare(q{UPDATE misc SET value= ? WHERE id='MOTD'}); - my $motd = escapeHTML(param('motd')); - $query->execute($motd); - log_message $ND::UID,"Updated MOTD"; - $DBH->commit; - $BODY->param(MOTD => $motd); - }else{ - my ($motd) = $DBH->selectrow_array(q{SELECT value FROM misc WHERE id='MOTD'}); - $BODY->param(MOTD => $motd); - } - return $BODY; -} - -1;