From f4338c0b4202c8ec37bc838c012268615f58f40c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 11 Dec 2007 13:59:03 +0000
Subject: [PATCH] kleines Script zum konvertieren von perl html -> template
 html

---
 scripts/pl2tmpl.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 scripts/pl2tmpl.pl

diff --git a/scripts/pl2tmpl.pl b/scripts/pl2tmpl.pl
new file mode 100755
index 000000000..bd4d4d5f0
--- /dev/null
+++ b/scripts/pl2tmpl.pl
@@ -0,0 +1,15 @@
+#!/usr/local/bin/perl -pli.orig
+
+#
+# perlcode -> template converter
+#
+# there's ugly perl generated html in your xy.pl?
+# no problem. copy&paste it into a separate html file, remove 'qq|' and '|;' and use this script to fix most of the rest.
+#
+# use: perl pl2tmpl.pl <file>
+#
+# will save the original file as file.orig
+#
+
+s/\$form->\{(?:"([^}]+)"|([^}]+))\}/[% $+ %]/g;
+s/\| \s* \. \s* \$locale->text \( ' ([^)]+) ' \) \s* \. \s* qq\|/<translate>$1<\/translate>/xg;
-- 
2.20.1