5 # [1] REPOS-PATH (the path to this repository)
6 # [2] USER (the authenticated user attempting to commit)
7 # [3] CAPABILITIES (a colon-separated list of capabilities reported
8 # by the client; see note below)
10 # Note: The CAPABILITIES parameter is new in Subversion 1.5, and 1.5
11 # clients will typically report at least the "mergeinfo" capability.
12 # If there are other capabilities, then the list is colon-separated,
13 # e.g.: "mergeinfo:some-other-capability" (the order is undefined).
16 my $repospath = $ARGV[0];
18 my $capabilities = $ARGV[2];
20 # CAPABILITIES is a colon-separated list of svn client capabilities
21 if (! defined $capabilities) {
22 print STDERR "commit fail: you must use Subversion 1.5 or later\n";
26 my @capabilities = split /:/, $capabilities;
28 foreach my $parameter ( @capabilities ){
29 $capabilities{ $parameter }++;
32 if( $capabilities{ "mergeinfo" } ){
36 print STDERR "commit fail: you must use Subversion 1.5 or later\n";