- minor output update to '.bans'
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@301
c11ca15a-4712-0410-83d8-
924469b57eb5
$update++;
} elsif (defined $what) {
$update++;
} elsif (defined $what) {
- &pSReply("$what for $chan is '$chanconf{$chan}{$what}'");
+ if (exists $chanconf{$chan}{$what}) {
+ &pSReply("$what for $chan is '$chanconf{$chan}{$what}'");
+ } else {
+ &pSReply("$what for $chan is not set.'");
+ }
- &pSReply(" expire, count, who-by, time-added, reason");
+ &pSReply(" mask: expire, time-added, count, who-by, reason");
foreach $c (keys %bans) {
next unless (!defined $arg or $arg =~ /^\Q$c\E$/i);
&pSReply(" $c:");
foreach $c (keys %bans) {
next unless (!defined $arg or $arg =~ /^\Q$c\E$/i);
&pSReply(" $c:");
if (ref $val eq "ARRAY") {
my @array = @{ $val };
if (ref $val eq "ARRAY") {
my @array = @{ $val };
+ &pSReply(" $_: @array");
} else {
&DEBUG("unknown ban: $val");
}
} else {
&DEBUG("unknown ban: $val");
}
### TODO: proper (eggdrop-like) formatting.
my $c;
### TODO: proper (eggdrop-like) formatting.
my $c;
- &pSReply(" expire, count, who, added, comment");
+ &pSReply(" mask: expire, time-added, who, comment");
foreach $c (keys %ignore) {
next unless (!defined $arg or $arg =~ /^\Q$c\E$/i);
&pSReply(" $c:");
foreach $c (keys %ignore) {
next unless (!defined $arg or $arg =~ /^\Q$c\E$/i);
&pSReply(" $c:");