[open-ils-commits] r12295 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-02-25 00:33:31 -0500 (Wed, 25 Feb 2009)
New Revision: 12295

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
Log:
plugging in TT; a bit of documentation in the ABOUT() sub. I suggest this as convention

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm	2009-02-25 03:36:08 UTC (rev 12294)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor/StaticEmail.pm	2009-02-25 05:33:31 UTC (rev 12295)
@@ -9,13 +9,29 @@
 my $log = 'OpenSRF::Utils::Logger';
 
 my $default_template = <<TT;
-To: [%- env.params.recipient -%]
-From: [%- env.params.sender -%]
-Subject: [%- env.params.subject -%]
+To: [%- params.recipient -%]
+From: [%- params.sender -%]
+Subject: [%- params.subject -%]
 
-[% env.params.body %]
+[% params.body %]
 TT
 
+sub ABOUT {
+    return <<ABOUT;
+
+The StagicEmail Reactor Module sends an email to the address specified by the
+"recipient" parameter.  This is the only required parameter (in fact the
+template is not even required), though sender, subject and body parameters are
+also accepted and used by the default template.
+
+The default template looks like:
+-------
+$default_template
+-------
+
+ABOUT
+}
+
 sub handler {
     my $self = shift;
     my $env = shift;
@@ -25,17 +41,19 @@
     $$env{params}{sender} ||= $conf->config_value('email_notify', 'sender_address');
     $$env{params}{subject} ||= 'Test subject -- StaticEmail Reactor';
     $$env{params}{body} ||= 'Test body -- StaticEmail Reactor';
+    $$env{template} ||= $default_template;
 
     $$env{params}{recipient} or return 0;
 
+    my $text = $self->run_TT($env);
+    return 0 if (!$text);
+
     $logger->info("StaticEmail Reactor: sending email to ".
         $$env{params}{recipient}." via SMTP server $smtp");
 
     my $sender = Email::Send->new({mailer => 'SMTP'});
     $sender->mailer_args([Host => $smtp]);
 
-    my $TT = $$env{template} || $default_template;
-    my $text = ''; # XXX TemplateToolkit stuff goes here...
 
     my $stat;
     my $err;