+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");
+}
+