r43806 - in /scripts/KGB: client/KGB_sendcommit debian/changelog
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 7 09:09:35 UTC 2009
Author: dmn
Date: Mon Sep 7 09:09:31 2009
New Revision: 43806
URL: http://svn.debian.org/wsvn/?sc=1&rev=43806
Log:
move checksum calculation back into servers loop
the checksum includes the server password, which may be different for
each server
Modified:
scripts/KGB/client/KGB_sendcommit
scripts/KGB/debian/changelog
Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=43806&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Mon Sep 7 09:09:31 2009
@@ -212,10 +212,6 @@
return $text;
}
-# v1 protocol
-my $checksum = sha1_hex($repo_id, $rev, map( change2text($_), @changed ),
- $log, $author, $branch // (), $module // (), $password);
-
#warn( change2text($_), "\n" ) for @changed;
# try all servers in turn until someone succeeds
@@ -224,6 +220,10 @@
my $failure = 0;
my $s = SOAP::Lite->new(uri => $srv->{uri}, proxy => $srv->{proxy});
$s->transport->proxy->timeout($srv->{timeout}) if $srv->{timeout};
+
+ # v1 protocol
+ my $checksum = sha1_hex($repo_id, $rev, map( change2text($_), @changed ),
+ $log, $author, $branch // (), $module // (), $srv->{password});
my $res = $s->commit([1,
$repo_id, $checksum, SOAP::Data->type(int => $rev),
Modified: scripts/KGB/debian/changelog
URL: http://svn.debian.org/wsvn/scripts/KGB/debian/changelog?rev=43806&op=diff
==============================================================================
--- scripts/KGB/debian/changelog (original)
+++ scripts/KGB/debian/changelog Mon Sep 7 09:09:31 2009
@@ -5,6 +5,7 @@
* avoid wrong trimming of changed paths when branch or module cannot be
detected
* fix population of default password and proxy for servers
+ * move checksum calculation back into servers loop
[ gregor herrmann ]
* debian/rules: simplify, and don't compress examples.
More information about the Pkg-perl-cvs-commits
mailing list