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/Mail | |
| 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/Mail')
| -rwxr-xr-x | fml/lib/Mail/ThreadTrack.pm | 4 | ||||
| -rw-r--r-- | fml/lib/Mail/ThreadTrack/Print/HTML.pm | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/Mail/ThreadTrack.pm b/fml/lib/Mail/ThreadTrack.pm index aeff51e2..e4fdaa81 100755 --- a/fml/lib/Mail/ThreadTrack.pm +++ b/fml/lib/Mail/ThreadTrack.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: ThreadTrack.pm,v 1.15 2001/11/11 00:58:44 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.16 2001/11/11 11:12:28 fukachan Exp $ # package Mail::ThreadTrack; @@ -82,7 +82,7 @@ sub new db_type => 'AnyDBM_File', }; - my @keys = qw(ml_name spool_dir article_id db_base_dir reverse_order); + my @keys = qw(myname ml_name spool_dir article_id db_base_dir reverse_order); my %must = ('ml_name' => 1, 'spool_dir' => 1, 'db_base_dir' => 1); for my $key (@keys) { diff --git a/fml/lib/Mail/ThreadTrack/Print/HTML.pm b/fml/lib/Mail/ThreadTrack/Print/HTML.pm index eb0399dd..f635d679 100644 --- a/fml/lib/Mail/ThreadTrack/Print/HTML.pm +++ b/fml/lib/Mail/ThreadTrack/Print/HTML.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: HTML.pm,v 1.4 2001/11/11 00:57:36 fukachan Exp $ +# $FML: HTML.pm,v 1.5 2001/11/11 11:12:28 fukachan Exp $ # package Mail::ThreadTrack::Print::HTML; @@ -71,7 +71,7 @@ sub __start_thread_summary my $config = $self->{ _config }; my $ml_name = $config->{ ml_name }; my $fd = $self->{ _fd } || \*STDOUT; - my $action = "fmlthread.cgi"; + my $action = $config->{ myname }; my $target = "ResultsWindow"; # statistics @@ -137,7 +137,7 @@ sub __print_thread_summary my $config = $self->{ _config }; my $ml_name = $config->{ ml_name }; my $spool_dir = $config->{ spool_dir }; - my $action = 'fmlthread.cgi'; + my $action = $config->{ myname }; my $target = $config->{ thread_cgi_target_window } || 'ThreadCGIWindow'; my $date = $optargs->{ date }; |