exim. Выполнение внешнего скрипта или как лучше организовать
Добавлено: 2009-04-01 16:27:32
Доброго времени суток. Проблема следующая - от человека А приходит письмо на сервер. Ему отсылается автоматически сообщение от exim'a чтобы он переотправил сообщение, дабы доказать, что не является спамером. После чего он добавляется в white list и последующие письма от него просто обрабатываются антиспамом(dspam) и пропускаются. Написал скрипт для этой задачи
1. Как в exim вызвать этот скрипт с параметром - адрес отправителя?
2. Как проанализировать ответ от скрипта (1 или 0) и принять решение - отправить ли пользователю сообщение с запросом повторной посылки письма или нет?
Код: Выделить всё
#!/usr/bin/perl -w
use strict;
use DBI;
my $database = "exim";
my $hostname = "localhost";
my $port = "3306";
my $user = "root";
my $password = "xxx";
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password);
my $sth = $dbh->prepare("SELECT * FROM lists WHERE address = '$ARGV[0]'");
$sth->execute();
my $row = $sth->fetchrow_hashref();
if( $row->{'address'} ) {
unless( $row->{'isValid'} ) {
$dbh->do("UPDATE lists SET isValid = 1 WHERE id = '$row->{'id'}'");
}
exit 1;
} else {
$dbh->do("INSERT INTO lists(address,isValid) VALUES('$ARGV[0]',0)");
exit 0;
}
2. Как проанализировать ответ от скрипта (1 или 0) и принять решение - отправить ли пользователю сообщение с запросом повторной посылки письма или нет?
