projekt kivitendo

# Contributor(s): Zach Lipton <zach@zachlipton.com>

#                 Joel Peshkin <bugreport@peshkin.net>

package Support::Files;

use File::Find;

# exclude_deps is a hash of arrays listing the files to be excluded

# if a module is not available

#

    'XML::Twig' => ['importxml.pl'],

    'Net::LDAP' => ['Bugzilla/Auth/Verify/LDAP.pm'],

    'Email::Reply' => ['email_in.pl'],

);

find(sub { push(@files, $File::Find::name) if $_ =~ /\.pm$/;}, 'SL');

find(sub { push(@files, $File::Find::name) if $_ =~ /\.pl$/;}, qw(bin/mozilla sql/Pg-upgrade2));

find(sub { push(@files, $File::Find::name) if $_ =~ /\.html$/;}, qw(templates/webpages));

    return !($@);

}

    if (!have_pkg($dep)) {

        push @exclude_files, @{$exclude_deps{$dep}};

    }

    return undef;

}

    if (isTestingFile($currentfile)) {

        push(@testitems,$currentfile);

    }