our @EXPORT = qw/currentCalls showraids checkPoints findSMS/;
sub currentCalls {
- my ($verbose) = @_;
- DB();
+ my ($msg, $command) = @_;
if (1){ #TODO: add check for member
my $f = $ND::DBH->prepare(<<SQL
SELECT (c.landing_tick - tick()) AS eta, concat(i.shiptype||'/') AS shiptype, dc.username,p.x
$calls .= " (Anti $row[1] ETA: $row[0] Cluster: $row[3] DC: $dc) |"
}
chop($calls);
- if (defined $verbose || length $calls > 0){
+ if (defined $command || length $calls > 0){
$ND::server->command("msg $ND::target Current calls: $calls");
}
}
}
sub checkPoints {
- my ($nick) = @_;
- DB();
+ my ($nick,$command) = @_;
my $f;
if ($nick){
if (officer() || dc() || bc()){