diff options
| author | fukachan <fukachan> | 2006-11-26 12:04:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-11-26 12:04:18 +0000 |
| commit | 97cdca56acd0f011a3a603f188cd72c5a48e052d (patch) | |
| tree | ea3f23301bb93eacf5bd890efe7e6d4adf21bd48 /fml/lib/FML/Moderate.pm | |
| parent | 3d1aa5be80a8a5dc2b8d5fb1216785004f05fcd2 (diff) | |
| download | fml8-97cdca56acd0f011a3a603f188cd72c5a48e052d.tar.gz fml8-97cdca56acd0f011a3a603f188cd72c5a48e052d.tar.bz2 fml8-97cdca56acd0f011a3a603f188cd72c5a48e052d.zip | |
fix comments.
correct argument definitions.
Diffstat (limited to 'fml/lib/FML/Moderate.pm')
| -rw-r--r-- | fml/lib/FML/Moderate.pm | 37 |
1 files changed, 24 insertions, 13 deletions
diff --git a/fml/lib/FML/Moderate.pm b/fml/lib/FML/Moderate.pm index d0b392d0..afd54799 100644 --- a/fml/lib/FML/Moderate.pm +++ b/fml/lib/FML/Moderate.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: Moderate.pm,v 1.4 2006/01/09 14:00:53 fukachan Exp $ +# $FML: Moderate.pm,v 1.5 2006/05/04 05:34:57 fukachan Exp $ # package FML::Moderate; @@ -16,32 +16,48 @@ my $moderation_queue = "submitted"; =head1 NAME -FML::Moderate - manipulate Moderatoration database. +FML::Moderate - manipulate Moderation database. =head1 SYNOPSIS +use FML::Moderate; +my $moderation = new FML::Moderate $curproc; +$curproc->log("distribute article qid=$queue_id"); +$moderation->distribute_article($queue_id); + =head1 DESCRIPTION +This class manipulates moderation database. + =head1 METHODS -=head2 new($cargs) +=head2 new($curproc) + +constructor =cut # Descriptions: constructor. -# Arguments: OBJ($self) OBJ($curproc) HASH_REF($cargs) -# Side Effects: create object +# Arguments: OBJ($self) OBJ($curproc) +# Side Effects: none. # Return Value: OBJ sub new { - my ($self, $curproc, $cargs) = @_; + my ($self, $curproc) = @_; my ($type) = ref($self) || $self; my $me = { _curproc => $curproc }; return bless $me, $type; } +=head2 forward_to_moderator + +forward incoming message to moderator. + +=cut + + # Descriptions: forward incoming message to moderator. # Arguments: OBJ($self) # Side Effects: save message in moderation queue. @@ -115,11 +131,6 @@ sub _send_confirmation } -=head1 QUEUE MANIPULATION - -=cut - - # Descriptions: initialize queue object. # Arguments: OBJ($self) STR($qid) # Side Effects: none @@ -151,11 +162,11 @@ sub _queue_init } -=head1 ARTICLE DISTRIBUTE +=head1 DISTRIBUTE ARTICLES =head2 distribute_article($mid) -distribute article. +distribute article holded in the moderation queue. =cut |