https://slinkov.ru/openforum/vsluhforumID1/85774.html Подскажите, пожалуйста, как написать скрипт для чтения моего почтового ящика и удаления всех писем с определенным содержимым, которое я могу указать (содержимое).<br> https://slinkov.ru/openforum/vsluhforumID1/85774.html#4 Mon, 29 Jun 2009 14:13:48 GMT &gt;спасибо, а не подскажете как sieve настроить с dovecot? <br><br>dovecot.conf<br><br>protocol lda {<br> postmaster_address = postmaster@nospam.thank.you<br> hostname = mail.domain.tld<br> mail_plugins = cmusieve<br> mail_plugin_dir = /usr/local/lib/dovecot/lda<br> log_path = /var/log/dovecot-local-deliver.log<br> sendmail_path = /usr/sbin/sendmail<br> auth_socket_path = /var/run/dovecot/auth-master<br> # sieve_global_path = /tmp/dovecot.sieve &lt;- один на всех<br>}<br><br><br>plugin {<br> sieve = /mail/sieve-scripts/%u.sieve &lt;- каждому свой скрипт<br> ...<br>}<br><br><br>postfix/master.cf <br>...<br>dovecot unix - n n - - pipe<br> flags=DRhu user=vmail:vmail argv=/usr/local/libexec/dovecot/deliver -f ${sender} -d ${recipient}<br><br># vmail владеет почтовыми каталогами (папками, где письма хранятся)<br><br><br>postfix/main.cf<br>...<br>dovecot_destination_recipient_limit = 1<br>virtual_transport = dovecot<br>...<br><br>как в sendmaile не знаю, сорри<br><br>потом <br><br>/mail/sieve-scripts/postmaster@domain.tld.sieve #пример sieve скрипта<br><br>requi https://slinkov.ru/openforum/vsluhforumID1/85774.html#3 Mon, 29 Jun 2009 13:20:53 GMT <br>&gt;ещё можно procmail или лучше sieve заставить это делать прямо на стороне <br>&gt;сервера. <br><br>спасибо, а не подскажете как sieve настроить с dovecot?<br><br><br> https://slinkov.ru/openforum/vsluhforumID1/85774.html#2 Mon, 29 Jun 2009 12:42:01 GMT &gt;Подскажите, пожалуйста, как написать скрипт для чтения моего почтового ящика и удаления <br>&gt;всех писем с определенным содержимым, которое я могу указать (содержимое). <br><br>Не очень понятно кто и откуда его читать будет<br><br>#!/usr/bin/perl -w<br><br>use Net::IMAP::Simple;<br><br>my $imap = Net::IMAP::Simple-&gt;new('mail.domain.tld') &#124;&#124;<br> die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";<br> <br># Log on<br>if(!$imap-&gt;login('USERNAME_HERE', 'PASSWORD_HERE'))<br>{<br> print STDERR "Login failed: " . $imap-&gt;errstr . "\n";<br> exit(64);<br>}<br><br>my $nm = $imap-&gt;select('Inbox'); # Имя папки <br><br>for(my $i = 1; $i &lt;= $nm; $i++)<br>{<br> my $message = $imap-&gt;get($i);<br> print for @{$message}; # Или не печатаем, а анализируем<br> $imap-&gt;delete($i);<br>}<br><br>$imap-&gt;quit;<br><br>для POP3 переделывайте сами<br><br>ещё можно procmail или лучше sieve заставить это делать прямо на стороне сервера.<br> https://slinkov.ru/openforum/vsluhforumID1/85774.html#1 Mon, 29 Jun 2009 10:46:46 GMT это задача для procmail или для вашего imap/pop3 демона, но никак не для sendmail<br><br>хотя milter-regex думаю справился бы с этим, но раньше, то есть на этапе smtp-диалога.<br>Но это тяжеловесное решение<br>