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