Удаление писем

[freek]

Привет всем, стоит exim + dovecot + dspam, как сделать чтобы письма в папке .Junk удалялись допустим через месяц??

[Хостинг 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/

[skeletor]

Скриптом, который обходит все папки и удаляет.

[freek]

ну я так и собрался сделать

еще вопрос, какое правило для exima для спама чтобы в письме от кого не мог стоять мой адресс??? а то виагра задолбали :D

[freek]

Во написал я скрипт, кому надо ) Перл плохо знаю но вроде зб пашет...

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

#!/usr/bin/perl

use DBI;

my $dir_truncate = ".Junk";
my $dsn = 'DBI:mysql:Имябазы:хост';
my $db_user_name = 'Логин';
my $db_password = 'Пароль';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
my $sth = $dbh->prepare(qq{SELECT maildir FROM mailbox});
$sth->execute();
while (my($maildir) = $sth->fetchrow_array()){

truncate_junk($maildir."/".$dir_truncate."/new");
truncate_junk($maildir."/".$dir_truncate."/cur");

}
$sth->finish();


sub truncate_junk {

$maildir = $_[0];
$nowtime = time();

opendir FDIR, $maildir;
while( $name = readdir FDIR) {

if($name != "." && $name != ".."){

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
 = stat($maildir."/".$name);

if(($nowtime - $mtime) > 1296000){

unlink($maildir."/".$name);

}

}
}

closedir FDIR;

}

скрипт удалят весь спам которому больше 15 дней..

Старый вопрос в силе, как написать правило для exim чтобы нельзя было подставлять мой ящик в от, виагра постоянно так присылает

[mediamag]

мда..виагра много кому приходит..помню помню)))

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

# Рубим если отправка от себя к себе не с нашей сети

  deny  hosts           = !+relay_from_hosts
        domains         = +local_domains
        !senders        = :
        condition       = ${if or{ { eq{$sender_address}{$local_part@$domain} }{ eq{$sender_address_domain}{$domain} } } }
        log_message     = "mail from my domain to my domain DENY"
        message         = mail from my domain to my domain DENY

встречный вопрос...как скрипт понимает что есть спам?

[freek]

Спасибо..