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