X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Usermgm.pm;h=3c58aebd8dabec6a888c3e161cae34154ec6efbb;hb=7c7b5c9c679147e5dbf172a312ed7ef992a9e63c;hp=6c757934ce067ed8987ecbfc0658d64e1d006768;hpb=5e7d38f14adbc82daf0c2ccf6fa0db712ea16c9a;p=NDIRC.git diff --git a/Usermgm.pm b/Usermgm.pm index 6c75793..3c58aeb 100644 --- a/Usermgm.pm +++ b/Usermgm.pm @@ -58,8 +58,15 @@ sub addUser { } } sub whois { - my ($nick) = @_; - DB(); + my ($msg, $command) = @_; + + my ($nick); + if(defined $msg && $msg =~ /^(\S+)$/){ + $nick = $1; + }else{ + $ND::server->command("notice $ND::nick syntax: .$command nick | % can be used for wildcards \%arro% will match barrow"); + return; + } if (officer()){ my $f = $ND::DBH->prepare("SELECT username, hostmask, concat(flag) FROM users u LEFT OUTER JOIN (SELECT uid,flag FROM groupmembers NATURAL JOIN groups ORDER BY uid,flag ) g ON g.uid = u.uid WHERE username ILIKE ? GROUP BY username,hostmask"); $f->execute($nick);