diff options
| author | fukachan <fukachan> | 2004-07-26 05:46:35 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-07-26 05:46:35 +0000 |
| commit | b921745ce1f45c4e3657e98bf43f34fa5e229a75 (patch) | |
| tree | d9dcf78b5c18fbbb0cb87a07c4b4dbf30633630f /fml/lib/FML/Process | |
| parent | 1a5d0887ebc587b096f79895064417940ccba271 (diff) | |
| download | fml8-b921745ce1f45c4e3657e98bf43f34fa5e229a75.tar.gz fml8-b921745ce1f45c4e3657e98bf43f34fa5e229a75.tar.bz2 fml8-b921745ce1f45c4e3657e98bf43f34fa5e229a75.zip | |
thread_db_args() returns htmlifier parameters with subject tag hints.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index cb7a0c44..1e1187f5 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.120 2004/07/23 15:20:18 fukachan Exp $ +# $FML: Utils.pm,v 1.121 2004/07/23 15:59:11 fukachan Exp $ # package FML::Process::Utils; @@ -1859,6 +1859,7 @@ sub thread_db_args my $html_dir = $config->{ html_archive_dir }; my $udb_dir = $config->{ udb_base_dir }; my $index_order = $config->{ html_archive_index_order_type }; + my $subject_tag = $config->{ article_subject_tag }; my $cur_lang = $curproc->language_of_html_file(); # whether we should mask address? @@ -1872,6 +1873,11 @@ sub thread_db_args unless (-d $udb_dir) { $curproc->mkdir($udb_dir);} + # hints + use FML::Header::Subject; + my $subj = new FML::Header::Subject; + my $subject_tag_regexp = $subj->regexp_compile($subject_tag); + # XXX-TODO: care for non Japanese. return { @@ -1886,6 +1892,12 @@ sub thread_db_args # address mask = yes/no, _type = all use_address_mask => $use_address_mask, address_mask_type => $address_mask_type, + + # hints + hints => { + subject_tag => $subject_tag, + subject_tag_regexp => $subject_tag_regexp, + }, }; } |