source: trunk/tools/convert_template_to_2.1.pl @ 15224

Last change on this file since 15224 was 5612, checked in by plg, 14 years ago

Here comes a beta script to convert language keys in a set of 2.0 *.tpl files.
Backup your *.tpl directory first.

  • Property svn:eol-style set to LF
File size: 1.1 KB
Line 
1#!/usr/bin/perl
2
3# perl tools/convert_template_to_2.1.pl /path/to/tpl/files/directory
4
5use strict;
6use warnings;
7
8use File::Find;
9
10my $base_dir = $ARGV[0];
11
12# load the replacements
13my @file_codes = qw/upgrade install admin common/;
14my %replace_by = ();
15foreach my $file_code (@file_codes) {
16    open(my $ifh_rep, '<language/templates/'.$file_code.'.lang.php');
17    while (<$ifh_rep>) {
18        if (m/^\$lang\['(.*)'\] \s* = \s* (['"])(.*)\2;/x) {
19            if ($1 ne $3 and length($1) > 0) {
20                $replace_by{$1} = $3;
21            }
22        }
23    }
24}
25# use Data::Dumper; print Dumper(\%replace_by); exit();
26
27find(\&replace_keys, $base_dir);
28
29sub replace_keys {
30    if ($File::Find::name !~ m/tpl$/) {
31        return 0;
32    }
33
34    my $file_content = '';
35    open(my $fhi, '<', $File::Find::name);
36    while (<$fhi>) {
37        foreach my $from (keys %replace_by) {
38            my $to = $replace_by{$from};
39            s/{'$from'\|\@translate/{'$to'|\@translate/g;
40        }
41        $file_content.= $_;
42    }
43    close($fhi);
44
45    open(my $fho, '>', $File::Find::name);
46    print {$fho} $file_content;
47    close($fho);
48}
Note: See TracBrowser for help on using the repository browser.