DELETE FROM groupmembers WHERE uid = $1 AND gid = ANY($2)
});
@@ -164,19+164,21 @@ GROUP BY username,pnick,hostmask LIMIT 5
}
sub flag
- : Help(syntax: .flag flag | Lists all users with the given flag.)
+ : Help(syntax: .flag flag [-noflags] | Lists all users with the given flag. Can specify a second argument to remove members that has any of those flags. .flag M -C lists all members that doesn't have community flag)
: ACL(irc_flag)
{
my ($self,$c,$msg) = @_;
- my ($flag) = $msg =~ /^(\w)$/ or die 'ARGS';
+ my ($flag,$noflag) = $msg =~ /^(\w)(?: -(\w+))?$/ or die 'ARGS';