kleines Script zum konvertieren von perl html -> template html
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 11 Dec 2007 13:59:03 +0000 (13:59 +0000)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 11 Dec 2007 13:59:03 +0000 (13:59 +0000)
scripts/pl2tmpl.pl [new file with mode: 0755]

diff --git a/scripts/pl2tmpl.pl b/scripts/pl2tmpl.pl
new file mode 100755 (executable)
index 0000000..bd4d4d5
--- /dev/null
@@ -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;