1
2do 'pam-lib.pl';
3
4sub feedback_files
5{
6opendir(DIR, $config{'pam_dir'});
7local @rv = map { "$config{'pam_dir'}/$_" } grep { !/^\./ } readdir(DIR);
8closedir(DIR);
9return @rv;
10}
11
121;
13
14