status/feedback_files.pl

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