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/Switch.pm | |
| 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/Switch.pm')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 15 |
1 files changed, 10 insertions, 5 deletions
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'; } |