diff options
| author | fukachan <fukachan> | 2002-12-20 03:44:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-20 03:44:52 +0000 |
| commit | 7af38788fffef7b5efca875d1601c26df2b09c7e (patch) | |
| tree | 5f2b6c690601da7b8ea15c0b6273f79987519dbe /fml/lib/FML/Header/MessageID.pm | |
| parent | f150bbb4ee5e274943999f8e4c22b51d4b723460 (diff) | |
| download | fml8-7af38788fffef7b5efca875d1601c26df2b09c7e.tar.gz fml8-7af38788fffef7b5efca875d1601c26df2b09c7e.tar.bz2 fml8-7af38788fffef7b5efca875d1601c26df2b09c7e.zip | |
fix comments. add return() if not specified.
Diffstat (limited to 'fml/lib/FML/Header/MessageID.pm')
| -rw-r--r-- | fml/lib/FML/Header/MessageID.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fml/lib/FML/Header/MessageID.pm b/fml/lib/FML/Header/MessageID.pm index 04a4ffac..c41615e1 100644 --- a/fml/lib/FML/Header/MessageID.pm +++ b/fml/lib/FML/Header/MessageID.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: MessageID.pm,v 1.9 2002/09/28 09:27:43 fukachan Exp $ +# $FML: MessageID.pm,v 1.10 2002/12/18 04:26:53 fukachan Exp $ # package FML::Header::MessageID; @@ -69,7 +69,7 @@ open db and return HASH_REF for the db access. # Descriptions: open message-id database # Arguments: OBJ($self) HASH_REF($args) # Side Effects: none -# Return Value: OBJ +# Return Value: HASH_ERF sub db_open { my ($self, $args) = @_; @@ -79,6 +79,7 @@ sub db_open if ($dir) { unless (-d $dir) { + # XXX-TODO: dir_mode is hard-coded ? my $dir_mode = $self->{ _dir_mode } || 0700; use File::Path; @@ -126,6 +127,7 @@ sub get my ($self, $key) = @_; my $db = $self->{ _db }; + # XXX-TODO: what should we do if undefined ? if (defined $db) { return $db->{ $key }; } @@ -168,8 +170,9 @@ sub gen_id my ($self, $curproc, $args) = @_; my $config = $curproc->{ config }; + # XXX-TODO: if $config->{ address_for_post } undefined ? $Counter++; - time.".$$.$Counter\@" . $config->{ address_for_post }; + return time.".$$.$Counter\@" . $config->{ address_for_post }; } |