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