diff options
| author | fukachan <fukachan> | 2001-11-05 14:35:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-05 14:35:47 +0000 |
| commit | 879b5e846cfd1138bd246eb9c487311df32a5f43 (patch) | |
| tree | f0b58c9ec92302e2b1d2458eefbaa7771048c431 /fml/lib/FML/Process/ThreadTrack.pm | |
| parent | 80503eb1881c0c0bea06008f4e3bebf89a9d2099 (diff) | |
| download | fml8-879b5e846cfd1138bd246eb9c487311df32a5f43.tar.gz fml8-879b5e846cfd1138bd246eb9c487311df32a5f43.tar.bz2 fml8-879b5e846cfd1138bd246eb9c487311df32a5f43.zip | |
review() mode to show summary for articles in each thread
Diffstat (limited to 'fml/lib/FML/Process/ThreadTrack.pm')
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index ce14014f..47d931aa 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.3 2001/11/04 06:50:41 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.4 2001/11/04 13:41:32 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -97,7 +97,11 @@ sub run $curproc->lock(); if ($command eq 'list' || $command eq 'summary') { - $thread->show_summary(); + $thread->summary(); + } + elsif ($command eq 'review') { + my $str = defined $argv->[2] ? $argv->[ 2 ] : 'last:100'; + $thread->review( $str , 1, $max_id ); } elsif ($command eq 'db_mkdb') { $thread->db_mkdb(1, $max_id); |