qmHandle: small error

[Franky Van Liedekerke]

There seems to be a small error in the qmHandle 4.0 program, causing
messages in subdir's 0 not to be seen. The error seems to be in the
checking of the local and remote queue at the beginning of the program
Below I added a small solution (pure perl) for the program for those who
use it.
A copy of this has been sent to the author of the program as well.

Franky


# Make list of messages in remote queue
opendir(DIR,"${queue}remote");
@dirlist = grep !/\./, readdir DIR;
closedir DIR;
foreach $dir (@dirlist) {
   opendir (SUBDIR,"${queue}remote/$dir");
   @files = grep !/\./, map "$dir/$_", readdir SUBDIR;
   foreach $file (@files) {
      push @msglist, "$file";
      $type{"$file"} = 'R';
   }
   closedir SUBDIR;
}
# Make list of messages in local queue
opendir(DIR,"${queue}local");
@dirlist = grep !/\./, readdir DIR;
closedir DIR;
foreach $dir (@dirlist) {
   opendir (SUBDIR,"${queue}local/$dir");
   @files = grep !/\./, map "$dir/$_", readdir SUBDIR;
   foreach $file (@files) {
      push @msglist, "$file";
      $type{"$file"} = 'L';
   }
   closedir SUBDIR;
}