Converted .sethost

[NDIRC.git] / Commands / Usermgm.pm

diff --git a/Commands/Usermgm.pm b/Commands/Usermgm.pm
index 21fe6375322b36bf0a4beb09e39b80339d704181..27864b94955dfca62de7bba9bad86f7982f4d58c 100644 (file)
--- a/Commands/Usermgm.pm
+++ b/Commands/Usermgm.pm
@@ -329,4 +329,42 @@ ORDER BY num
        }
 }
 
+sub sethost
+       : Help(Usage: .sethost username [host] | if host isn't given then it resets to netgamers host)
+       : ACL(irc_sethost)
+{
+       my ($self,$c,$msg) = @_;
+       my ($nick,$host) = $msg =~ /^(\S+)(?: (\S+))?$/ or die 'ARGS';
+       my $dbh = $c->model;
+
+       my $f = $dbh->prepare(q{
+SELECT uid,username,pnick,hostmask FROM users WHERE username ILIKE ?
+               });
+       $f->execute($nick);
+       my $user = $f->fetchrow_hashref;
+       if ($f->rows == 1){
+               $host //= "$user->{pnick}.users.netgamers.org";
+               eval{
+                       $dbh->do(q{UPDATE users SET hostmask = ? WHERE uid = ?}
+                               ,undef,$host,$user->{uid});
+                       $c->reply("Updated <b>$user->{username}</b>'s host to: <b>$host</b>");
+               };
+               if($@){
+                       if ($@ =~ /duplicate key value violates unique constraint/){
+                               my ($username, $hostname) = $dbh->selectrow_array(q{
+SELECT username,hostmask FROM users WHERE hostmask ILIKE $1
+                               },undef,$host);
+                               $c->reply("<c04>Problem</c>, <b>$username</b> already uses host <b>$hostname</b>.");
+                       }else{
+                               die $@;
+                       }
+               }
+       }elsif ($f->rows == 0){
+               $c->reply("No hit, maybe spelling mistake, or add % as wildcard");
+       }else{
+               $c->reply("More than 1 user matched, please refine the search");
+       }
+       $f->finish;
+}
+
 1;