X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=intl%2FSesse%3A%3AGettextizeTemplates.pm;fp=intl%2FSesse%3A%3AGettextizeTemplates.pm;h=ec734e0f35000bce4acc4d88370dbbc6fe5df690;hb=2d360215745cb4f4d22697da233b14eaff8ed176;hp=0000000000000000000000000000000000000000;hpb=f3dde0a900066f3d6e73ec41d4bb126128997dea;p=ccbs

diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
new file mode 100644
index 0000000..ec734e0
--- /dev/null
+++ b/intl/Sesse::GettextizeTemplates.pm
@@ -0,0 +1,19 @@
+
+package Sesse::GettextizeTemplates;
+use strict;
+use warnings;
+use Locale::gettext qw(gettext);
+use Template::Directive;
+
+our @ISA = qw(Template::Directive);
+
+sub textblock {
+	my ($self, $text) = @_;
+
+	$text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.gettext($3).$4/seg;
+
+	return $self->SUPER::textblock($text);
+}
+
+
+