X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=alliances.pl;fp=alliances.pl;h=b78d5ffb6f91b6e6732bfcf152557e138b7e384a;hb=3fbdd3816ab065ed3ac2b5f77e7617b2c09ea00c;hp=8b5830836b8db4d63d9ef2aa5c2943879acda37a;hpb=409b542556545c6ebfc579ce114338242c966ceb;p=ndwebbie.git

diff --git a/alliances.pl b/alliances.pl
index 8b58308..b78d5ff 100644
--- a/alliances.pl
+++ b/alliances.pl
@@ -19,9 +19,9 @@
 
 use strict;
 use warnings FATAL => 'all';
+use ND::Include;
 our $BODY;
 our $DBH;
-our $LOG;
 my $error;
 
 $ND::TEMPLATE->param(TITLE => 'Alliances');
@@ -40,7 +40,7 @@ if ($alliance && defined param('cmd') && param ('cmd') eq 'change'){
 		if ($DBH->do(q{UPDATE alliances SET relationship = ? WHERE id =?}
 				,undef,$value,$alliance->{id})){
 			$alliance->{relationship} = $value;
-			$LOG->execute($ND::UID,"HC set alliance: $alliance->{id} relationship: $value");
+			log_message $ND::UID,"HC set alliance: $alliance->{id} relationship: $value";
 		}else{
 			$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
 		}
@@ -55,7 +55,7 @@ WHERE id = (SELECT id FROM current_planet_stats WHERE x = ? AND y = ? AND z = ?)
 			my $nick = '';
 			$nick = '(nick $4)' if defined $4;
 			$error .= "<p> Added planet $1:$2:$3 $nick to this alliance</p>";
-			$LOG->execute($ND::UID,"HC Added planet $1:$2:$3 $nick to alliance: $alliance->{id}");
+			log_message $ND::UID,"HC Added planet $1:$2:$3 $nick to alliance: $alliance->{id}";
 		}else{
 			$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
 		}