Hello,
I'm trying to use exit codes form a perl script in a .qmail file. Here's what I have ::
man qmail-control
...
command's exit codes are interpreted as follows: 0 means
that the delivery was successful; 99 means that the deliv-
ery was successful, but that qmail-local should ignore all
further delivery instructions
...
So in my .qmail file it is
|./test.pl
./Maildir/
'program.pl' should check the message and based on that
1) do what it does and exit 99 so that the rest of the .qmail file is not processed,
in this case not delivered to ./Maildir/
or
2) let the original message get sent to the next line of the .qmail file for
processing, in this case deliver it like normal
The exit code seems to not being recognised by .qmail or not sent out correctly in
perl ( since the message gets deleivered no matter what and I verify it's getting to
the exit 99 part becasue I have it write to a log file right before it does exit 99
and foreach message that should get exit 99 a log entry is made ) so my question is
this ::
How do I do the exit code in perl so that it will get used in context of processing
the .qmail file
,in this case " ignore all further delivery instructions" ?
I have currently in the perl script::
...
my $exit_code = 99;
...
exit($exit_code);
which according to perldoc -f exit should be great.
Any body have experience with this and see what obvious thing I'm missing?
Thanks
Dan
