1# This Source Code Form is subject to the terms of the Mozilla Public
2# License, v. 2.0. If a copy of the MPL was not distributed with this
3# file, You can obtain one at http://mozilla.org/MPL/2.0/.
4#
5# This Source Code Form is "Incompatible With Secondary Licenses", as
6# defined by the Mozilla Public License, v. 2.0.
7
8
9package Support::Files;
10
11use File::Find;
12
13@additional_files = ();
14
15@files = glob('*');
16find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'Bugzilla');
17push(@files, 'extensions/create.pl');
18
19@extensions =
20    grep { $_ ne 'extensions/create.pl' && ! -e "$_/disabled" }
21    glob('extensions/*');
22
23foreach my $extension (@extensions) {
24    find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, $extension);
25}
26
27sub isTestingFile {
28    my ($file) = @_;
29    my $exclude;
30
31    if ($file =~ /\.cgi$|\.pl$|\.pm$/) {
32        return 1;
33    }
34    my $additional;
35    foreach $additional (@additional_files) {
36        if ($file eq $additional) { return 1; }
37    }
38    return undef;
39}
40
41foreach $currentfile (@files) {
42    if (isTestingFile($currentfile)) {
43        push(@testitems,$currentfile);
44    }
45}
46
47
481;
49