r44090 - in /scripts/KGB: debian/changelog script/kgb-bot
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 14 12:44:59 UTC 2009
Author: dmn
Date: Mon Sep 14 12:44:52 2009
New Revision: 44090
URL: http://svn.debian.org/wsvn/?sc=1&rev=44090
Log:
drop ':' after repository name
we already use colors to make it stand out
also, the colorization commit already removed ':' after repo name on the first
line, and since we seldom have soo long lines continuation code (which is
changed by this commit) was rarely run. IOW, we were living witout ':' for some
time and no injuries were reported
Modified:
scripts/KGB/debian/changelog
scripts/KGB/script/kgb-bot
Modified: scripts/KGB/debian/changelog
URL: http://svn.debian.org/wsvn/scripts/KGB/debian/changelog?rev=44090&op=diff
==============================================================================
--- scripts/KGB/debian/changelog (original)
+++ scripts/KGB/debian/changelog Mon Sep 14 12:44:52 2009
@@ -4,6 +4,7 @@
* server
+ use "dir" or "dirs" depending on the number (1 or greater)
+ make colors configurable
+ + drop ":" after repository name
* client
+ avoid wrong trimming of changed paths when branch or module cannot be
detected
Modified: scripts/KGB/script/kgb-bot
URL: http://svn.debian.org/wsvn/scripts/KGB/script/kgb-bot?rev=44090&op=diff
==============================================================================
--- scripts/KGB/script/kgb-bot (original)
+++ scripts/KGB/script/kgb-bot Mon Sep 14 12:44:52 2009
@@ -444,12 +444,11 @@
# resending to clients because of prefix.
# Let's trim on 400, to be safe
my $MAGIC_MAX_LINE = (400 - length("PRIVMSG ") -
- max(map(length, @{$KGB::config->{repositories}{$repo_id}{channels}})) -
- length(" :"));
+ max(map(length, @{$KGB::config->{repositories}{$repo_id}{channels}})));
while($_ = shift @string) {
if(length($_) > $MAGIC_MAX_LINE) {
push @tmp, substr($_, 0, $MAGIC_MAX_LINE);
- unshift @string, colorize( repository=>$repo_id ) . ": "
+ unshift @string, colorize( repository=>$repo_id )
. substr($_, $MAGIC_MAX_LINE);
} else {
push @tmp, $_;
More information about the Pkg-perl-cvs-commits
mailing list