burner/feedback_files.pl

   1
   2 do 'burner-lib.pl';
   3
   4 sub feedback_files
   5 {
   6 local (@rv, $f);
   7 opendir(DIR, $module_config_directory);
   8 foreach $f (readdir(DIR)) {
   9         push(@rv, "$module_config_directory/$f") if ($f =~ /\.burn$/);
  10         }
  11 closedir(DIR);
  12 return @rv;
  13 }
  14
  15 1;
  16