X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FUsermgm.pm;h=8a87f8e1fae85147459336c9e4bcf654420c6f29;hb=5f7e87f30570220f44035831a51c881ee3ca34b7;hp=be87acb886493a059a1b2c33284f957e6d917b10;hpb=b7392dc113b14a269fe73871c57795e18fe7e271;p=NDIRC.git

diff --git a/Commands/Usermgm.pm b/Commands/Usermgm.pm
index be87acb..8a87f8e 100644
--- a/Commands/Usermgm.pm
+++ b/Commands/Usermgm.pm
@@ -162,4 +162,22 @@ GROUP BY username,pnick,hostmask LIMIT 5
 	}
 }
 
+sub flag
+	: Help(syntax: .flag flag | Lists all users with the given flag.)
+	: ACL(irc_flag)
+{
+	my ($self,$c,$msg) = @_;
+	my ($flag) = $msg =~ /^(\w)$/ or die 'ARGS';
+
+	my $f = $c->model->prepare(q{
+SELECT TRIM(', ' FROM concat(username||', ')),count(username)
+FROM (SELECT uid, username FROM users ORDER BY username) u
+	JOIN groupmembers gm USING (uid)
+	JOIN groups g USING (gid)
+WHERE flag = $1
+		});
+	my ($users,$count) = $c->model->selectrow_array($f,undef,$flag);
+	$c->reply("<b>$count</b> Users with flag <b>$flag</b>: $users");
+}
+
 1;