From 11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 29 Sep 2004 04:15:41 +0000
Subject: install_urpmi now writes a names file for each media

---
 perl-install/install_any.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ac074414e..4aed8387c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -878,6 +878,16 @@ sub install_urpmi {
 		close $LIST;
 	    }
 
+	    #- build a names file
+	    if (open my $F, ">", "$prefix/var/lib/urpmi/names.$name") {
+		if (defined $_->{start} && defined $_->{end}) {
+		    foreach ($_->{start} .. $_->{end}) {
+			print $F $packages->{depslist}[$_]->name . "\n";
+		    }
+		}
+		close $F;
+	    }
+
 	    #- build synthesis file if there are still not existing (ie not copied from mirror).
 	    if (-s "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz" <= 32) {
 		unlink "$prefix/var/lib/urpmi/synthesis.hdlist.$name.cz";
-- 
cgit v1.2.1