diff options
| author | fukachan <fukachan> | 2001-11-11 13:37:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-11 13:37:40 +0000 |
| commit | 10ba2623d01ca0cb7475bbd74aa72b8370e554f0 (patch) | |
| tree | c4963d54381aab915c4818b0bc0312f6532cb7d6 /fml/lib/FML/Process | |
| parent | 9355ffe6229e1b86cfc968806ab2e2057732436e (diff) | |
| download | fml8-10ba2623d01ca0cb7475bbd74aa72b8370e554f0.tar.gz fml8-10ba2623d01ca0cb7475bbd74aa72b8370e554f0.tar.bz2 fml8-10ba2623d01ca0cb7475bbd74aa72b8370e554f0.zip | |
ThreadTrack switches acconding to myname ($0).
threadview is view only and cannot change status.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 15 | ||||
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 4 |
3 files changed, 16 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 271d0297..e47b0bdd 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.50 2001/11/03 09:57:32 fukachan Exp $ +# $FML: Distribute.pm,v 1.51 2001/11/04 04:42:52 fukachan Exp $ # package FML::Process::Distribute; @@ -317,12 +317,14 @@ sub _thread_check my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $pcb = $curproc->{ pcb }; + my $myname = $curproc->myname(); my $ml_name = $config->{ ml_name }; my $thread_db_dir = $config->{ thread_db_dir }; my $spool_dir = $config->{ spool_dir }; my $article_id = $pcb->get('article', 'id'); my $ttargs = { + myname => $myname, logfp => \&Log, fd => \*STDOUT, db_base_dir => $thread_db_dir, diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 2bf82274..21a8e375 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.34 2001/11/09 13:23:14 fukachan Exp $ +# $FML: Switch.pm,v 1.35 2001/11/10 04:01:11 fukachan Exp $ # package FML::Process::Switch; @@ -350,7 +350,10 @@ sub _module_specific_options $myname eq 'loader' ) { return qw(ctladdr! debug! params=s -c=s); } - elsif ($myname eq 'fmlthread'|| $myname eq 'fmlthread.cgi') { + elsif ($myname eq 'fmlthread' || + $myname eq 'fmlthread.cgi' || + $myname eq 'thread.cgi' || + $myname eq 'threadview.cgi') { return qw(debug! article_id_max=i spool_dir=s @@ -437,12 +440,14 @@ sub _module_we_use elsif ($name eq 'fmlconf' || $name eq 'makefml') { $pkg = 'FML::Process::Configure'; } - elsif ($name eq 'fmlthread.cgi') { - $pkg = 'FML::CGI::ThreadTrack'; - } elsif ($name eq 'fmlthread') { $pkg = 'FML::Process::ThreadTrack'; } + elsif ($name eq 'fmlthread.cgi' || + $name eq 'thread.cgi' || + $name eq 'threadview.cgi') { + $pkg = 'FML::CGI::ThreadTrack'; + } elsif ($name eq 'mead') { $pkg = 'FML::Process::MailErrorAnalyzer'; } diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index e94ed36c..6442d0c9 100644 --- a/fml/lib/FML/Process/ThreadTrack.pm +++ b/fml/lib/FML/Process/ThreadTrack.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000-2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ThreadTrack.pm,v 1.10 2001/11/07 09:28:27 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.11 2001/11/09 13:23:15 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -74,6 +74,7 @@ sub run { my ($curproc, $args) = @_; my $config = $curproc->{ config }; + my $myname = $curproc->myname(); my $argv = $curproc->command_line_argv(); my $options = $curproc->command_line_options(); my $mydir = defined $options->{spool_dir} ? $options->{spool_dir} : ''; @@ -86,6 +87,7 @@ sub run my $max_id = defined $options->{ article_id_max } ? $options->{ article_id_max } : $curproc->article_id_max(); my $ttargs = { + myname => $myname, logfp => \&Log, fd => \*STDOUT, db_base_dir => $thread_db_dir, |