commit - e298cbe83bcd68c4a811e80d8532a15f6b2c0fb2
commit + b19b7985c6eda97bf830d63afc2d72817f14e097
blob - 4fc2c6360fd8f0cda208003093d69c0290ec2d2f
blob + a12a117b7d3b92a0db75f1693b1afbfbc0e8309a
--- lib/IRCNOW/IO/IRC.pm
+++ lib/IRCNOW/IO/IRC.pm
use strict;
use warnings;
+use IRCNOW::IO qw(:DEBUG);
+
use Exporter 'import';
our @EXPORT_OK = qw(
sub isstaff {
my( $bot, $nick ) = @_;
if( !( $bot->{name} =~ /^$localnet$/i ) ) {
+ debug(ALL,qq{isstaff--> $bot->{name} not $localnet});
return 0;
}
foreach( @stafflist ) {
if( $nick eq $_ ) {
+ debug(ALL,qq{isstaff--> $nick not in \@stafflist});
return 1;
}
}