diff options
| author | fukachan <fukachan> | 2002-02-23 10:22:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-02-23 10:22:16 +0000 |
| commit | 02d0774808609d69427fc601dae4a9fa27e127bf (patch) | |
| tree | 673468e36a0fd03377d734f3084bb373f7da33b7 /fml/lib/FML/Command/Admin | |
| parent | a0df002a28bf4f95b35fadea3f6473cc0f675964 (diff) | |
| download | fml8-02d0774808609d69427fc601dae4a9fa27e127bf.tar.gz fml8-02d0774808609d69427fc601dae4a9fa27e127bf.tar.bz2 fml8-02d0774808609d69427fc601dae4a9fa27e127bf.zip | |
fix filename= in mime header
Diffstat (limited to 'fml/lib/FML/Command/Admin')
| -rw-r--r-- | fml/lib/FML/Command/Admin/get.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Command/Admin/get.pm b/fml/lib/FML/Command/Admin/get.pm index 8da03d98..56d43348 100644 --- a/fml/lib/FML/Command/Admin/get.pm +++ b/fml/lib/FML/Command/Admin/get.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: get.pm,v 1.9 2002/02/20 14:10:37 fukachan Exp $ +# $FML: get.pm,v 1.10 2002/02/23 10:04:03 fukachan Exp $ # package FML::Command::Admin::get; @@ -76,12 +76,12 @@ sub process use File::Spec; my $file = File::Spec->catfile($ml_home_dir, $f); - Log("send back $file"); # XXX but return to whom ? - if (-f $file) { - Log("send back $file"); - $command_args->{ _file_to_send } = $file; + Log("send back $f"); + $command_args->{ _filename_to_send } = $f; + $command_args->{ _file_to_send } = $file; $self->send_file($curproc, $command_args); + delete $command_args->{ _filename_to_send }; delete $command_args->{ _file_to_send }; } else { |