diff options
| author | fukachan <fukachan> | 2002-04-28 13:33:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-28 13:33:43 +0000 |
| commit | 898e2ca19b8eebaf3d768872997d6ddeaedf5cf6 (patch) | |
| tree | 8a8ee9e5cc583fff900df006ea72624aa6d317ca /fml/lib/FML/Process | |
| parent | 96a8b803a46f8cc4240b1040692d11db94314d26 (diff) | |
| download | fml8-898e2ca19b8eebaf3d768872997d6ddeaedf5cf6.tar.gz fml8-898e2ca19b8eebaf3d768872997d6ddeaedf5cf6.tar.bz2 fml8-898e2ca19b8eebaf3d768872997d6ddeaedf5cf6.zip | |
check $curproc->is_refused() more before action at each step
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index dac83459..a8237220 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.92 2002/04/27 12:27:35 fukachan Exp $ +# $FML: Kernel.pm,v 1.93 2002/04/27 14:28:05 fukachan Exp $ # package FML::Process::Kernel; @@ -329,10 +329,16 @@ sub verify_sender_credential my ($addr, @addrs) = Mail::Address->parse($from); # extract the first address as a sender. - $from = $addr->address; - $from =~ s/\n$//o; + if (defined $addr) { + $from = $addr->address; + $from =~ s/\n$//o; + } + else { + $curproc->refuse_further_processing("cannot extract From:"); + LogError("cannot extract From:"); + } - # XXX "@addrs must be empty" is valid. + # XXX "@addrs must be empty" is valid since From: is unique. unless (@addrs) { # XXX o.k. From: is proven to be valid now. # XXX log it anyway |