basic TT processor

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12294 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
index d405161..7e7fff0 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm
@@ -1,5 +1,25 @@
 package OpenILS::Application::Trigger::Reactor;
+use Template;
+use OpenSRF::Utils::Logger qw(:logger);
+
 sub fourty_two { return 42 }
 sub NOOP_True { return 1 }
 sub NOOP_False { return 0 }
+
+
+# processes templates.  Returns template output on success, undef on error
+sub run_TT {
+    my $self = shift;
+    my $env = shift;
+    return '' unless $env->{template};
+
+    my $output = '';
+    my $tt = Template->new;
+
+    $tt->process($env->{template}, $env, \$output) or 
+        $logger->error("Error processing Trigger template: " . $tt->error);
+
+    return $output;
+}
+
 1;