From: Michael Andreen Date: Fri, 7 Sep 2007 10:12:21 +0000 (+0200) Subject: updated addUser X-Git-Url: https://ruin.nu/git/?a=commitdiff_plain;h=f442c3c5bb7d67583c875ffbb5aeecc137d6928c;p=NDIRC.git updated addUser --- diff --git a/Usermgm.pm b/Usermgm.pm index 16ef538..e24ee55 100644 --- a/Usermgm.pm +++ b/Usermgm.pm @@ -28,8 +28,16 @@ our @ISA = qw/Exporter/; our @EXPORT = qw/addUser whois flags flag laston addPoints chattrG setHost setPNick deactivateUser getShips/; sub addUser { - my ($nick,$pnick) = @_; - DB(); + my ($msg, $command) = @_; + + my ($nick,$pnick); + if(defined $msg && $msg =~ /^(\w+)(?: ([^.\s]+))?$/){ + $nick = $1; + $pnick = $2; + }else{ + $ND::server->command("notice $ND::nick syntax: .$command nick [pnick] | nick must be alphanum characters, if no pnick is given then it will be set to nick"); + return; + } if (hc()){ $pnick = $nick unless $pnick; my $host = "$pnick.users.netgamers.org";