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

diff --git a/Commands/Usermgm.pm b/Commands/Usermgm.pm
index 4ea75c1..8a87f8e 100644
--- a/Commands/Usermgm.pm
+++ b/Commands/Usermgm.pm
@@ -128,4 +128,56 @@ WHERE uid = ?
 	$f->finish;
 }
 
+sub whois
+	: Help(syntax: .whois [username] | % can be used for wildcards \%arro% will match barrow. If no username is given then all flags will be listed)
+	: Alias(flags)
+	: ACL(irc_whois)
+{
+	my ($self,$c,$msg) = @_;
+	my ($nick) = $msg =~ /^(\S+)?$/ or die 'ARGS';
+	my $dbh = $c->model;
+
+	unless ($nick){
+		my ($flags) = $dbh->selectrow_array(q{
+SELECT TRIM(', ' FROM concat(flag||':'||groupname||', ')) FROM groups
+		});
+		$c->reply("Current flags: $flags");
+		return;
+	}
+
+	my $f = $dbh->prepare(q{
+SELECT username, pnick, hostmask, concat(flag) AS flags
+FROM users u
+	LEFT OUTER JOIN (SELECT uid,flag FROM groupmembers
+		NATURAL JOIN groups ORDER BY uid,flag ) g USING (uid)
+WHERE username ILIKE ?
+GROUP BY username,pnick,hostmask LIMIT 5
+		});
+	$f->execute($nick);
+	while (my $user = $f->fetchrow_hashref){
+		$c->reply("<b>$user->{username} (/$user->{pnick})</b> flags: ($user->{flags}) host: $user->{hostmask}");
+	}
+	if ($f->rows == 0){
+		$c->reply("No hit, maybe spelling mistake, or add % as wildcard");
+	}
+}
+
+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;