From 0efbbcb79c523ee9e16c659f2d9df5a00a250211 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 21 May 2003 15:36:57 +0000
Subject: [PATCH] - one more last try. - added support for wantnick+. will kill
 if we are +n.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@789 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/UserExtra.pl | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index aaf37c4..d967932 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -841,7 +841,10 @@ if (0) {
     }
 
     # wantNick. xk++
-    if ($message =~ /^wantNick$/i) {
+    if ($message =~ /^wantNick(\+)?$/i) {
+	my ($force) = ($1) ? 1 : 0;
+	$force = 0 unless (&IsFlag("n"));
+
 	# cannot trust Net::IRC's nick()
 	if ($param{'ircNick'} eq $ident) {
 	    &msg($who, "I hope you're right. I'll try anyway.");
@@ -859,14 +862,22 @@ if (0) {
 	}
 
 	# idea from dondelecarlo :)
-	if ($param{'ircNick'} ne $ident and $param{'nickServ_pass'}) {
-	    &status("someone is using our nick; KILLing");
+	# todo: use cache{nickserv}
+	if ($param{'nickServ_pass'}) {
+	    return if ($param{'ircNick'} eq $ident or $force == 0);
+
+	    &status("someone is using our nick; GHOSTing");
+	    &msg($who, "using GHOST on $param{'ircNick'}.");
 	    &msg("NickServ", "GHOST $param{'ircNick'} $param{'nickServ_pass'}");
+
+	    $conn->schedule(5, sub {
+		&status("going to change nick after GHOST.");
+		&nick( $param{'ircNick'} );
+	    } );
+
 	    return;
 	}
 
-	&nick( $param{'ircNick'} );
-
 	return;
     }
 
-- 
2.39.2