From 3b0bcc3557c110fa48ec4dbfd7fbb39b887cda63 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 17 Aug 2002 23:27:33 +0000
Subject: more debug info.

send_user_xxx_message()
set $command_args->{ _filename_to_send } before calling send_file().
---
 fml/lib/FML/Command/SendFile.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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.
-- 
cgit v1.2.1