diff options
Diffstat (limited to 'tools/uplang')
-rwxr-xr-x | tools/uplang | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tools/uplang b/tools/uplang index 41730fb3d3..4e581f600e 100755 --- a/tools/uplang +++ b/tools/uplang | |||
@@ -26,6 +26,7 @@ while(<ENG>) { | |||
26 | # the last one for a single phrase | 26 | # the last one for a single phrase |
27 | $all{$set{'id'}, 'desc'}=$set{'desc'}; | 27 | $all{$set{'id'}, 'desc'}=$set{'desc'}; |
28 | $all{$set{'id'}, 'eng'}=$set{'eng'}; | 28 | $all{$set{'id'}, 'eng'}=$set{'eng'}; |
29 | $all{$set{'id'}, 'voice'}=$set{'voice'}; | ||
29 | 30 | ||
30 | $ids{$set{'id'}}=1; | 31 | $ids{$set{'id'}}=1; |
31 | undef %set; | 32 | undef %set; |
@@ -58,20 +59,27 @@ while(<NEW>) { | |||
58 | 59 | ||
59 | print "\nid: ".$set{'id'}."\n"; | 60 | print "\nid: ".$set{'id'}."\n"; |
60 | 61 | ||
61 | |||
62 | if($set{'desc'} ne $all{$set{'id'}, 'desc'}) { | 62 | if($set{'desc'} ne $all{$set{'id'}, 'desc'}) { |
63 | print "### Description changed! Previous description was:\n", | 63 | print "### Description changed! Previous description was:\n", |
64 | "### \"".$set{'desc'}."\"\n"; | 64 | "### \"".$set{'desc'}."\"\n"; |
65 | $set{'desc'} = $all{$set{'id'}, 'desc'}; | 65 | $set{'desc'} = $all{$set{'id'}, 'desc'}; |
66 | } | 66 | } |
67 | |||
68 | print "desc: ".$set{'desc'}."\n"; | 67 | print "desc: ".$set{'desc'}."\n"; |
68 | |||
69 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { | 69 | if($set{'eng'} ne $all{$set{'id'}, 'eng'}) { |
70 | print "### English phrase was changed! Previous translation was made on:\n", | 70 | print "### English phrase was changed! Previous translation was made on:\n", |
71 | "### ".$set{'eng'}."\n"; | 71 | "### ".$set{'eng'}."\n"; |
72 | $set{'eng'} = $all{$set{'id'}, 'eng'}; | 72 | $set{'eng'} = $all{$set{'id'}, 'eng'}; |
73 | } | 73 | } |
74 | print "eng: ".$set{'eng'}."\n"; | 74 | print "eng: ".$set{'eng'}."\n"; |
75 | |||
76 | if($set{'voice'} ne $all{$set{'id'}, 'voice'}) { | ||
77 | print "### Voice string was changed! Previous version was:\n", | ||
78 | "### ".$set{'voice'}."\n"; | ||
79 | $set{'voice'} = $all{$set{'id'}, 'voice'}; | ||
80 | } | ||
81 | print "voice: ".$set{'voice'}."\n"; | ||
82 | |||
75 | print "new: ".$set{'new'}."\n"; | 83 | print "new: ".$set{'new'}."\n"; |
76 | 84 | ||
77 | $ids{$set{'id'}}=0; | 85 | $ids{$set{'id'}}=0; |