From 8d3fcac6a40fe765c8a1a11e5c180494e9388b69 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Wed, 10 Jul 2013 12:59:05 -0700
Subject: ExtractCustomFieldValues extension for RT, #9728

---
 .../ExtractCustomFieldValuesWithCodeInTemplate.pm  | 30 ++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 rt/lib/RT/Action/ExtractCustomFieldValuesWithCodeInTemplate.pm

(limited to 'rt/lib/RT/Action/ExtractCustomFieldValuesWithCodeInTemplate.pm')

diff --git a/rt/lib/RT/Action/ExtractCustomFieldValuesWithCodeInTemplate.pm b/rt/lib/RT/Action/ExtractCustomFieldValuesWithCodeInTemplate.pm
new file mode 100644
index 000000000..e05966be2
--- /dev/null
+++ b/rt/lib/RT/Action/ExtractCustomFieldValuesWithCodeInTemplate.pm
@@ -0,0 +1,30 @@
+package RT::Action::ExtractCustomFieldValuesWithCodeInTemplate;
+use strict;
+use warnings;
+
+use base qw(RT::Action::ExtractCustomFieldValues);
+
+sub TemplateContent {
+    my $self = shift;
+    my $is_broken = 0;
+
+    my $content = $self->TemplateObj->Content;
+
+    my $template = Text::Template->new(TYPE => 'STRING', SOURCE => $content);
+    my $new_content = $template->fill_in(
+        BROKEN => sub {
+            my (%args) = @_;
+            $RT::Logger->error("Template parsing error: $args{error}")
+                unless $args{error} =~ /^Died at /; # ignore intentional die()
+            $is_broken++;
+            return undef;
+        },
+    );
+
+    return (undef, $self->loc('Template parsing error')) if $is_broken;
+
+    return $new_content;
+}
+
+1;
+
-- 
cgit v1.2.1