From 7c7b5c9c679147e5dbf172a312ed7ef992a9e63c Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Fri, 7 Sep 2007 12:48:41 +0200
Subject: [PATCH] Updated whois

---
 Usermgm.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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);
-- 
2.39.2