llng-docker/transform at master · guimard/llng-docker · GitHub

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
#!/usr/bin/perl

use strict;
use Regexp::Assemble;
my $ra = Regexp::Assemble->new(
    chomp            => 1,
    dup_warn => 1,
);

our @ignore = qw(
Makefile
MANIFEST
Common/Conf/Constants\.pm
Common/Conf/DefaultValues\.pm
Common/Conf/ReConstants\.pm
Manager/Attributes\.pm
htdocs/static/js/conftree\.
htdocs/static/reverseTree\.json
/doc/sources
lemonldap-ng-\w+/t
lemonldap-ng-common/lemonldap-ng\.ini
usr/share/lemonldap-ng/manager/htdocs/static/struct\.json
usr/share/lemonldap-ng/portal/htdocs/static/bwr/bootstrap/
changelog
codemeta.json
/debian/
/e2e-tests/
/META\.json
/META\.ya?ml
/Makefile\.PL
/rpm/
);

$ra->add(@ignore);
my $re = $ra->re;

my $ignore = 0;
while (<>) {
    next if /^(?:diff|index)/;
    if (m#^(?:(?:\-\-\- a|\+\+\+ b)/|diff )#) {
        s#([ab])/lemonldap-ng-(?:common|handler|portal|manager)/lib#$1/usr/share/perl5#g;
        s#([ab])/lemonldap-ng-(common|handler|portal|manager)/site#$1/usr/share/lemonldap-ng/$2#g;
        s#([ab])/lemonldap-ng-(common|handler|portal|manager)/scripts#$1/usr/share/lemonldap-ng/bin#g;
        $ignore = ( $_ =~ $re );
    }
    print unless $ignore;
}
__END__