commit 4f551346d1e758460d53f60a414d19bc62426a87
from: Izzy Blacklock <izzyb@planetofnix.com>
date: Tue Aug 01 04:26:08 2023 UTC

fixed but with @stafflist; added debug messages

commit - 1796ac628e96d3b5816c3714b20e8982b460eee1
commit + 4f551346d1e758460d53f60a414d19bc62426a87
blob - 156ce5c80afd246d480a72392dd60e1b23092f55
blob + 58b684b442bd760bcbf7a9d69c2517f4662f81ac
--- botnow
+++ botnow
@@ -118,7 +118,7 @@ my $call = $IRCNOW::IO::IRC::call;
 my $localnet = $conf{localnet};
 $IRCNOW::IO::IRC::localnet = $localnet;
 my $staff = $conf{staff};
-$IRCNOW::IO::IRC::stafflist = [ split(/ /,$staff) ];
+@IRCNOW::IO::IRC::stafflist = split(/ /,$staff);
 $IRCNOW::IO::verbosity = $conf{verbose};
 my $verbosity = $conf{verbose};
 $IRCNOW::IO::backupspath = $conf{backupspath} ||  "/home/botnow/backups/";
blob - 3c76f3f0154b2ac2cbdb9e8c07077e0816ac0631
blob + dc9f1090d4b06b1d342c5e940e1234a93ce4349f
--- lib/BotNow/BNC.pm
+++ lib/BotNow/BNC.pm
@@ -143,6 +143,7 @@ sub mbnc {
 	foreach my $row (@rows) {
 		my $password = BotNow::SQLite::get("bnc", "ircid", $row->{id}, "password");
 		if (defined($password)) {
+			debug(ALL, "NOTE--> Found Existing Hostmask with a password. Account rejected!");
 			IRCNOW::IO::IRC::putserv($bot, "PRIVMSG $nick :Sorry, only one account per person. Please contact staff if you need help.");
 			return;
 		}
@@ -194,6 +195,7 @@ sub mbnc {
 		foreach my $row (@userrows) {
 			my $password = BotNow::SQLite::get("bnc", "ircid", $row->{id}, "password");
 			if (defined($password)) {
+				debug(ALL, "NOTE--> Found Existing username with a password. Account rejected!");
 				IRCNOW::IO::IRC::putserv($bot, "PRIVMSG $nick :Sorry, only one account per person. Please contact staff if you need help.");
 				return;
 			}
@@ -202,12 +204,14 @@ sub mbnc {
 		foreach my $row (@userrows) {
 			my $password = BotNow::SQLite::get("bnc", "ircid", $row->{id}, "password");
 			if (defined($password)) {
+				debug(ALL, "NOTE--> Found Existing email with a password. Account rejected!"); 
 				IRCNOW::IO::IRC::putserv($bot, "PRIVMSG $nick :Sorry, only one account per person. Please contact staff if you need help.");
 				return;
 			}
 		}
 
 #		my @users = treeget($znctree, "User", "Node");
+#XXX Is this doing anything? what does @users contain?
 		foreach my $user (@users) {
 			if ($user eq $username) {
 				IRCNOW::IO::IRC::putserv($bot, "PRIVMSG $nick :Sorry, username taken. Please contact staff if you need help.");