From f748c26b26f537c6a73c65e6c5ffedd23a94a5f4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 31 Mar 2008 14:48:40 +0000
Subject: write full list of rpm packages and list of rpm leaves, sorted by
 package size

---
 draklive | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/draklive b/draklive
index d35b19c..59fe60e 100755
--- a/draklive
+++ b/draklive
@@ -870,6 +870,16 @@ sub write_dist_lists {
     mkdir_p(dirname($lst));
     run_("chroot " . get_system_root($live) . " rpm -qa | sort > " . $lst);
 
+    my $full = get_builddir($live) . $live->{prefix}{build}{dist} . '/' . get_live_name($live) . '.lst.full';
+    mkdir_p(dirname($full));
+    run_("chroot " . get_system_root($live) .
+           qq( sh -c "rpm -qa --qf '%{size}      \t%{name}\n' | sort -n" > ) . $full);
+
+    my $leaves = get_builddir($live) . $live->{prefix}{build}{dist} . '/' . get_live_name($live) . '.lst.leaves';
+    mkdir_p(dirname($leaves));
+    run_("chroot " . get_system_root($live) .
+           qq( sh -c "urpmi_rpm-find-leaves | xargs rpm -q --qf '%{size}       \t%{name}\n' | sort -n" > ) . $leaves);
+
     require lang;
     my @live_langs = get_langs($live);
     my @langs = grep { member(lang::locale_to_main_locale($_), @live_langs) } lang::list_langs();
-- 
cgit v1.2.1