X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;ds=sidebyside;f=Usermgm.pm;h=e24ee550f195e1460b4ffd676856cccc57b507ae;hb=f442c3c5bb7d67583c875ffbb5aeecc137d6928c;hp=16ef53844296fa1ddcca53938b70a832083a6500;hpb=503db6bf51120be14f2b16643462dfd2a39a9bc0;p=NDIRC.git 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";