From 46999217c3d054503f0ede2b2283aaa0de6d9480 Mon Sep 17 00:00:00 2001 From: dms Date: Fri, 2 Feb 2001 14:03:03 +0000 Subject: [PATCH] compress config params as muc has possible per line git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@310 c11ca15a-4712-0410-83d8-924469b57eb5 --- blootbot/src/Modules/UserDCC.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/blootbot/src/Modules/UserDCC.pl b/blootbot/src/Modules/UserDCC.pl index be2373c..6967881 100644 --- a/blootbot/src/Modules/UserDCC.pl +++ b/blootbot/src/Modules/UserDCC.pl @@ -499,6 +499,7 @@ sub userDCC { } my $update = 0; + ### TODO: $what can be undefined. fix it! if ($what =~ /^\+(\S+)/) { my $was = $chanconf{$chan}{$1}; $was = ($was) ? "; was '$was'" : ""; @@ -543,8 +544,16 @@ sub userDCC { foreach $chan ($chan, "_default") { &pSReply("chan: $chan"); ### TODO: merge 2 or 3 per line. + my @items; + my $str = ""; foreach (sort keys %{ $chanconf{$chan} }) { - &pSReply(" $_ => $chanconf{$chan}{$_}"); + my $newstr = join(', ', @items); + if (length $newstr > 60) { + &pSReply(" $str"); + @items = (); + } + $str = $newstr; + push(@items, "$_ => $chanconf{$chan}{$_}"); } } -- 2.39.5