commit 4f551346d1e758460d53f60a414d19bc62426a87 from: Izzy Blacklock date: Tue Aug 1 04:26:08 2023 UTC fixed but with @stafflist; added debug messages commit - 1796ac628e96d3b5816c3714b20e8982b460eee1 commit + 4f551346d1e758460d53f60a414d19bc62426a87 blob - 156ce5c80afd246d480a72392dd60e1b23092f55 blob + 58b684b442bd760bcbf7a9d69c2517f4662f81ac Binary files botnow and botnow differ 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.");