diff options
| author | fukachan <fukachan> | 2004-03-27 09:23:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-27 09:23:07 +0000 |
| commit | 9902e51351cf2631f6f8ae870b18676e82045c19 (patch) | |
| tree | 045150f508f7f3dbf3238a0e2987f02ead7aeb07 /fml/lib | |
| parent | afce5baf76d0189095c403e30681ec7ca0b9f288 (diff) | |
| download | fml8-9902e51351cf2631f6f8ae870b18676e82045c19.tar.gz fml8-9902e51351cf2631f6f8ae870b18676e82045c19.tar.bz2 fml8-9902e51351cf2631f6f8ae870b18676e82045c19.zip | |
implement get_thread_data(), get_thread_member_as_array_ref().
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message/Thread.pm | 47 |
1 files changed, 44 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/Thread.pm b/fml/lib/Mail/Message/Thread.pm index f7821382..5b6ffc9a 100644 --- a/fml/lib/Mail/Message/Thread.pm +++ b/fml/lib/Mail/Message/Thread.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2003 Ken'ichi Fukamachi +# Copyright (C) 2003,2004 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Thread.pm,v 1.1 2003/07/20 04:58:29 fukachan Exp $ +# $FML: Thread.pm,v 1.2 2003/07/20 06:43:26 fukachan Exp $ # package Mail::Message::Thread; @@ -124,6 +124,47 @@ sub analyze } +=head2 get_thread_data($thread_args) + +return thread data as HASH_REF. + +=cut + + +# Descriptions: top level dispatcher to get thread data. +# Arguments: OBJ($self) HASH_REF($thread_args) +# Side Effects: update database +# Return Value: none +sub get_thread_data +{ + my ($self, $thread_args) = @_; + my $db = $self->db(); + + return $db->get_thread_data($thread_args); +} + + +=head2 get_thread_member_as_array_ref($head_id) + +return id list within the thread specified by $head_id as ARRAY_REF +e.g.a [ $head_id, id1, id2, id3, ... ]. + +=cut + +# Descriptions: return id list within the thread specified by $head_id +# as ARRAY_REF. +# Arguments: OBJ($self) NUM($head_id) +# Side Effects: update database +# Return Value: none +sub get_thread_member_as_array_ref +{ + my ($self, $head_id) = @_; + my $db = $self->db(); + + return $db->get_as_array_ref('ref_key_list', $head_id); +} + + =head1 TODO =head1 CODING STYLE @@ -136,7 +177,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2003 Ken'ichi Fukamachi +Copyright (C) 2003,2004 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |