のみまくし日記

毎日が文化祭の前日、そんな環境っていいですよね。この日記は未来の自分へのメッセージです。

2006年03月20日 ()

Sledge::Plugin::Email::Japanese で config

Sledge::Plugin::Email::Japaneseで標準で config も渡して欲しいので、パッチ。

--- Japanese.pm.org     2006-03-20 20:40:17.000000000 +0900
+++ Japanese.pm 2006-03-20 20:40:26.000000000 +0900
@@ -19,22 +19,24 @@
             $body = $2;
         }

-        my $conf = $self->create_config->email;
+        my $config = $self->create_config;
+        my $email_conf = $config->email;
         my $option = {
             LineWidth => 0,
             Template => \$body,
-            %$conf,
+            %$email_conf,
             %$args,
         };
         $option->{TmplParams}->{r} ||= $self->r;
         $option->{TmplParams}->{session} ||= $self->session;
+        $option->{TmplParams}->{config}  ||= $config;

         my $msg = MIME::Lite::TT::Japanese->new(%$option);
         if ($self->debug_level) {
             $msg->print(\*STDERR);
             $self->session->param('last_mail' => $msg->as_string);
         }
-        $msg->send(@{$sendmail_opt || $conf->{send}});
+        $msg->send(@{$sendmail_opt || $email_conf->{send}});
     };
 }

Perl posted by takefumi | この日記へリンク | コメント(1) | トラックバック(0)

この日記へのトラックバック

この日記へのコメント

CPAN にアップしたので、しばらくしたら反映されると思います。

posted by tokuhirom at 2008年12月02日 21時18分 #