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