#-*- perl -*- # # Copyright (C) 2001,2002,2003,2005,2006 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: send.pm,v 1.13 2003/12/31 04:08:45 fukachan Exp $ # package FML::Command::User::send; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; use FML::Command::User::get; @ISA = qw(FML::Command::User::get); # Descriptions: send back article(s) # Arguments: OBJ($self) OBJ($curproc) OBJ($command_context) # Side Effects: forward request to get module # Return Value: none sub process { my ($self, $curproc, $command_context) = @_; $self->SUPER::process($curproc, $command_context); } =head1 NAME FML::Command::User::send - send back article(s) =head1 SYNOPSIS forwarded C. =head1 DESCRIPTION send back article(s). An alias of C. =head1 CODING STYLE See C on fml coding style guide. =head1 AUTHOR Ken'ichi Fukamachi =head1 COPYRIGHT Copyright (C) 2001,2002,2003,2005,2006 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. =head1 HISTORY FML::Command::User::send first appeared in fml8 mailing list driver package. See C for more details. =cut 1;