Converted .whois and .flags, removing the redundant functionality

[NDIRC.git] / Commands / Usermgm.pm

diff --git a/Commands/Usermgm.pm b/Commands/Usermgm.pm
index 4ea75c1b8d089090a4807061dc9de19bf71f4862..be87acb886493a059a1b2c33284f957e6d917b10 100644 (file)
--- a/Commands/Usermgm.pm
+++ b/Commands/Usermgm.pm
@@ -128,4 +128,38 @@ 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");
+       }
+}
+
 1;