pam/feedback_files.pl

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