diff options
Diffstat (limited to 'tools/uplang')
-rwxr-xr-x | tools/uplang | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tools/uplang b/tools/uplang index f63edd372a..983a624e58 100755 --- a/tools/uplang +++ b/tools/uplang | |||
@@ -8,12 +8,14 @@ MOO | |||
8 | exit; | 8 | exit; |
9 | } | 9 | } |
10 | 10 | ||
11 | my %ids; | ||
11 | open(ENG, "<$ARGV[0]"); | 12 | open(ENG, "<$ARGV[0]"); |
12 | while(<ENG>) { | 13 | while(<ENG>) { |
13 | if($_ =~ / *\#/) { | 14 | if($_ =~ / *\#/) { |
14 | # comment | 15 | # comment |
15 | next; | 16 | next; |
16 | } | 17 | } |
18 | $_ =~ s/\r//g; | ||
17 | if($_ =~ / *([a-z]+): *(.*)/) { | 19 | if($_ =~ / *([a-z]+): *(.*)/) { |
18 | ($var, $value) = ($1, $2); | 20 | ($var, $value) = ($1, $2); |
19 | # print "$var => $value\n"; | 21 | # print "$var => $value\n"; |
@@ -39,6 +41,8 @@ while(<NEW>) { | |||
39 | # comment | 41 | # comment |
40 | next; | 42 | next; |
41 | } | 43 | } |
44 | $_ =~ s/\r//g; | ||
45 | |||
42 | if($_ =~ / *([a-z]+): *(.*)/) { | 46 | if($_ =~ / *([a-z]+): *(.*)/) { |
43 | ($var, $value) = ($1, $2); | 47 | ($var, $value) = ($1, $2); |
44 | 48 | ||
@@ -47,11 +51,16 @@ while(<NEW>) { | |||
47 | if($var eq "new") { | 51 | if($var eq "new") { |
48 | # the last one for a single phrase | 52 | # the last one for a single phrase |
49 | 53 | ||
54 | if(!$ids{$set{'id'}}) { | ||
55 | print "### ".$set{'id'}." was not found in the english file!\n"; | ||
56 | next; | ||
57 | } | ||
58 | |||
50 | print "\nid: ".$set{'id'}."\n"; | 59 | print "\nid: ".$set{'id'}."\n"; |
51 | print "desc: ".$set{'desc'}."\n"; | 60 | print "desc: ".$set{'desc'}."\n"; |
52 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { | 61 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { |
53 | print "### English phrase was changed! Previous translation was made on:\n", | 62 | print "### English phrase was changed! Previous translation was made on:\n", |
54 | "### ".$set{'eng'}."\n"; | 63 | "### ".$all{$set{'id'}, 'eng'}."\n"; |
55 | $set{'eng'} = $all{$set{'id'}, 'eng'}; | 64 | $set{'eng'} = $all{$set{'id'}, 'eng'}; |
56 | } | 65 | } |
57 | print "eng: ".$set{'eng'}."\n"; | 66 | print "eng: ".$set{'eng'}."\n"; |