From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Message-ID: <00a101c1b3c4$320a9200$c4df36c3@LocalHost> From: =?koi8-r?B?/tXWz8o=?= To: References: <18564624015.20020212103141@mail.ru><20020212110449.GA23367@mhz.mikhail.zabaluev.name> <5778265484.20020212141902@mail.ru> Subject: Re: [mdk-re] Re: Post MIME-Version: 1.0 Content-Type: text/plain; charset="koi8-r" Content-Transfer-Encoding: 8bit X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 5.00.2615.200 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200 Sender: mandrake-russian-admin@altlinux.ru Errors-To: mandrake-russian-admin@altlinux.ru X-BeenThere: mandrake-russian@altlinux.ru X-Mailman-Version: 2.0 Precedence: bulk Reply-To: mandrake-russian@altlinux.ru List-Help: List-Post: List-Subscribe: , List-Id: Linux-Mandrake RE / ALT Linux discussion list List-Unsubscribe: , List-Archive: Date: Tue Feb 12 15:46:21 2002 X-Original-Date: Tue, 12 Feb 2002 15:49:30 +0300 Archived-At: List-Archive: List-Post: > Здравствуйте, 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=; $s=0; while($str) {if(substr($str,0,length($x)) eq $x) {$s=1; } if($s==1) {print FO ($str); } $str=; } close(F); close(FO); --------------------------- Смысл скрипта состоит в том, что он читает файл user1 и перебрасывает из него письма в файл out при этом начинает переброску писем когда доходит до письма с заголовком From user@test.ru. Все в принципе элементарно. Изменить его под свои задачи не составит труда. Судя по описанию вашей проблемы надо то всего лишь удалить письма посланные с одного и того же почтового ящика... (там надо то всего лишь изменить условие if и добавить к нему еще одну веточку условия elsif)