X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=motd.pl;h=b324cc013c3592ed966f8cd4b29fee61930c099c;hb=03830799201db0b0f28e9c494fdd1b5b5143749c;hp=f69a54a4f1da894581db34285a839f6717d2d7c8;hpb=6fec5ae1e0a9f7c4bb1964563392f06c8f2a7bb4;p=ndwebbie.git diff --git a/motd.pl b/motd.pl index f69a54a..b324cc0 100644 --- a/motd.pl +++ b/motd.pl @@ -18,21 +18,22 @@ #**************************************************************************/ use strict; +use warnings FATAL => 'all'; +use ND::Include; $ND::TEMPLATE->param(TITLE => 'Edit MOTD'); our $BODY; our $DBH; -our $LOG; die "You don't have access" unless isHC(); -if (param('cmd') eq 'change'){ +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->execute($ND::UID,"Updated MOTD"); + log_message $ND::UID,"Updated MOTD"; $DBH->commit; $BODY->param(MOTD => $motd); }else{