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