forum.lissyara.su

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

# Конфигурация транспортов

# Доставка на удалённые хосты - по SMTP
remote_smtp:
	driver	= smtp
#	headers_add	= "X-Descriptions: powered by www.lissyara.su"
# следующая строка - это внесение в таблицу отправленных писем - грамотней не 
# придумал,поэтому на неё идут варнинги в логах, однако работает :)
	hosts_avoid_esmtp =  ${lookup mysql{INSERT IGNORE INTO `sended_list` \
			(`user_from`, `user_to`, `added_timestamp`, \
			`last_mail_timestamp`, `mail_count`) VALUES \
			(LCASE('${quote_mysql:$sender_address}'), \
			LCASE('${quote_mysql:$local_part@$domain}'), \
			UNIX_TIMESTAMP(), UNIX_TIMESTAMP(), '1') ON DUPLICATE \
			KEY UPDATE `last_mail_timestamp` = UNIX_TIMESTAMP(), \
			`mail_count` = `mail_count` + 1}}

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

+---------------+-------+
| from_IP       | cnt   |
+---------------+-------+
| 192.168.0.11  |     3 |
| 192.168.15.21 | 39338 |
| 192.168.15.22 |     5 |
| 192.168.15.23 |     1 |
| 192.168.15.24 |     4 |
+---------------+-------+

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

#!/usr/bin/perl -w

# вводим переменные
# внешний интерфейс
$interface = 'xl0';
# Лимит серверов
$limit = 20;
# MySQL - хост где БД
$db_host = 'localhost';
# MySQL юзер
$db_user = 'ipacctd';
# MySQL пароль
$db_password = 'ipacctd';
# MySQL база данных
$db_database = 'ipacctd';
# подрубаем модуль для работы с MySQL
use DBI;
# время - тока чтоб год достать...
use Time::localtime;

# Ящик админа
$admemail='support@microsoft.com';
$RobotName='MailGuard';
$RobotAddr='no-reply@mbfkk.spb.ru';


sub SendEMail {
    open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "sendmail not ready";
    print SENDMAIL "From: $RobotName <$RobotAddr>\n";
    print SENDMAIL "To: $_[0]\n";
    print SENDMAIL "Reply-To: $RobotName <$RobotAddr>\n";
    print SENDMAIL "Content-Type: text/plain; charset=koi8-r\n";
    print SENDMAIL "Subject: $_[1]\n\n";
    print SENDMAIL "$_[2]";
    close (SENDMAIL) or warn "sendmail didn`t close nicely";
  };

$year = localtime->year() + 1900;
$month = `date '+%m'`;
$month = substr($month,0,2);

# Коннектимся к MySQL
my $dsn = "DBI:mysql:database=$db_database;host=$db_host";
my $dbh = DBI->connect($dsn, $db_user, $db_password);

  $sql  = 'select from_IP, cnt';
  $sql .= '  from (select from_IP, count(from_IP) as cnt';
  $sql .= '    from (select distinct from_IP,to_IP,port_to_IP';
  $sql .= '      from ' . $interface . '_' . $year . '_' . $month;
  $sql .= '      where from_IP like "192.168.%"';
  $sql .= '        and port_to_IP = 25) as t1';
  $sql .= '    group by from_IP) as t2';
  $sql .= "  where cnt > $limit;";

  $body = '';

  my $sth = $dbh->prepare($sql);
  $sth->execute();
  while (@tmp = $sth->fetchrow_array()) {
        ($ip, $cnt) = @tmp;
    $body .= "${ip}\tЗобанен\t${cnt}\n";
    `/sbin/ipfw -q add 1 deny tcp from ${ip} to any 25 out via $interface`;
  }
  $sth->finish();

  $subj = 'Отчет по зобаненным';
  $msg = $subj . "\n\n" .  "IP-адрес\tСтатус\tКоличество\n" . $body;
  SendEMail($admemail, $subj, $msg);
#  print $body;
# выходим
1;