Почтовый фильтр
Фильтр всякого от Subscribe.ru. Удаляет из письма сами-знаете-что ;)
Сам фильтр:
цут хере #!/usr/bin/perl
while (<>) {
$skip=1 if $_ =~ "-\\*-----";
if ($_ =~ "mailto:ask\@subscribe.ru") {
$skip=0;
$skip_this=1;
}
if ($skip==0 && $skip_this==0) {
print;
}
$skip_this=0;
}
и цут хере Применять:
1) На существующем файле в формате mailbox:
cat mbox | sf.pl >mbox-stripped
Проверено мной на своих ящиках. Все ОК ;)
2) Фильтр к procmail:
цут хере # Сначало определимся с местоположением
SUBSCRFLT=$HOME/bin/sf.pl
...
# Применим на практике ;)
:0
* ^List-Id: <comp.soft.linux.discuss.subscribe.ru>
| $SUBSCRFLT >>$MAILDIR/linux.discuss-stripped
и цут хере Так же проверено.
Улучшения всегда приветствуются. Мне вот, например, не нравится фигня
с $skip_this, но сразу в голову ничего другого не пришло. Так, что
если сможете от нее избавится -- пишите.
Всего хорошего.
i586-asplinux-linux-gnu)
В сообщении от Thu, 1 Jul 2004 19:03:37 +0400 Вы написали:
цут хере #!/bin/awk -f
BEGIN {sk=0;IGNORECASE=1}
/^-\*-----/ {sk=1}
/^from/ {if (sk) print "\n";sk=0}
/^/ {if (!sk) print}
и цут хере Проверено. Но НИКАКИХ ГАРАНТИЙ!