Merge branch 'master' of http://scm.trinitydesktop.org/scm/git/tdelibs

1 files changed, 35 insertions, 0 deletions

diff --git a/tdeabc/scripts/createisomap.pl b/tdeabc/scripts/createisomap.pl
new file mode 100755
index 000000000..897cd4896
--- /dev/null
+++ b/tdeabc/scripts/createisomap.pl
@@ -0,0 +1,35 @@
+#!/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";