Next Trivial Utilities 102

printd: Scanning the spool

        sub read_spoold {
          my $dir = shift;
          local *SPOOLD;
          unless (opendir SPOOLD, $dir) {
            temp_error("Couldn't read spool directory $dir: $!", 10);
          }
          my @f = grep $_ ne $CONF{curfile}, grep !/^\./, readdir SPOOLD;
          print STDERR "queue contains ", scalar(@f), " items\n" 
            if $CONF{debug_printd};
          map $_->[0], sort { $b->[1] <=> $a->[1] } map [$_, -M], @f;
        }



Next Menu Copyright © 2012 M. J. Dominus