diff options
| author | fukachan <fukachan> | 2003-08-29 15:33:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-29 15:33:54 +0000 |
| commit | e460ae393d4c06ac2219811653b1388acf28bebb (patch) | |
| tree | 5c04b53bb40f2e2e749db3be89dd9db9920830bb /fml/lib/FML/Command/SendFile.pm | |
| parent | 69b67704253d230af64d85a6b8b91ed4b9bac14d (diff) | |
| download | fml8-e460ae393d4c06ac2219811653b1388acf28bebb.tar.gz fml8-e460ae393d4c06ac2219811653b1388acf28bebb.tar.bz2 fml8-e460ae393d4c06ac2219811653b1388acf28bebb.zip | |
use $curproc->config(), pcb() not { config }, { pcb } respectively.
Diffstat (limited to 'fml/lib/FML/Command/SendFile.pm')
| -rw-r--r-- | fml/lib/FML/Command/SendFile.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm index 30631ab6..7d5aa553 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.29 2003/08/23 04:35:29 fukachan Exp $ +# $FML: SendFile.pm,v 1.30 2003/08/23 07:24:42 fukachan Exp $ # package FML::Command::SendFile; @@ -82,7 +82,7 @@ sub send_article { my ($self, $curproc, $command_args) = @_; my $command = $command_args->{ command }; - my $config = $curproc->{ config }; + my $config = $curproc->config(); my $ml_name = $config->{ ml_name }; my $spool_dir = $config->{ spool_dir }; my $charset = $config->{ template_file_charset }; @@ -175,7 +175,7 @@ sub send_file my ($self, $curproc, $command_args) = @_; my $filename = $command_args->{ _filename_to_send }; my $filepath = $command_args->{ _filepath_to_send }; - my $config = $curproc->{ config }; + my $config = $curproc->config(); # XXX-TODO: handle non Japanese. # XXX-TODO: care for Accept-Language: header field. @@ -224,7 +224,7 @@ Sebd back the default help message if not found. sub send_user_xxx_message { my ($self, $curproc, $command_args, $type) = @_; - my $config = $curproc->{ config }; + my $config = $curproc->config(); # XXX-TODO: care for non Japanese # XXX-TODO: hmm, we can handle file.ja file.ja.euc file.en file.ru ? |