diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-09-10 07:02:03 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2013-09-10 07:02:03 +0000 |
| commit | 2e7712a526556ead476ead3083039417f7eba863 (patch) | |
| tree | 08d39530aa68819d3b3b6dd2faa5809820d8f4a4 /tools/lpgen/trans.pl | |
| parent | 1c9438df505e5fb6d47d3bc2e806be352f1a573f (diff) | |
- Old stuff moved to deprecated
git-svn-id: http://svn.miranda-ng.org/main/trunk@6039 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'tools/lpgen/trans.pl')
| -rw-r--r-- | tools/lpgen/trans.pl | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/tools/lpgen/trans.pl b/tools/lpgen/trans.pl deleted file mode 100644 index 5bd15f57ce..0000000000 --- a/tools/lpgen/trans.pl +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/perl
-#
-# Script generating new translation from template, using old translation
-#
-# Miranda IM: the free IM client for Microsoft* Windows*
-#
-# Copyright 2000-2008 Miranda ICQ/IM project,
-# all portions of this codebase are copyrighted to the people
-# listed in contributors.txt.
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
-use POSIX;
-
-if(@ARGV < 2)
-{
- print "trans <to translate> <old translation> [<next old translation> ...]\n";
- exit;
-}
-
-my $key;
-my %trans;
-my $totrans = shift @ARGV;
-while(@ARGV)
-{
- my $oldtrans = shift @ARGV;
- open OT, "<$oldtrans" or die "Error: Cannot open translation";
- while(<OT>)
- {
- chop;
- if(m/^\[(.*)\]/)
- { $key = $1; next; }
- elsif($key and !$trans{$key} and !m/^;/)
- { $trans{$key} = $_; $key = 0; }
- }
-}
-
-open TT, "<$totrans" or die "Error: Cannot open file to translate";
-while(<TT>)
-{
- if(m/^;\[(.*)\]/ and $trans{$1})
- {
- print "[$1]\n";
- print $trans{$1};
- print "\n";
- }
- else
- { print; }
-}
-
-close TT;
-close OT;
|