I'm using code from queue/maildir which imitates queue/qmail-queue
It bombs for me with a message that there is an insecure conditional when running with -T switch, on the last line here.
my ( $self , $transaction ) = @_ ; my ( $time , $microseconds ) = gettimeofday ; $time = ( $time =~ m/(\d+)/ )[0] ; $microseconds =~ s/\D//g ; my $unique = "P$$" . "M$microseconds" . "Q" . $MAILDIR_COUNTER++ ; my $file = join "." , $time , $unique , $self->qp->config( "me" ) ; my $maildir = $QPHOME . "/var/honeypot" ; # exists, owned, perms OK open ( MF , '>' , $maildir . '/tmp/' . $file ) or die ( DECLINED , "queue error (open) $!" ) ;
