1 files changed, 20 insertions, 0 deletions
diff --git a/debian/make-template.pl b/debian/make-template.pl
new file mode 100755
index 0000000..179f28e
--- /dev/null
+++ b/debian/make-template.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+
+open (MAPLIST, $ARGV[0]) || die "Failed to open $ARGV[0]\n";
+
+print "Template: $ARGV[0]/keymap\n";
+print "Type: select\n";
+
+$keymaps = "";
+
+while (<MAPLIST>) {
+	($langs,$name,$english) = split ;
+	if ($keymaps eq "") { 
+		$keymaps = $name;
+	} else {
+		$keymaps = join (', ', $keymaps, $name);
+	}		
+}
+
+print "__Choices: $keymaps\n";