Hi! On Fri, Aug 02, 2002 at 12:00:55PM +0300, Valentin Nechayev writes:
Кто знает perl - посмотрите, пожалуйста, прав ли я в этом патче. Что-то там исходно очень странный код был.
To gul: а твоего патча на эту тему я совсем не понял:(( Разъяснить можешь?
Я делаю это через subject_subst непосредственно перед этим - добавил переменную конфига, которая через eval выкусывает префиксы, которые там были. Ну и в конфиге, например, subject_subst = s/\[uanog\]\s+//gs или что-то более интеллектуальное. Это из-за того, что я добавил возможность использования $XFER в префиксе (номер постинга), и просто контекстный поиск уже не подходит, вот и пришлось в конфиге regex задавать. Проблема не в этом, а в том, что при русском subject этот префикс маймится вместе с остальной строкой, и потом контекстно не находится, поэтому добавляется следующий (вот в этой мессаге, по идее, префикс будет размножаться, хотя, конечно, зависит от MUA). Чтобы префикс не размножался, добавлять его нужно после decode mime headers и перед mime encode. Смотри mime.pl и параметры mime и unmime из присланного мной.
To olwi: там 1.94.5, я вначале не туда посмотрел.
--- resend.20010619 Tue Jun 19 12:12:01 2001 +++ resend Fri Aug 2 11:59:45 2002 @@ -718,8 +718,7 @@ print STDERR "$0: parse_header: adding subject prefix\n" if $DEBUG; local($foo) = &config'substitute_values($config_opts{$opt_l,"subject_prefix"}, $opt_l);#'; local($foo_pat) = $foo; - $foo_pat =~ s/(\W)/\\$1/g; - s/^subject:[^\S\n]*/Subject: $foo /i if !/$foo_pat/; + s/^subject:[ \t]*/Subject: $foo /i if !/\Q$foo_pat\E/; }
# snag reply-to field
/netch
-- Lucky carrier, Паша. =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message