Updated whois

diff --git a/Usermgm.pm b/Usermgm.pm
index 6c757934ce067ed8987ecbfc0658d64e1d006768..3c58aebd8dabec6a888c3e161cae34154ec6efbb 100644 (file)
--- 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);