exim анализ даты

[cyrus_user]

Привет. просматривая спам нашёл несуществующие даты или дата 01.01.1770 в хедере письма.

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

Date: Wed, 35 Sep 2007 16:57:11 +0600

где то в exim уже организованна проверка вот таких дат?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

помоему - нет.
да и зачем? может оно и правда тогда отправлено было, просто в очереди лежало? )
=========
однако - можешь руками привернуть

[cyrus_user]

отправлено 35 сентября?
поиск по корпоративному имапу выявил такие даты только в письмах спам ящиков (около 90 тыс писем). думаю выборка неплохая, чтобы составить правило и накинуть балы. И раз в exim нет, сделаю сам.

[Alex Keda]

в exim есть средства для реализации такого.
а остальное - вопрос рук
=========
а про 35 сентября - прикольно Надо глянуть.

[cyrus_user]

что-то полдня ломал голову как это сделать средствами exim
написал на перл, если это действительно нужно, можно будет поместить в советы.
где-то в exim-овском файле perl функций:

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

sub check_h_date () {                                                                                                   
#возвращаем 10 балов если: формат заголовка, дата, день недели и время неверны
#UTC не проверяем
my $s = Exim::expand_string('$h_date');                                                                                 
use Date::Calc qw(:all);                                                                                                
while ($s=~/^([A-Za-z]+),\s+([0-9]+)\s+([A-Za-z]+)\s+([0-9]+)\s+([0-9:]+).*/g) {                                     
    if (check_date($4,Decode_Month($3),$2)) {
    my ($year,$week,$dow) = Standard_to_Business($4,Decode_Month($3),$2);                                               
        if (Decode_Day_of_Week($1) == $dow) {                                                                           
            if (check_time(split /:/, $5)) {                                                                            
            return "0";
            }                                                                                                           
        }                                                                                                               
    }                                                                                                                   
}                                                                                                                       
return "10";                                                                                                            
}         

где-то в acl_smtp_data:

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

warn
set acl_m120     = ${perl{check_h_date}}