BUILD : 1.7.0 (26) BUGS : none NOTES : Testing svn access with a new am script.

git-svn-id: svn://svn.anope.org/anope/trunk@26 31f1291d-b8d6-0310-a050-a5561fc1590b


git-svn-id: http://anope.svn.sourceforge.net/svnroot/anope/trunk@17 5417fbe8-f217-4b02-8779-1006273d7864

1 files changed, 3 insertions, 1 deletions

diff --git a/bin/am b/bin/am
index 5046d3d0a..14b6d8638 100755
--- a/bin/am
+++ b/bin/am
@@ -23,12 +23,14 @@ my $fhint="version.log";
 
 # Default values, change or use environment variables instead.
 my $copy="anope";
+my $svnuser="";
 my $svnpath="/usr/bin";
 my $svnroot="svn://zero.org/repos/$copy";
 my $editor="/usr/bin/vi";
 
 # Environment variables SVNBINDIR and SVNROOT override the above 
 # hardcoded values.
+$svnuser="$ENV{SVNUSER}"   if ($ENV{SVNUSER});
 $svnpath="$ENV{SVNBINDIR}" if ($ENV{SVNBINDIR});
 $svnroot="$ENV{SVNROOT}"   if ($ENV{SVNROOT});
 $editor="$ENV{EDITOR}"     if ($ENV{EDITOR});
@@ -372,7 +374,7 @@ NOTES : ";
     close(OUT);
 
     print "*** Starting the upload...\n\n";
-    my $rval=system("$svn commit $dst --message '$svn_comment'");
+    my $rval=system("$svn commit $dst --username='$svnuser' --message '$svn_comment'");
     if ( $rval ) {
             print "*** Error: Unable to complete commit. Rolling back....\n\n";
             system("$svn revert $ctrlfile");