diff options
| author | fukachan <fukachan> | 2002-08-17 23:27:33 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-17 23:27:33 +0000 |
| commit | 3b0bcc3557c110fa48ec4dbfd7fbb39b887cda63 (patch) | |
| tree | 3fd490540eea44b6a0cc0a607c03715f4b24b547 /fml/lib/FML/Command/SendFile.pm | |
| parent | 7472ee0372a01bd36001b179bbef612ace64ab4f (diff) | |
| download | fml8-3b0bcc3557c110fa48ec4dbfd7fbb39b887cda63.tar.gz fml8-3b0bcc3557c110fa48ec4dbfd7fbb39b887cda63.tar.bz2 fml8-3b0bcc3557c110fa48ec4dbfd7fbb39b887cda63.zip | |
more debug info.
send_user_xxx_message()
set $command_args->{ _filename_to_send } before calling send_file().
Diffstat (limited to 'fml/lib/FML/Command/SendFile.pm')
| -rw-r--r-- | fml/lib/FML/Command/SendFile.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm index 6381b475..e3943bf5 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.17 2002/07/02 12:05:49 fukachan Exp $ +# $FML: SendFile.pm,v 1.18 2002/07/17 12:09:26 fukachan Exp $ # package FML::Command::SendFile; @@ -14,6 +14,9 @@ use Carp; use File::Spec; use FML::Log qw(Log LogWarn LogError); +my $debug = 0; + + =head1 NAME FML::Command::SendFile - utility functions to send back file(s) @@ -147,6 +150,8 @@ sub send_file my $config = $curproc->{ config }; my $charset = $config->{ reply_message_charset }; + Log("send_file: $filepath"); + # template substitution: kanji code, $varname expansion et. al. my $params = { src => $filepath, @@ -192,6 +197,7 @@ sub send_user_xxx_message # send it. if (-f $config->{ "${type}_file" }) { $command_args->{ _filepath_to_send } = $config->{ "${type}_file" }; + $command_args->{ _filename_to_send } = $type; $self->send_file($curproc, $command_args); } # if "help" is not found, use the default help message. |