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