You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1003 B
36 lines
1003 B
#!/usr/bin/perl
|
|
#
|
|
# Create a translation table countryname->iso-code from the entry.desktop
|
|
# files in tdebase/l10n/*/
|
|
#
|
|
# USAGE EXAMPLE:
|
|
# ./createisomap.pl $TDEDIR/share/locale/l10n > countrytransl.map
|
|
#
|
|
# Don't laugh at me. I put this together with an old perl book, perl
|
|
# being a language I've never used before.
|
|
|
|
@entries = <$ARGV[0]/*/entry.desktop>;
|
|
chomp @entries;
|
|
foreach $entry (@entries) {
|
|
local ( $entryiso, @entryfile, @mappings );
|
|
# print "--> $entry\n";
|
|
$entryiso = $entry;
|
|
$entryiso =~ s/$ARGV[0]\///;
|
|
$entryiso =~ s/\/entry\.desktop//;
|
|
# print " $entryiso\n";
|
|
open (IN, $entry);
|
|
@entryfile = <IN>;
|
|
close IN;
|
|
chomp @entryfile;
|
|
foreach $entryfileline (@entryfile) {
|
|
if ( $entryfileline =~ /^Name.*=(.*)$/ ) {
|
|
# push (@mappings, $1 . "\t" . $entryiso );
|
|
print "$1\t$entryiso\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
# add some convenience entries which aren't part of the entry.desktop files
|
|
|
|
print "Czech Republic\tcz\n";
|