From 13481f9dc6cbc39b0f5adaafba0bce7927bf61a6 Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Fri, 7 Sep 2007 10:59:17 +0200 Subject: [PATCH] setPNick updated --- Usermgm.pm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/Usermgm.pm b/Usermgm.pm index 37a3174..071ceac 100644 --- a/Usermgm.pm +++ b/Usermgm.pm @@ -252,16 +252,25 @@ sub setHost { } sub setPNick { - my ($nick, $pnick) = @_; - DB(); + my ($msg, $command) = @_; + + my ($nick, $pnick); + if($msg =~ /^(\S+) ([^.\s]+)$/){ + $nick = $1; + $pnick = $2; + }else{ + $ND::server->command("notice $ND::nick syntax: .$command nick pnick | % can be used for wildcards \%arro% will match barrow"); + return; + } if (hc()){ my $f = $ND::DBH->prepare("SELECT uid,username FROM users WHERE username ILIKE ?"); $f->execute($nick); my ($uid,$nick) = $f->fetchrow(); if ($f->rows == 1){ my ($username,$p_nick) = $ND::DBH->selectrow_array("SELECT username, pnick FROM users WHERE pnick ILIKE ? AND NOT (username ILIKE ?)",undef,$pnick,$nick); - if ((not defined $username) && $ND::DBH->do("UPDATE users SET pnick = ? WHERE uid = ?",undef,$pnick,$uid) > 0){ - $ND::server->command("msg $ND::target Updated $ND::B$nick${ND::B}'s pnick to: $ND::B$pnick$ND::B"); + my $hostname = "$pnick.users.netgamers.org"; + if ((not defined $username) && $ND::DBH->do("UPDATE users SET pnick = ?, hostmask = ? WHERE uid = ?",undef,$pnick,$hostname,$uid) > 0){ + $ND::server->command("msg $ND::target Updated $ND::B$nick${ND::B}'s pnick to: $ND::B$pnick$ND::B and hostname to $ND::B$hostname$ND::B"); }elsif(defined $username){ $ND::server->command("msg $ND::target $ND::B$username$ND::B already exists with pnick $ND::B$p_nick$ND::B."); }else{ -- 2.39.2