r25603 - /scripts/KGB/server/KGB

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Sep 24 21:27:01 2008
New Revision: 25603

URL: http://svn.debian.org/wsvn/?sc=1&rev=25603
Log:
KGB/server: print coloured branch/module if given

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=25603&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Wed Sep 24 21:27:01 2008
@@ -294,13 +294,17 @@
     {
         $path_string = join(' ', @$paths);
     }
+    $path_string = "\00310$path_string\017";
 
     my $repo_head = "\002$repo_id\017:";
-    my @string = "$repo_head \00303$author\017 * r\002$rev\017 $log[0]";
+    my $author_string = "\00303$author\017";
+    $author_string .= " \004$branch\017" if defined($branch);
+    my @string = "$repo_head $author_string * r\002$rev\017 $log[0]";
     foreach(1..$#log) {
         push @string, "$repo_head $log[$_]";
     }
-    push @string, "$repo_head \00310$path_string\017";
+    $path_string = "\004$module\017/$path_string" if defined($module);
+    push @string, "$repo_head $path_string";
     my @tmp;
     # Standard says 512 (minus \r\n), anyway that's further trimmed when
     # resending to clients because of prefix.