write a .langs file with human-readable langs list

1 files changed, 6 insertions, 0 deletions

diff --git a/draklive b/draklive
index e6aa20a..2867424 100755
--- a/draklive
+++ b/draklive
@@ -862,6 +862,12 @@ sub post_install_system {
     mkdir_p(dirname($lst));
     run_("chroot " . get_system_root($live) . " rpm -qa | sort > " . $lst);
 
+    require lang;
+    my @live_langs = get_langs($live);
+    my @langs = grep { member(lang::locale_to_main_locale($_), @live_langs) } lang::list_langs();
+    my $langs_file = get_builddir($live) . $live->{prefix}{build}{dist} . '/' . get_live_name($live) . '.langs';
+    output_p($langs_file, map { lang::l2name($_) . " (" . $_ . ")\n" } sort(@langs));
+
     umask $previous_umask;
 }