summaryrefslogtreecommitdiffhomepage
path: root/build/i18n-html2lua.pl
diff options
context:
space:
mode:
Diffstat (limited to 'build/i18n-html2lua.pl')
-rwxr-xr-xbuild/i18n-html2lua.pl48
1 files changed, 0 insertions, 48 deletions
diff --git a/build/i18n-html2lua.pl b/build/i18n-html2lua.pl
deleted file mode 100755
index c6b893eee4..0000000000
--- a/build/i18n-html2lua.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/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};
- }
-}