|
ru.linux- RU.LINUX --------------------------------------------------------------------- From : Andrey Slusar 2:467/126 13 Apr 2003 13:40:00 To : Sergey Krinitsin Subject : Re: Xterm -------------------------------------------------------------------------------- On Sat, 12 Apr 2003 01:05:02 +0300 Sergey Krinitsin wrote: AC>>>> Hе понял. Каким образом мой ньюсридер непригоден для написания SK>>> ^^^ Это какой "мой"? Если ньюсридер SK>>> не пропатчен для работы с FTN, он квотит по идиотски пустыми AS>> В каком месте нужно гнус патчить скажи мне пожалуйста? Я не патчил AS>> его вообще никак. SK> То что ты его не патчил совсем не означает, что его не патчили SK> создатели дистра. Мне лень ставить emacs от красной шапки и SK> проверять, умеет ли его gnus по дефолту квотить "по фидошному", SK> но в инете напимер без труда нашелся "FTN патч для gnus"- его SK> существование наводить на определенные мысли. :-))) Это говорит только о том, что ты на емакс смотрел не более 10 минут. В емаксе все делается встроенными средствами и никаких патчей совершенно не нужно, и где ты нашел FTN-патч для гнуса я даже не знаю нафига это ему надо. А по дефолту даже tin не квотит по фидошному - ему это нужно сказать в конфигах, так-же как и gnus'у. SK>>> косяками, из-за этого потом непонятно, кто что писал. Кроме того, SK>>> у ньюсов нет поля "To:", и по дефолту гейт будет ставить All, что SK>>> тоже не рулез. AS>> У меня X-Comment-to формирует именно inn с помощью перлового AS>> скрипта, благодаря чему я могу писать в фидо даже mozilla'ой, которая AS>> не формирует X-Comment-yo заголовка. Это же не патч, а стандартное AS>> средство. SK> А вот это интересно. Замыль плз этот скрипт, если не трудно. ===filter_nnrpd.pl=== #!/usr/bin/perl -w #use strict; sub filter_post { my $rval = "" ; # assume we'll accept. my $grephistory = '/usr/lib/news/bin/grephistory'; my $sm = '/usr/lib/news/bin/sm'; if( $hdr{"Newsgroups"} =~ /fido|junk\./ ) { if ( !(($hdr{"Comment-To"} ne "") || ($hdr{"X-Comment-To"} ne "") || ($hdr{"X-FTN-To"} ne "") || ($hdr{"X-Fidonet-Comment-To"} ne "") || ($hdr{"X-Apparently-To"} ne ""))) { my $refs = $hdr{"References"}; if( $refs ne "" ) { my @refs = split(/ /, $refs); my $msgid = pop @refs; $msgid =~ s/[<>|;\s'"]//g; my $fn=`$grephistory \'$msgid\' 2>&1`; if( (!($fn =~ /\/dev\/null/)) && (!($fn =~ /Not found/)) ) { my $orig_from = `$sm $fn`; my @orig_from = grep(/^From:/, split(/\n/, $orig_from)); $orig_from = shift @orig_from; $orig_from =~ s/^From:\s*//; $orig_from =~ s/^\s*(.+[^\s])\s*<[^\s><"\(\)\@]+\@[^\s><"\(\)\@]+>\s*$/$1/; $orig_from =~ s/^\s*<{0,1}[^\s><"\(\)\@]+\@[^\s><"\(\)\@]+>{0,1}\s*\((.+)\)\s*$/$1/; $orig_from =~ s/^"//; $orig_from =~ s/"$//; $hdr{"X-Comment-To"} = $orig_from; $modify_headers = 1; } } } } return $rval; } === Кладешь его в filters inn'а и включаешь perl filtering. Кстати, писал не я, жаль автора не помню, но у него еще много чего хорошего в плане перловых скриптов к inn'у - кодировки, правильный msgid. В общем пусть отзовется и скажет, че у него там еще есть :-) SK> Sergey -- Всего хорошего. Андрей. --- Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.2 (gnu/linux) * Origin: Powered by 220v (2:467/126) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/185500000046.html, оценка из 5, голосов 10
|