forum.lissyara.su

Код: Выделить всё

This message was created automatically by mail delivery software.

A message that you sent could not be delivered to one or more of its
recipients. This is a permanent error. The following address(es) failed:

  morosowwa.tat@yandex.ru
    SMTP error from remote mail server after RCPT TO:<morosowwa.tat@yandex.ru>:
    host mx.yandex.ru [87.250.250.89]: 550 5.7.1 No such user!

Код: Выделить всё

This message was created automatically by mail delivery software.
A message that you sent has not yet been delivered to one or more of its
recipients after more than 24 hours on the queue on mailer.smartresponder.ru.

The message identifier is:     1QlZXa-000E6I-Dd
The date of the message is:    Tue, 26 Jul 2011 08:46:45 +0400
The subject of the message is: =?windows-1251?B?T3JpY28uIMLg+CDv8Ojh++v87fvpIEFMUEhBLeHr7uMhIDIuMA==?=

The address to which the message has not yet been delivered is:

  orico@km.ru
    Delay reason: SMTP error from remote mail server after end of data:
    host m2.mx.km.ru [217.197.114.195]: 450 4.4.2 Bad connection

No action is required on your part. Delivery attempts will continue for
some time, and this warning may be repeated at intervals if the message
remains undelivered. Eventually the mail delivery software will give up,
and when that happens, the message will be returned to you.

Код: Выделить всё

#!/usr/bin/perl -w

#use strict;
use Email::Find;
use DBI;

sub addTrashInfo {
my ($arg) = @_;

my $exim_body = Exim::expand_string('$message_body');

if ($exim_body =~ m/This\ message\ was\ created\ automatically\ by\ mail\ delivery\ software/i)
{
	my @emails = ();
	my $finder = Email::Find->new(sub {
								my($email, $orig_email) = @_;
								push (@emails, $email->format);
								return $orig_email;
							});
	$finder->find(\$exim_body);
	
	if ($exim_body =~ m/A\ message\ that\ you\ sent\ has\ not\ yet/i)
	{
		if ($exim_body =~ m/Delay\ reason/i)
		{
			($part1, $part2, $part3, $part4) = split /\n{2}/, $exim_body, 5;
			($part31, $part32) = split /\n/, $part4, 2;
				
			for ($part32) {
				s/^\s+Delay.*\n//;
			}
		}
		else
		{
			($part1, $part2) = split /\n{2}/, $exim_body, 3;
			($part31, $part32) = split /\n/, $part1, 2;
		}
	}
	else
	{
		($part1, $part2, $part3) = split /\n{2}/, $exim_body, 4;
		($part31, $part32) = split /\n/, $part3, 2;
			
		for ($part32) {
			s/^\s+SMTP.*\n//;
		}
	}
	
	for ($part32)
	{
		s/^\s+//;
		s/\n+//;
		s/\s+/ /g;
	}
	
	open(EXILOG,">> /var/log/exim_perl.log");
	
	my $dbh = DBI->connect("DBI:mysql:database=h11036_exim;host=schtep.ru","h11036_exim", "secret") || die $DBI::errstr;
	my $result = $dbh->prepare("INSERT INTO emails (email, error, body) VALUES (\'@emails['0']\', \'$part32\', \'$exim_body\');");
	$result->execute();
	
	print (EXILOG @emails['0']."\n");
	print (EXILOG $part32."\n");
	print (EXILOG "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=");
	print (EXILOG "\n");
	close(EXILOG);
}
else
{
	my $err_pattern = "BAD!";
	open(EXILOG,">> /var/log/exim_perl.log");
	print (EXILOG "$err_pattern\n");
	#print (EXILOG "$exim_body");
	print (EXILOG "\n");
	print (EXILOG "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=");
	print (EXILOG "\n");
	close(EXILOG);
	
}
#Exim::log_write("Perl test. Body is $exim_body");

return "Perl: trash info has been added.";
}

Код: Выделить всё

 use IO::Socket::UNIX;
 use Net::Server::Mail::LMTP;
 use Data::Dumper;

my @local_domains = qw(example.com example.org);
my $server = new IO::Socket::UNIX Listen =>1, Type => SOCK_STREAM, Local => '/tmp/lmtp.sock';

my $conn;
while($conn = $server->accept)
{
	my $esmtp = new Net::Server::Mail::LMTP socket => $conn;
	# adding some handlers
	$esmtp->set_callback(RCPT => \&validate_recipient);
	$esmtp->set_callback(DATA => \&queue_message);
	$esmtp->process();
	$conn->close()
}

sub validate_recipient
{
	my($session, $recipient) = @_;

	my $domain;
	if($recipient =~ /@(.*)>\s*$/)
	{
		$domain = $1;
	}

	if(not defined $domain)
	{
		return(0, 513, 'Syntax error.');
	}
	elsif(not(grep $domain eq $_, @local_domains))
	{
		return(0, 554, "$recipient: Recipient address rejected: Relay access denied");
	}

	return(1);
}

sub queue_message
{
	my($session, $data) = @_;

	my $sender = $session->get_sender();
	my @recipients = $session->get_recipients();

	return(0, 554, 'Error: no valid recipients')
		unless(@recipients);

	#my $msgid = add_queue($sender, \@recipients, $data)
	#  or return(0);

	#return(1, 250, "message queued $msgid");
	
	my $msg = Dumper($data);
	
	open(EXILOG,">> /var/log/exim_perl.log");
	print (EXILOG $msg);
	print (EXILOG "=-=-=-=-=-=-=");
	print (EXILOG "\n");
	close(EXILOG);
	
	return(1, 250, "message queued");
}

Код: Выделить всё

trash:
           driver          = accept
           condition       = "${if  match{$h_To:}{trash@example.com} {1}{0}}"
           transport       = lmtp
...
lmtp:
            driver = lmtp
            socket = /tmp/lmtp.sock
            batch_max = 2
            user = mailnull

Код: Выделить всё

use Proc::PID::File;
die "Already running!" if Proc::PID::File->running();

Код: Выделить всё

chown('mailnull', 'wheel', '/tmp/lmtp.sock') if -f "/tmp/lmtp.sock";

Код: Выделить всё

my $sock = '/tmp/lmtp.sock';
my $eximuser = 'mailnull';

my ($login,$pass,$uid,$gid) = getpwnam($eximuser);
chown($uid, 0, $sock) if -S $sock;