/usr/share/perl5/SVN/Hooks/AllowPropChange.pm is in libsvn-hooks-perl 1.34-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | package SVN::Hooks::AllowPropChange;
# ABSTRACT: Allow changes in revision properties.
$SVN::Hooks::AllowPropChange::VERSION = '1.34';
use strict;
use warnings;
use Carp;
use Data::Util qw(:check);
use SVN::Hooks;
use Exporter qw/import/;
my $HOOK = 'ALLOW_PROP_CHANGE';
our @EXPORT = ($HOOK);
my @Specs;
sub ALLOW_PROP_CHANGE {
my @args = @_;
my @whos;
foreach my $arg (@args) {
if (is_string($arg) || is_rx($arg)) {
push @whos, $arg;
} else {
croak "$HOOK: invalid argument '$arg'\n";
}
}
@whos != 0
or croak "$HOOK: you must specify at least the first argument\n";
my $prop = shift @whos;
push @Specs, [$prop => \@whos];
PRE_REVPROP_CHANGE(\&pre_revprop_change);
return 1;
}
sub pre_revprop_change {
my ($svnlook, $rev, $author, $propname, $action) = @_;
$propname =~ /^svn:(?:author|date|log)$/
or croak "$HOOK: the revision property $propname cannot be changed.\n";
$action eq 'M'
or croak "$HOOK: revision properties can only be modified, not added or deleted.\n";
foreach my $spec (@Specs) {
my ($prop, $whos) = @$spec;
if (is_string($prop)) {
next if $propname ne $prop;
} else {
next if $propname !~ $prop;
}
for my $who (@$whos) {
if (is_string($who)) {
return if $author eq $who;
} else {
return if $author =~ $who;
}
}
}
croak "$HOOK: you are not allowed to change property $propname.\n";
}
1; # End of SVN::Hooks::AllowPropChange
__END__
=pod
=encoding UTF-8
=head1 NAME
SVN::Hooks::AllowPropChange - Allow changes in revision properties.
=head1 VERSION
version 1.34
=head1 SYNOPSIS
This SVN::Hooks plugin is used to allow revision (or non-versioned)
properties (C<svn:author>, C<svn:date>, and C<svn:log>) to be changed
by a group of users.
It's active in the C<pre-revprop-change> hook.
It's configured by the following directive.
=head2 ALLOW_PROP_CHANGE(PROP => WHO, ...)
This directive enables the change of revision properties.
By default any change is denied unless explicitly allowed by the
directive. You can use the directive more than once.
The PROP argument specifies the propertie(s) that are to be configured
depending on its type. If no argument is given, no user can change any
property.
=over
=item STRING
Specify a single property by name (C<author>, C<date>, or C<log>).
=item REGEXP
Specify all properties that match the Regexp.
=back
The optional WHO arguments specify the users that are allowed to make
those changes. If absent, no user can change a log message. Otherwise,
it specifies the allowed users depending on its type.
=over
=item STRING
Specify a single user by name.
=item REGEXP
Specify the class of users whose names are matched by the Regexp.
=back
ALLOW_PROP_CHANGE('svn:log' => 'jsilva'); # jsilva can change svn:log
ALLOW_PROP_CHANGE(qr/./ => qr/silva$/); # any *silva can change any property
=for Pod::Coverage pre_revprop_change
=head1 AUTHOR
Gustavo L. de M. Chaves <gnustavo@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2016 by CPqD <www.cpqd.com.br>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|