Modular daemon for mail::srs
my $daemon = new Mail::SRS::Daemon( SecretFile => $secretfile, Separator => $separator, ); $daemon->run();
The \s-1SRS\s0 daemon listens on a socket for \s-1SRS\s0 address transformation requests. It transforms the addresses and returns the new addresses on the socket.
It may be invoked from exim using ${readsocket ...}, and probably from other MTAs as well. See http://www.anarres.org/projects/srs/ for examples.
Construct a new Mail::SRS object and return it. All parameters which are valid for Mail::SRS are also valid for Mail::SRS::Daemon and will be passed to the constructor of Mail::SRS verbatim. The exception to this rule is the Secret parameter, which will be promoted to a list and will have all secrets from SecretFile included. New parameters are documented here. See Mail::SRS for the rest. A file to read for secrets. Secrets are specified once per line. The first specified secret is used for encoding. Secrets are written one per line. Blank lines and lines starting with a # are ignored. If Secret is not given, then the secret file must be nonempty. Secret will specify a primary secret and override SecretFile if both are specified. However, secrets read from SecretFile still be used for decoding if both are specified. An instance of IO::Socket, presumed to be a listening socket. This may be provided in order to use a preexisting socket, rather than have Mail::SRS::Daemon construct a new socket. Run the daemon. This method will never return. Errors and exceptions are caught, and error messages are returned down the socket.
Given :all, this module exports the following variables. The filename of the default socket created by Mail::SRS::Daemon.
The daemon waits for a single line of text from the client, and will respond with a single line. The lines are all of the form \*(L"\s-1COMMAND\s0 args...\*(R". Currently, two commands are supported: forward and reverse.
A forward request looks like:
FORWARD [email protected] [email protected]
A reverse request looks like:
REVERSE [email protected]
In either case, the daemon will respond with either a translated address, or a line starting \*(L"\s-1ERROR\s0 \*(R", followed by a message.
Add more daemon-related options, such as path to socket, or inet socket address.
Mail::SRS, srsd, http://www.anarres.org/projects/srs/
Shevek CPAN ID: SHEVEK [email protected] http://www.anarres.org/projects/
Copyright (c) 2004 Shevek. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.