diff options
Diffstat (limited to 'build/i18n-html2lua.pl')
-rwxr-xr-x | build/i18n-html2lua.pl | 48 |
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}; - } -} |