mail::milter::wrapper(3pm) [debian man page]

Mail::Milter::Wrapper(3pm)				User Contributed Perl Documentation				Mail::Milter::Wrapper(3pm)

NAME

       Mail::Milter::Wrapper - Perl extension for wrappering milter objects

SYNOPSIS

	   use Mail::Milter::Wrapper;

	   my $milter = ...;
	   my $wrapper = new Mail::Milter::Wrapper($milter, &foo);

	   use Sendmail::Milter;
	   ...
	   Sendmail::Milter::register('foo', $wrapper, SMFI_CURR_ACTS);

DESCRIPTION

       Mail::Milter::Wrapper wraps another milter, allowing for interception of the passed arguments and/or return code of the contained milter.

METHODS

       new(MILTER, CODEREF[, CALLBACK ...])
	   Creates a Mail::Milter::Wrapper object.

	   MILTER is the milter to wrap, which may be a plain hash reference or an instance of a hashref object such as "Mail::Milter::Object".
	   CODEREF is the wrapper subroutine.  CALLBACKs, if specified, are named callbacks which are needed by the wrapper, even if the contained
	   milter does not use them.

	   The wrapper subroutine will be called with the following arguments, in this order:

	    * reference to the wrapper
	    * name of callback
	    * subroutine reference to call into the wrapped milter
	    * arguments for the callback (>= 0)

	   This subroutine should ALWAYS pass the "close" callback through to the contained milter.  Failure to do so may corrupt the contained
	   milter's state information and cause memory leaks.

	   As an example, a simple subroutine which just passes the callback through might be written as:

	       sub callback_wrapper {
		   shift; # don't need $this
		   my $cbname = shift;
		   my $callback_sub = shift;

		   &$callback_sub(@_);
	       }

AUTHOR

       Todd Vierling, <tv@duh.org> <tv@pobox.com>

SEE ALSO

       Mail::Milter, Sendmail::Milter

perl v5.8.8							    2004-02-26						Mail::Milter::Wrapper(3pm)

Mail::Milter::Wrapper::DecodeSRS(3pm)			User Contributed Perl Documentation		     Mail::Milter::Wrapper::DecodeSRS(3pm)

NAME

       Mail::Milter::Wrapper::DecodeSRS - milter wrapper to decode SRS-encoded return path

SYNOPSIS

	   use Mail::Milter::Wrapper::DecodeSRS;

	   my $milter = ...;
	   my $wrapper = new Mail::Milter::Wrapper::DecodeSRS($milter);

	   my $wrapper2 = &DecodeSRS($milter); # convenience

DESCRIPTION

       Mail::Milter::Wrapper::DecodeSRS is a convenience milter wrapper which decodes MAIL FROM: return paths which have been encoded by the
       Sender Rewrite Scheme, SRS.  (More information:	http://www.libsrs2.org/) This wrapper internally understands both the SRS0 and SRS1 encod-
       ing schemes documented by the Mail::SRS author.

       The decoded address is made available to the contained milter via the "envfrom" callback, in the same way that a raw address would.

       NOTE:  If the address is not SRS encoded, the contained milter is NOT called for the duration of the message; instead, SMFIS_ACCEPT is
       returned.  This is because the milter writer is expected to use this wrapper in a chain that also includes the contained milter without
       wrapping, in order to prevent a malicious sender from using SRS to bypass access checks.

       For instance, the following is a proper usage of this wrapper in a chain:

	   my $envfrommilter = ...;

	   my $combinedmilter = new Mail::Milter::Chain(
	       new Mail::Milter::Wrapper::UnwrapSRS($envfrommilter),
	       $envfrommilter
	   );

       This behavior can also be used if, e.g., the MTA already does one form of MAIL FROM: check, and the contained milter repeats that same
       database check against SRS rewritten addresses.	(A good example would be a milter emulating Sendmail's access_db map.)

AUTHOR

       Todd Vierling, <tv@duh.org> <tv@pobox.com>

SEE ALSO

       Mail::Milter::Wrapper

perl v5.8.8							    2004-02-26				     Mail::Milter::Wrapper::DecodeSRS(3pm)