r25602 - /scripts/KGB/server/KGB

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Sep 24 20:55:42 2008
New Revision: 25602

URL: http://svn.debian.org/wsvn/?sc=1&rev=25602
Log:
support optional branch and module parameters in protocol v1

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=25602&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Wed Sep 24 20:55:42 2008
@@ -243,7 +243,8 @@
 use File::Basename;
 
 sub do_commit_msg {
-    my($kernel, $response, $repo_id, $rev, $paths, $log, $author) = @_;
+    my($kernel, $response, $repo_id, $rev, $paths, $log, $author, $branch,
+       $module ) = @_;
     my @log = split(/\n+/, $log);
     my $path_string;
     my %dirs;
@@ -346,7 +347,7 @@
 }
 sub do_commit_v1 {
     my($kernel, $response, $repo_id, $checksum, $rev, $paths, $log,
-        $author) = @_;
+        $author, $branch, $module) = @_;
     unless($KGB::config->{repositories}{$repo_id}) {
         $kernel->post(SOAPServer => 'FAULT', $response, 'Client.Arguments',
             "Repository $repo_id is unknown");
@@ -355,13 +356,16 @@
     }
     if($KGB::config->{repositories}{$repo_id}{password} and
         sha1_hex($repo_id, $rev, @$paths, $log, $author,
+		 (defined($branch) ? $branch : ()),
+		 (defined($module) ? $module : ()),
             $KGB::config->{repositories}{$repo_id}{password}) ne $checksum) {
         $kernel->post(SOAPServer => 'FAULT', $response, 'Client.Arguments',
             "Authentication failed for repository $repo_id");
         warn("Authentication failed\n");
         return;
     }
-    do_commit_msg($kernel, $response, $repo_id, $rev, $paths, $log, $author);
+    do_commit_msg($kernel, $response, $repo_id, $rev, $paths, $log, $author,
+		  $branch, $module);
 }
 sub commit {
     my $kernel = $_[KERNEL];