Re: [mdk-re] Re: Post

[Чужой <kisan2@yandex.ru>]

> Здравствуйте, Mikhail.
>
> Вы писали 12 февраля 2002 г., 14:04:49:
>
> MZ> Hello Andrew,
>
> MZ> On Tue, Feb 12, 2002 at 10:31:41AM +0300, Andrew Nazarkin wrote:
> >>
> >> Здравствуйте, уважаемые!
> >> Довольно часто сталкиваюсь с проблемой: у юзера скапливается море
> >> почты (когда он болеет и т.п.) и большей частью левой (причем многие
> >> "умники" присылают одно и то же письмо раз по 20).
> >> Нет ли какого скрипта, чтобы он по задаваемому признаку (к примеру
> >> отправитель, текст письма и т.п.) резал весь этот ненужный спам в
> >> юзерском файле в /var/spool/mail ?
>
> MZ> procmail?
>
>
> Мм.. Не совсем. Эта почта УЖЕ ЛЕЖИТ у юзверя в /var/spool/mail
> Пример: настроил фишку, юзер в отпуске, больнице и т.п. Если ему
> посылают письмо - робот отвечает, что мол "нету меня, пишите письма
> позже или звоните..".
> Так вот, один "умник" при СТРОЖАЙШЕМ ЗАПРЕТЕ!!! взял да и проверил как
> работает - послал письмо от себя себе же. Догадываетесь что произошло?
> :D
> Итог: 38000 одинаковых ответов робота!
> Вот так :(

    Ха-ха-ха!!! ;-) Давно я так не смеялся! ;-))) Ну ладно, понимаю, что вам
не до шуток. С Perl знакомы? Вот код который я написал под себя:
------------------------
#!/usr/bin/perl

$x="From user\@test.ru";
open(F,"user1");
open(FO,">out");
$str=<F>;
$s=0;
while($str)
 {if(substr($str,0,length($x)) eq $x)
   {$s=1;
   }
  if($s==1)
   {print FO ($str);
   }
  $str=<F>;
 }
close(F);
close(FO);
---------------------------
    Смысл скрипта состоит в том, что он читает файл user1 и перебрасывает из
него письма в файл out при этом начинает переброску писем когда доходит до
письма с заголовком From user@test.ru. Все в принципе элементарно. Изменить
его под свои задачи не составит труда. Судя по описанию вашей проблемы надо
то всего лишь удалить письма посланные с одного и того же почтового ящика...
(там надо то всего лишь изменить условие if и добавить к нему еще одну
веточку условия elsif)