From b75a258aecab4f863446e078b10f10ad4ddbfcab Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jow@openwrt.org>
Date: Sat, 9 May 2009 02:46:39 +0000
Subject: [PATCH] build: add script to extract i18n tags from templates

---
 build/i18n-html2lua.pl | 48 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100755 build/i18n-html2lua.pl

diff --git a/build/i18n-html2lua.pl b/build/i18n-html2lua.pl
new file mode 100755
index 0000000000..c6b893eee4
--- /dev/null
+++ b/build/i18n-html2lua.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+@ARGV || die "Usage: $0 template1.htm [... templateN.htm]\n";
+
+
+my %tags;
+
+foreach my $file ( @ARGV )
+{
+	if( open F, "< $file" )
+	{
+		local $/ = undef;
+
+		my $data = <F>;
+
+		while( $data =~ m/ <%: -? (\w+) (.*?) %> /sgx )
+		{
+			my ( $key, $val ) = ( $1, $2 );
+
+			if( $key && $val )
+			{
+				$val =~ s/\s+/ /sg;
+				$val =~ s/^\s+//;
+				$val =~ s/\s+$//;
+
+				$tags{$key} = $val;
+			}
+			else
+			{
+				$tags{$key} ||= '';
+			}
+		}
+
+		close F;
+	}
+}
+
+foreach my $key ( sort keys %tags )
+{
+	if( $val =~ /'/ )
+	{
+		printf "%s = [[%s]]\n", $key, $tags{$key};
+	}
+	else
+	{
+		printf "%s = '%s'\n", $key, $tags{$key};
+	}
+}
-- 
2.30.2