cron/feedback_files.pl

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