diff options
| author | fukachan <fukachan> | 2004-07-23 13:16:30 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-07-23 13:16:30 +0000 |
| commit | 017265cfc701f6abcd99f52a0fa6eb9516fd510f (patch) | |
| tree | 971613cdfec2b93173ad88a8dfa579dc29ba5ac3 /fml/lib/FML/Command/SendFile.pm | |
| parent | 1359417a1475d1530200003dd4005954bff51c50 (diff) | |
| download | fml8-017265cfc701f6abcd99f52a0fa6eb9516fd510f.tar.gz fml8-017265cfc701f6abcd99f52a0fa6eb9516fd510f.tar.bz2 fml8-017265cfc701f6abcd99f52a0fa6eb9516fd510f.zip | |
fix comments (FNF)
Diffstat (limited to 'fml/lib/FML/Command/SendFile.pm')
| -rw-r--r-- | fml/lib/FML/Command/SendFile.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm index 4a35c472..5075d77a 100644 --- a/fml/lib/FML/Command/SendFile.pm +++ b/fml/lib/FML/Command/SendFile.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: SendFile.pm,v 1.39 2004/03/23 06:34:15 fukachan Exp $ +# $FML: SendFile.pm,v 1.40 2004/04/23 04:10:31 fukachan Exp $ # package FML::Command::SendFile; @@ -18,7 +18,7 @@ my $debug = 0; =head1 NAME -FML::Command::SendFile - utility functions to send back file(s) +FML::Command::SendFile - utility functions to send back file(s). =head1 SYNOPSIS @@ -50,7 +50,7 @@ C<FML::Command::Admin> modules. # Descriptions: return the number of files specified in $command_args. # Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) # Side Effects: none -# Return Value: none +# Return Value: NUM sub num_files_in_send_article_args { my ($self, $curproc, $command_args) = @_; @@ -137,7 +137,7 @@ sub send_article } -# Descriptions: check the argument and expand it if needed +# Descriptions: check the argument and expand it if needed. # Arguments: OBJ($self) OBJ($curproc) STR($fn) # Side Effects: none # Return Value: ARRAY_REF as [ $fist .. $last ] @@ -181,12 +181,12 @@ sub send_file my $config = $curproc->config(); # XXX get_charset() take Accpet-Language: header field into account. - my $charset = $curproc->get_charset("reply_message"); + my $charset = $curproc->get_charset("reply_message"); # XXX-TODO: who validate $filename and $filepath ? $curproc->log("send_file: $filepath"); - # template substitution: kanji code, $varname expansion et. al. + # template substitution: kanji code, $varname expansion et.al. # we prepare file to send back which has proper kanji code et.al. my $params = { src => $filepath, |