trAvis - MANAGER

Edit File: smtpauth-log-collector

#!/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 Sys::Syslog; use Milter::SMTPAuth::Logger; use Milter::SMTPAuth::Logger::File; use Milter::SMTPAuth::Logger::LTSV; use Milter::SMTPAuth::Config; my $options = Milter::SMTPAuth::Config::LogCollectorConfig->new_with_options(); eval { my $outputter = new Milter::SMTPAuth::Logger::File( filename => $options->log() ); my $formatter = new Milter::SMTPAuth::Logger::LTSV(); my $logger = new Milter::SMTPAuth::Logger( config => $options, outputter => $outputter, formatter => $formatter, ); $logger->run(); }; if ( my $error = $EVAL_ERROR ) { my $msg = sprintf( 'cannot start smtpauth-log-collector(%s)', $error ); printf STDERR "%s\n", $msg; syslog( 'err', '%s', $msg ); exit( 1 ); }