r25602 - /scripts/KGB/server/KGB
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Sep 24 20:55:44 UTC 2008
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];
More information about the Pkg-perl-cvs-commits
mailing list