- fix undefined for '.chanset'

- minor output update to '.bans'

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@301 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 6d19ac192837f096b1a58be5ebb7ee4f83c38c9c..be2373ccb015a40a29a6bc3ae8a107774f4f6c2e 100644 (file)
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -524,7 +524,11 @@ sub userDCC {
 
            $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.'");
+           }
        }
 
        if ($update) {
@@ -997,7 +1001,7 @@ sub userDCC {
        }
 
        my $c;
-       &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:");
@@ -1007,7 +1011,7 @@ sub userDCC {
 
                if (ref $val eq "ARRAY") {
                    my @array = @{ $val };
-                   &pSReply("      @array");
+                   &pSReply("    $_: @array");
                } else {
                    &DEBUG("unknown ban: $val");
                }
@@ -1139,7 +1143,7 @@ sub userDCC {
 
        ### 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:");