[svn.haxx.se] · SVN Dev · SVN Users · SVN Org · TSVN Dev · TSVN Users · Subclipse Dev · Subclipse Users · this month's index

commit-access-control.pl - new svnlook syntax? [patch]

From: Peter Gervai <grin_at_tolna.net>
Date: 2002-12-11 18:01:58 CET

Hello,

I don't know whether it's "new" or "old", but my svnlook have a different
syntax the trunk $subj handles.

This reminds me a question: nobody of subversion devel people uses $Id$ or
other similar keywords? Seems it's impossible to tell svnlook's version
because there is no info in its help; it's hard to tell which
commit-access-control.pl is which since there is no version number in the
source. Maybe I'm the first to notice? (I didn't dare to put it in the patch
below, though.)

Index: commit-access-control.pl
===================================================================
--- commit-access-control.pl (revision 4089)
+++ commit-access-control.pl (working copy)
@@ -30,7 +30,7 @@
 # Configuration section.

 # Svnlook path.
-my $svnlook = "/usr/local/bin/svnlook";
+my $svnlook = "/usr/bin/svnlook";

 # Since the path to svnlook depends upon the local installation
 # preferences, check that the required program exists to insure that
@@ -176,7 +176,7 @@
   or die "$0: cannot chdir $tmp_dir': $!\n";

 # Get the author from svnlook.
-my @svnlooklines = &read_from_process($svnlook, 'author', $repos, '-t', $txn);
+my @svnlooklines = &read_from_process($svnlook, $repos, 'txn', $txn, 'author');
 my $author = shift @svnlooklines;
 unless (length $author)
   {
@@ -184,8 +184,7 @@
   }

 # Figure out what directories have changed using svnlook..
-my @dirs_changed = &read_from_process($svnlook, 'dirs-changed', $repos,
- '-t', $txn);
+my @dirs_changed = &read_from_process($svnlook, $repos, 'txn', $txn, 'dirs-changed');

 # Lose the trailing slash in the directory names if one exists, except
 # in the case of '/'.
@@ -204,7 +203,7 @@

 # Figure out what files have changed using svnlook.
 my @files_changed;
-foreach my $line (&read_from_process($svnlook, 'changed', $repos, '-t', $txn))
+foreach my $line (&read_from_process($svnlook, $repos, 'txn', $txn, 'changed'))
   {
     # Split the line up into the modification code and path, ignoring
     # property modifications.

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@subversion.tigris.org
For additional commands, e-mail: dev-help@subversion.tigris.org
Received on Wed Dec 11 18:02:47 2002

This is an archived mail posted to the Subversion Dev mailing list.