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;



syntax highlighted by Code2HTML, v. 0.9.1