clearer, and wrap fixes

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

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 49a91723dfd1c4f3d067396a3314cb1e621fa11f..a593cfd1e79e66278a06a1e64b246e3f5a839078 100644 (file)
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -581,13 +581,17 @@ sub userDCC {
            &DEBUG("showing channel conf.");
 
            foreach $chan (@chans) {
-               &pSReply("chan: $chan (will also use _default)");
+               if ($chan eq '_default') {
+                   &pSReply("Default channel settings");
+               } else {
+                   &pSReply("chan: $chan (see _default also)");
+               }
                my @items;
                my $str = "";
                foreach (sort keys %{ $chanconf{$chan} }) {
                    my $newstr = join(', ', @items);
                    ### TODO: make length use channel line limit?
-                   if (length $newstr > 400) {
+                   if (length $newstr > 370) {
                        &pSReply(" $str");
                        @items = ();
                    }