From 2ce45087948614d137896db4b87377479010b449 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Sun, 9 Sep 2007 17:57:15 +0200 Subject: [PATCH] Updated checkPoints and currentCalls --- Members.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Members.pm b/Members.pm index e60ecde..ba62c1d 100644 --- a/Members.pm +++ b/Members.pm @@ -28,8 +28,7 @@ our @ISA = qw/Exporter/; 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(< 0){ + if (defined $command || length $calls > 0){ $ND::server->command("msg $ND::target Current calls: $calls"); } } @@ -78,8 +77,7 @@ SQL } sub checkPoints { - my ($nick) = @_; - DB(); + my ($nick,$command) = @_; my $f; if ($nick){ if (officer() || dc() || bc()){ -- 2.39.2