]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - tools/sort_strings.pl
2 ############################################################################
4 # This file is part of the IPCop Firewall. #
6 # IPCop is free software; you can redistribute it and/or modify #
7 # it under the terms of the GNU General Public License as published by #
8 # the Free Software Foundation; either version 2 of the License, or #
9 # (at your option) any later version. #
11 # IPCop is distributed in the hope that it will be useful, #
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
14 # GNU General Public License for more details. #
16 # You should have received a copy of the GNU General Public License #
17 # along with IPCop; if not, write to the Free Software #
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
20 # Copyright (C) 2004-03-12 Mark Wormgoor <mark@wormgoor.com> #
22 ############################################################################
27 my $lang = "$ARGV[0]";
29 print "ERROR: Please give me a language!\n";
33 require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
35 open(FILE
,">${basedir}/langs/$lang/cgi-bin/$lang.pl");
43 for my $key ( sort (keys %tr) ) {
44 my $value = $tr{$key};
52 $value =~ s/\'/\\\'/g;
53 print FILE
"\'$key\' => \'$value\',\n";
56 print FILE
");\n\n#EOF\n";