X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=main.pl;h=91c347ec9d6049123481cbd881d0deaa08142dda;hb=1cb9216d9579051c654e339ed88848f5a45ef12c;hp=57dc9ff1f86eb0e1df8fae254affc2090cbe53f7;hpb=cd8e91a7a3e25419fe184483ea68dbc2064fcaa5;p=ndwebbie.git

diff --git a/main.pl b/main.pl
index 57dc9ff..91c347e 100644
--- a/main.pl
+++ b/main.pl
@@ -19,6 +19,7 @@
 
 use strict;
 use warnings FATAL => 'all';
+use ND::Include;
 
 $ND::TEMPLATE->param(TITLE => 'Main Page');
 
@@ -54,7 +55,7 @@ if (defined param('cmd')){
 		for my $param (param()){
 			if ($param =~ /^change:(\d+)$/){
 				if($updatefleets->execute($ND::UID,$1)){
-					$ND::LOG->execute($ND::UID,"Member recalled fleet $1");
+					log_message $ND::UID,"Member recalled fleet $1";
 				}else{
 					$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
 				}
@@ -67,7 +68,7 @@ if (defined param('cmd')){
 		for my $param (param()){
 			if ($param =~ /^change:(\d+)$/){
 				if($updatefleets->execute(param("back:$1"),$ND::UID,$1)){
-					$ND::LOG->execute($ND::UID,"Member set fleet $1 to be back tick: ".param("back:$1"));
+					log_message $ND::UID,"Member set fleet $1 to be back tick: ".param("back:$1");
 				}else{
 					$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
 				}
@@ -80,7 +81,7 @@ if (param('sms')){
 	my $query = $DBH->prepare('UPDATE users SET sms = ? WHERE uid = ?');
 	$query->execute(escapeHTML(param('sms')),$ND::UID);
 }
-if (isMember() && !$ND::PLANET && (param('planet') =~ m/(\d+)(?: |:)(\d+)(?: |:)(\d+)/)){
+if (isMember() && !$ND::PLANET && defined param('planet') && (param('planet') =~ m/(\d+)(?: |:)(\d+)(?: |:)(\d+)/)){
 	my $query = $DBH->prepare(q{
 UPDATE users SET planet = 
 	(SELECT id from current_planet_stats where x = ? AND y = ? AND z = ?)