Converted the .flags command

[NDIRC.git] / Usermgm.pm

diff --git a/Usermgm.pm b/Usermgm.pm
index 493c05c445bfb4a82b9ae244d3204c7173bc8764..e751c566f9148363a994ac816f3f9c751209a925 100644 (file)
--- a/Usermgm.pm
+++ b/Usermgm.pm
@@ -25,33 +25,7 @@ require Exporter;
 
 our @ISA = qw/Exporter/;
 
-our @EXPORT = qw/flag laston addPoints setHost setPNick getShips getFleet/;
-
-sub flag {
-       my ($msg, $command) = @_;
-
-       my ($flag);
-       if(defined $msg && $msg =~ /^(\w)$/){
-               $flag = $1;
-       }else{
-               $ND::server->command("notice $ND::nick syntax: .$command flag");
-               return;
-       }
-
-       if (officer() || ia() || ($ND::target eq $ND::scanchan && $flag eq 'S')){
-               my $f = $ND::DBH->prepare(qq{
-SELECT TRIM(', ' FROM concat(username||', ')),count(username) FROM
-       (SELECT uid, username FROM users ORDER BY username) u NATURAL JOIN groupmembers gm 
-       JOIN groups g ON g.gid = gm.gid
-WHERE flag = ?;
-                       });
-               if (my ($users,$count) = $ND::DBH->selectrow_array($f,undef,$flag)){
-                       $ND::server->command("msg $ND::target $ND::B$count$ND::B Users with flag $ND::B$flag$ND::B: $users");
-               }
-       }else{
-               $ND::server->command("msg $ND::target Only officers are allowed to check that");
-       }
-}
+our @EXPORT = qw/laston addPoints setHost setPNick getShips getFleet/;
 
 sub laston {
        my ($msg, $command) = @_;