Calamaris-Proxy-Logdatei-Analyzer eingebaut.
[people/pmueller/ipfire-2.x.git] / tools / sort_strings.pl
1 #!/usr/bin/perl -w
2 ############################################################################
3 # #
4 # This file is part of the IPCop Firewall. #
5 # #
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. #
10 # #
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. #
15 # #
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 #
19 # #
20 # Copyright (C) 2004-03-12 Mark Wormgoor <mark@wormgoor.com> #
21 # #
22 ############################################################################
23
24 use Cwd;
25 my $basedir = cwd();
26
27 my $lang = "$ARGV[0]";
28 if ( $lang eq "") {
29 print "ERROR: Please give me a language!\n";
30 exit;
31 }
32
33 require "${basedir}/langs/$lang/cgi-bin/$lang.pl";
34
35 open(FILE,">${basedir}/langs/$lang/cgi-bin/$lang.pl");
36
37 print FILE <<EOF;
38 \%tr = (
39 \%tr,
40
41 EOF
42
43 for my $key ( sort (keys %tr) ) {
44 my $value = $tr{$key};
45 $value =~ s/ä/ä/g;
46 $value =~ s/ö/ö/g;
47 $value =~ s/ü/ü/g;
48 $value =~ s/Ä/Ã\84/g;
49 $value =~ s/Ö/Ã\96/g;
50 $value =~ s/Ü/Ã\9c/g;
51 $value =~ s/ß/Ã\9f/g;
52 $value =~ s/\'/\\\'/g;
53 print FILE "\'$key\' => \'$value\',\n";
54 }
55
56 print FILE ");\n\n#EOF\n";