trAvis - MANAGER
Edit File: smtpauth-filter
#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # -*- coding: utf-8 mode:cperl -*- use strict; use warnings; use English; use Milter::SMTPAuth::Filter; use Milter::SMTPAuth::Config; my $options = Milter::SMTPAuth::Config::FilterConfig->new_with_options(); eval { my $filter = new Milter::SMTPAuth::Filter( listen_address => $options->listen_address(), logger_address => $options->logger_address(), max_children => $options->max_children(), max_requests => $options->max_requests(), user => $options->user(), group => $options->group(), foreground => $options->foreground(), pid_file => $options->pid_file() ); $filter->run(); }; if ( my $error = $EVAL_ERROR ) { printf STDERR qq{aborted by "%s"\n}, $error; exit( 1 ); }