X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FUsermgm.pm;fp=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("$count Users with flag $flag: $users");
+}
+
1;