wehub-resource-sync
14 lines
182 B
Perl
Executable File
14 lines
182 B
Perl
Executable File
|
|
do 'pam-lib.pl';
|
|
|
|
sub feedback_files
|
|
{
|
|
opendir(DIR, $config{'pam_dir'});
|
|
local @rv = map { "$config{'pam_dir'}/$_" } grep { !/^\./ } readdir(DIR);
|
|
closedir(DIR);
|
|
return @rv;
|
|
}
|
|
|
|
1;
|
|
|