commit 9b9146dbd1409496824463560c2930c6ac1bae41
from: Izzy Blacklock <izzyb@planetofnix.com>
date: Mon Jul 31 18:41:28 2023 UTC

added some debug output and loaded $call from IRCNOW::IO::IRC::call

commit - 672b5ca7f0260793b40edd528432ce453acf6879
commit + 9b9146dbd1409496824463560c2930c6ac1bae41
blob - 163afbaedf9d6b1507f6c36553f8dde8473848c5
blob + 62423d9fff61b032d3d343ec35a2ee86fce182e2
--- botnow
+++ botnow
@@ -116,7 +116,10 @@ my @bots;
 my @chans = split /[,\s]+/m, $conf{chans};
 my @teamchans;
 if (defined($conf{teamchans})) { @teamchans = split /[,\s]+/m, $conf{teamchans}; }
-my $call;
+
+
+my $call = $IRCNOW::IO::IRC::call;
+
 my $nick = $conf{nick};
 my $host = $conf{host};
 my $port = $conf{port};
@@ -193,6 +196,7 @@ while(my @ready = $sel->can_read) {
 				debug(ALL, "Debug type: $type, target: $target, text: $text");
 			}
 		} elsif($response =~ /^:(([^!]+)!([^@]+@[^@ ]+)) PRIVMSG ([^ ]+) :(.*)\r\n$/i) {
+			debug(ALL, "-->COMMAND--> $response");
 			my ($hostmask, $sendnick, $host, $target, $text) = ($1, $2, $3, $4, $5);
 			if ($hostmask eq '*status!znc@znc.in' && $target =~ /^$nick.?$/) {
 				if ($text =~ /Network ([[:ascii:]]+) doesn't exist./) {
@@ -210,6 +214,7 @@ while(my @ready = $sel->can_read) {
 				}
 			} elsif ($text =~ /^!([[:graph:]]+)\s*(.*)/) {
 				my ($cmd, $text) = ($1, $2);
+				debug(ALL, qq{<<COMMAND: $cmd; TEXT: $text>>});
 				my $hand = $staff; # TODO fix later
 				if ($target =~ /^#/) {
 					foreach my $c (@{$call->{pub}}) {
@@ -435,7 +440,7 @@ while(my @ready = $sel->can_read) {
 				debug(ERRORS, "Unexpected bncnow.pl 454: $server $code $text");
 			}
 		} else {
-			debug(ERRORS, "Unexpected bncnow.pl 460: $response");
+			debug(ERRORS, "--> $response");
 		}
 	}
 }