blob: f901e1140b727d5cc1e997ab20daa097ca2a0951 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#!/usr/bin/perl
use strict;
use warnings;
my $replacement_file = $ARGV[0];
my $language_dir = $ARGV[1];
# load the new values for given keys
my %new_value_of = ();
open(my $ifh_rep, '<'.$replacement_file);
while (<$ifh_rep>) {
if (m/^\$lang\['(.*)'\] \s* = \s* (.*);/x) {
$new_value_of{$1} = $2;
}
}
# use Data::Dumper; print Dumper(\%new_value_of); exit();
my %replacement_performed_for = ();
foreach my $file_code (qw/upgrade install admin common plugin/) {
my $filename = $language_dir.'/'.$file_code.'.lang.php';
# print $filename;
if (not -f $filename) {
# print ' is missing', "\n";
next;
}
print $filename.' is under process', "\n";
my $file_content = '';
open(my $ifh, '<'.$filename);
while (my $line = <$ifh>) {
if ($line =~ m/^\$lang\['(.*)'\] \s* =/x) {
if (defined $new_value_of{$1}) {
$file_content.= '$lang[\''.$1.'\'] = '.$new_value_of{$1}.';'."\n";
$replacement_performed_for{$1}++;
}
else {
$file_content.= $line;
}
}
elsif ($line =~ m/^?>/) {
$file_content.= $line;
}
else {
$file_content.= $line;
}
}
close($ifh);
open(my $ofh, '>'.$filename);
print {$ofh} $file_content;
close($ofh);
}
foreach my $new_value (keys %new_value_of) {
if (not defined $replacement_performed_for{$new_value}) {
print 'no replacement performed on: ', $new_value, "\n";
}
}
|
