summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-29 04:15:41 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-29 04:15:41 +0000
commit11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5 (patch)
treedb096b02ec049cc25b891fcaae8589dd39457e3a /perl-install
parentf8501a2cf99ac7ad9e1ad742617356f2e026f10a (diff)
downloaddrakx-backup-do-not-use-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar
drakx-backup-do-not-use-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.gz
drakx-backup-do-not-use-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.bz2
drakx-backup-do-not-use-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.tar.xz
drakx-backup-do-not-use-11c5ac20770a7c6f1e95b1fd32f4df05ffc17fe5.zip
install_urpmi now writes a names file for each media
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm10
1 files changed, 10 insertions, 0 deletions
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";