use strict;
use warnings FATAL => 'all';
no warnings qw(uninitialized);
+use ND::Include;
$ND::TEMPLATE->param(TITLE => 'Check planets and galaxies');
our $BODY;
our $DBH;
-our $LOG;
$BODY->param(isBC => isMember() && (isOfficer() || isBC));
}else{
$BODY->param(Arbiter => '<b>KILL THESE BASTARDS</b>');
}
- $LOG->execute($ND::UID,"Arbiter check on $x:$y");
+ log_message $ND::UID,"Arbiter check on $x:$y";
}
my $where = '';
}else{
$query->execute($x,$y);
if (isMember() && (isBC() || isOfficer()) && !isHC()){
- $LOG->execute($ND::UID,"BC browsing $x:$y");
+ log_message $ND::UID,"BC browsing $x:$y";
}
}
my @planets;
$planet{Relationship} = $relationship;
$planet{isBC} = 1;
if ($z && $alliance eq 'NewDawn'){
- $LOG->execute($ND::UID,"BC browsing ND planet $coords tick $ND::TICK");
+ log_message $ND::UID,"BC browsing ND planet $coords tick $ND::TICK";
}
}
$i++;