r24648 - in /scripts/KGB: client/KGB_sendcommit debian/changelog

tincho at users.alioth.debian.org tincho at users.alioth.debian.org
Wed Aug 27 08:35:13 UTC 2008


Author: tincho
Date: Wed Aug 27 08:35:11 2008
New Revision: 24648

URL: http://svn.debian.org/wsvn/?sc=1&rev=24648
Log:
client/KGB_sendcommit: use v1 protocol.

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=24648&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Wed Aug 27 08:35:11 2008
@@ -22,6 +22,7 @@
 use strict;
 use warnings;
 
+use Digest::SHA1 qw(sha1_hex);
 use SVN::Fs;
 use SVN::Repos;
 use SVN::Core;
@@ -68,11 +69,19 @@
 		$soap->transport->status, "\n";
 	});
 
-my $res = $s->commit([
-		$repoid, $password, SOAP::Data->type(int => $rev),
+# v1 protocol
+my $checksum = sha1_hex($repoid, $rev, @changed, $log, $aut, $password);
+
+my $res = $s->commit([1,
+		$repoid, $checksum, SOAP::Data->type(int => $rev),
 		[ map({SOAP::Data->type(string => $_)} @changed) ],
 		SOAP::Data->type(string => $log),
 		SOAP::Data->type(string => $aut)]);
+#my $res = $s->commit([
+#		$repoid, $password, SOAP::Data->type(int => $rev),
+#		[ map({SOAP::Data->type(string => $_)} @changed) ],
+#		SOAP::Data->type(string => $log),
+#		SOAP::Data->type(string => $aut)]);
 
 #print $res->result(), "\n";
 

Modified: scripts/KGB/debian/changelog
URL: http://svn.debian.org/wsvn/scripts/KGB/debian/changelog?rev=24648&op=diff
==============================================================================
--- scripts/KGB/debian/changelog (original)
+++ scripts/KGB/debian/changelog Wed Aug 27 08:35:11 2008
@@ -16,5 +16,6 @@
     package name.
   * client/*: remove hardcodings.
   * debian/init: make use of the SIG(HUP|QUIT) handlers.
+  * client/KGB_sendcommit: use v1 protocol.
 
  -- Damyan Ivanov <dmn at debian.org>  Mon, 28 Jul 2008 14:44:04 +0300




More information about the Pkg-perl-cvs-commits mailing list