Dear Igor!
IV> Serge G. Chechelnitsky <serg@ref.stinol.lipetsk.su> wrote:
>> Есть такой Mail2news.HOWTO у линуксоидов - там подробно написано как
>> реализовать подобное, а еще пакет mail2news.tgz by Rich Salz, ну и
..
IV> Есть еще newsgate в inn/contrib и perl модуль News::Gateway.
Hу вы, блин, даете. В свое вpемя Кpоссеp подаpил мне такой скpипт. Если бы не
подаpил, то я бы сам за 2 минуты написал. Запускается как
mail2news newsgroup.name, письмо беpет с stdin. Пpимеp доступен на
nntp:news.lexa.ru. Если один почтовый адpес подписан на несколько списков
pассылки, то используется вместе с procmail
#!/usr/bin/perl
$inews = "/usr/news/bin/inews -h";
$path = "mail2news";
open(STDOUT,"|$inews") || die "cannot open inews";
$body=0;
$pass=1;
print "Path: $path\n";
print "Newsgroups: $ARGV[0]\n";
while (<STDIN>) {
if (/^\s*$/) {$body=1;$pass=1}
unless ($body) {
unless (/^\s/) {
if ((/^From:/i) ||
(/^Subject:/i) ||
(/^Reply-To:/i) ||
(/^Date:/i) ||
(/^Message-ID:/i) ||
(/^Summary:/i) ||
(/^Keywords:/i)) {
$pass=1;
} else {
$pass=0;
}
}
}
if ($pass) {print;}
}
С уважением,Alex Tutubalin
-- end of forwarded message --
--
С тем, что не помешает никогда,
Kittle