diff options
| author | fukachan <fukachan> | 2001-11-20 07:32:37 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-20 07:32:37 +0000 |
| commit | b0a01e75dc5dd103d00f89a677fab20ebdb9945b (patch) | |
| tree | 1583f7e8cb3dabe81f19cb590849dd9055570d53 /fml/lib/FML/Process/ThreadTrack.pm | |
| parent | 96758a7488827dc2de544d4f77093a6e2ae11f95 (diff) | |
| download | fml8-b0a01e75dc5dd103d00f89a677fab20ebdb9945b.tar.gz fml8-b0a01e75dc5dd103d00f89a677fab20ebdb9945b.tar.bz2 fml8-b0a01e75dc5dd103d00f89a677fab20ebdb9945b.zip | |
update database for latest not-yet-analyzed articles.
Diffstat (limited to 'fml/lib/FML/Process/ThreadTrack.pm')
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 41 |
1 files changed, 35 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index 55c15930..13575bcd 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.14 2001/11/18 08:57:29 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.15 2001/11/19 08:49:30 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -123,6 +123,11 @@ sub run $thread->db_dump( $type ); $thread->db_close(); } + elsif ($command eq 'db_update') { + my $last_id = $curproc->_speculate_last_id($thread); + print STDERR "db_update: $last_id -> $max_id\n"; + $thread->db_mkdb($last_id, $max_id); + } elsif ($command eq 'db_rebuild') { print STDERR "\$thread->db_mkdb(1, $max_id);\n" if $ENV{'debug'}; $thread->db_mkdb(1, $max_id); @@ -156,6 +161,29 @@ sub run } +sub _speculate_last_id +{ + my ($curproc, $thread) = @_; + my $last_id = 0; + + $thread->db_open(); + + my $rh = $thread->db_hash( 'date' ); + if (defined $rh) { + eval q{ + use File::Sequence; + my $obj = new File::Sequence; + $last_id = $obj->search_max_id( { hash => $rh } ); + }; + warn($@) if $@; + } + + $thread->db_close(); + + return $last_id; +} + + sub _speculate_max_id { my ($curproc, $spool_dir) = @_; @@ -249,11 +277,12 @@ print <<"_EOF_"; Usage: $name \$command \$ml_name [options] -$name list \$ml_name list up summary -$name summary \$ml_name list up summary -$name close \$ml_name id close ticket specified by id (MH style) -$name db_rebuild \$ml_name rebuild thread database for \$ml_name ML -$name db_clear \$ml_name clear thread database for \$ml_name ML +$name list \$ml_name list up summary +$name summary \$ml_name list up summary +$name close \$ml_name id close ticket specified by id (MH style) +$name db_update \$ml_name rebuild database for latest articles +$name db_rebuild \$ml_name rebuild database for whole of ML +$name db_clear \$ml_name clear thread database for \$ml_name ML _EOF_ } |