wehub-resource-sync
15 lines
208 B
Perl
Executable File
15 lines
208 B
Perl
Executable File
|
|
do 'custom-lib.pl';
|
|
|
|
sub feedback_files
|
|
{
|
|
opendir(DIR, $module_config_directory);
|
|
local @rv = map { "$module_config_directory/$_" }
|
|
grep { /\.(cmd|edit)$/ } readdir(DIR);
|
|
closedir(DIR);
|
|
return @rv;
|
|
}
|
|
|
|
1;
|
|
|