r43741 - /scripts/KGB/client/KGB_sendcommit
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sat Sep 5 18:13:57 UTC 2009
Author: dmn
Date: Sat Sep 5 18:13:52 2009
New Revision: 43741
URL: http://svn.debian.org/wsvn/?sc=1&rev=43741
Log:
rename $aut to $author
Modified:
scripts/KGB/client/KGB_sendcommit
Modified: scripts/KGB/client/KGB_sendcommit
URL: http://svn.debian.org/wsvn/scripts/KGB/client/KGB_sendcommit?rev=43741&op=diff
==============================================================================
--- scripts/KGB/client/KGB_sendcommit (original)
+++ scripts/KGB/client/KGB_sendcommit Sat Sep 5 18:13:52 2009
@@ -78,7 +78,7 @@
die "Repository path and revision must be given as arguments\n"
unless $path and $rev;
-my( $aut, $log, @changed );
+my( $author, $log, @changed );
if( $repo_type eq 'svn' ) {
require SVN::Fs;
require SVN::Repos;
@@ -94,7 +94,7 @@
$rev ||= $fs->youngest_rev;
$log = $fs->revision_prop($rev, "svn:log");
- $aut = $fs->revision_prop($rev, "svn:author");
+ $author = $fs->revision_prop($rev, "svn:author");
my $root = $fs->revision_root($rev);
my $changed = $root->paths_changed();
@@ -114,7 +114,7 @@
die "Repository type '$repo_type' not supported\n";
}
-#utf8::encode($aut);
+#utf8::encode($author);
#utf8::encode($log);
#utf8::encode($_) foreach(@changed);
@@ -126,13 +126,14 @@
$s->transport->proxy->timeout($srv->{timeout}) if $srv->{timeout};
# v1 protocol
- my $checksum = sha1_hex($repo_id, $rev, @changed, $log, $aut, $password);
+ my $checksum = sha1_hex($repo_id, $rev, @changed, $log, $author,
+ $password);
my $res = $s->commit([1,
$repo_id, $checksum, SOAP::Data->type(int => $rev),
[ map({SOAP::Data->type(string => $_)} @changed) ],
SOAP::Data->type(string => $log),
- SOAP::Data->type(string => $aut)]);
+ SOAP::Data->type(string => $author)]);
if( $res->fault ) {
warn 'SOAP FAULT while talking to '.$srv->{uri}."\n";
@@ -145,7 +146,7 @@
# $repo_id, $password, SOAP::Data->type(int => $rev),
# [ map({SOAP::Data->type(string => $_)} @changed) ],
# SOAP::Data->type(string => $log),
- # SOAP::Data->type(string => $aut)]);
+ # SOAP::Data->type(string => $author)]);
#print $res->result(), "\n";
More information about the Pkg-perl-cvs-commits
mailing list