From d31b1423e7d02392b02ed5336a4ab60fb6c1f236 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 12 Aug 2007 12:54:39 +0000 Subject: rename {mediums} field into {media} to be compatible with urpm:: modules (from urpmi) --- perl-install/install/any.pm | 2 +- perl-install/install/media.pm | 32 ++++++++++++++++---------------- perl-install/install/pkgs.pm | 10 +++++----- perl-install/install/steps_gtk.pm | 2 +- 4 files changed, 23 insertions(+), 23 deletions(-) diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 6a6bb3d4c..3f47b3c82 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -332,7 +332,7 @@ sub selectSupplMedia { $phys_medium->{$field} = $val; #- try using media_info/hdlist.cz - my $medium_id = int(@{$o->{packages}{mediums}}); + my $medium_id = int(@{$o->{packages}{media}}); eval { install::media::get_standalone_medium($o, $phys_medium, $o->{packages}, { name => "Supplementary media $medium_id" }) }; if (!$@) { log::l("read suppl hdlist (via $method)"); diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 549b6f034..576f59ba2 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -25,7 +25,7 @@ use fs::type; #- rel_path (for isofiles and cdrom) #- url -#- list of fields for {mediums} : +#- list of fields for {media} : #- end (last rpm id, undefined iff not selected) #- fakemedium ("$name ($rpmsdir)", used locally by urpmi) #- rel_hdlist @@ -46,36 +46,36 @@ our $postinstall_rpms = ''; my %mounted_media; sub free_medium_id { - my ($mediums) = @_; - int(@$mediums); + my ($media) = @_; + int(@$media); } sub allMediums { my ($packages) = @_; - @{$packages->{mediums}}; + @{$packages->{media}}; } sub phys_media { my ($packages) = @_; - uniq(map { $_->{phys_medium} } @{$packages->{mediums}}); + uniq(map { $_->{phys_medium} } @{$packages->{media}}); } sub pkg2media { - my ($mediums, $p) = @_; + my ($media, $p) = @_; $p or internal_error("invalid package"); find { $_->{selected} && $p->id >= $_->{start} && $p->id <= $_->{end}; - } @$mediums; + } @$media; } sub packageMedium { my ($packages, $p) = @_; - pkg2media($packages->{mediums}, $p) || {}; + pkg2media($packages->{media}, $p) || {}; } sub packagesOfMedium { my ($packages, $medium) = @_; @@ -85,7 +85,7 @@ sub packagesOfMedium { sub first_medium { my ($packages) = @_; - $packages->{mediums}[0]; + $packages->{media}[0]; } sub path { @@ -648,7 +648,7 @@ sub get_media_cfg { associate_phys_media($o->{all_hds}, $phys_medium, $hdlists); - if ($deselectionAllowed && !@{$packages->{mediums}}) { + if ($deselectionAllowed && !@{$packages->{media}}) { my $allow = allow_copy_rpms_on_disk($phys_medium, $hdlists); $o->ask_deselect_media__copy_on_disk($hdlists, $allow && \$o->{copy_rpms_on_disk}) if $allow || @$hdlists > 1; } @@ -682,7 +682,7 @@ sub get_medium { $m->{selected} or log::l("ignoring packages in $m->{rel_hdlist}"), return; - my $medium_id = int @{$packages->{mediums}}; + my $medium_id = int @{$packages->{media}}; $m->{fakemedium} = $m->{name} || $phys_m->{method}; $m->{fakemedium} =~ s!/!_!g; #- remove "/" from name if (find { $m->{fakemedium} eq $_->{fakemedium} } allMediums($packages)) { @@ -727,7 +727,7 @@ sub get_medium { $phys_m->{name} ||= $m->{name}; #- integrate medium in media list, only here to avoid download error (update) to be propagated. - push @{$packages->{mediums}}, $m; + push @{$packages->{media}}, $m; #- parse synthesis (if available) of directly hdlist (with packing). { @@ -755,7 +755,7 @@ sub get_medium { } if ($error) { - pop @{$packages->{mediums}}; + pop @{$packages->{media}}; unlink $hdlist, $synthesis; die $error; } else { @@ -914,7 +914,7 @@ sub parse_url_with_login { sub install_urpmi { my ($stage2_method, $packages) = @_; - my @mediums = @{$packages->{mediums}}; + my @media = @{$packages->{media}}; log::l("install_urpmi $stage2_method"); #- clean to avoid opening twice the rpm db. @@ -923,7 +923,7 @@ sub install_urpmi { #- import pubkey in rpmdb. my $db = install::pkgs::open_rpm_db_rw(); $packages->parse_pubkeys(db => $db); - foreach my $medium (@mediums) { + foreach my $medium (@media) { $packages->import_needed_pubkeys($medium->{pubkey}, db => $db, callback => sub { my (undef, undef, $_k, $id, $imported) = @_; if ($id) { @@ -934,7 +934,7 @@ sub install_urpmi { } my (@cfg, @netrc); - foreach my $medium (@mediums) { + foreach my $medium (@media) { if ($medium->{selected}) { my ($dir, $removable_device, $static); diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index a5452c3d5..4cc86e1af 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -160,7 +160,7 @@ sub bestKernelPackage { sub packagesToInstall { my ($packages) = @_; my @packages; - foreach (@{$packages->{mediums}}) { + foreach (@{$packages->{media}}) { $_->{selected} or next; log::l("examining packagesToInstall of medium $_->{name}"); push @packages, grep { $_->flag_selected } install::media::packagesOfMedium($packages, $_); @@ -322,7 +322,7 @@ sub empty_packages() { my $packages = new URPM; #- add additional fields used by DrakX. - @$packages{qw(count mediums)} = (0, []); + @$packages{qw(count media)} = (0, []); $packages; } @@ -659,7 +659,7 @@ sub selectPackagesToUpgrade { sub installTransactionClosure { my ($packages, $id2pkg, $isUpgrade) = @_; - foreach (grep { !$_->{selected} } @{$packages->{mediums}}) { + foreach (grep { !$_->{selected} } @{$packages->{media}}) { foreach ($_->{start} .. $_->{end}) { delete $id2pkg->{$_}; } @@ -669,7 +669,7 @@ sub installTransactionClosure { my $medium; #- search first usable medium (media are sorted). - foreach (@{$packages->{mediums}}) { + foreach (@{$packages->{media}}) { if ($l[0] <= $_->{end}) { #- we have a candidate medium, it could be the right one containing #- the first package of @l... @@ -779,7 +779,7 @@ sub install { } #- extract headers for parent as they are used by callback. - extractHeaders(\@transToInstall, $packages->{mediums}); + extractHeaders(\@transToInstall, $packages->{media}); my ($retry, $retry_count); while (@transToInstall) { diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 944153066..4590a39e2 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -304,7 +304,7 @@ sub choosePackagesTree { }, get_info => sub { my $p = install::pkgs::packageByName($packages, $_[0]) or return ''; - install::pkgs::extractHeaders([$p], $packages->{mediums}); + install::pkgs::extractHeaders([$p], $packages->{media}); my $imp = translate($install::pkgs::compssListDesc{$p->flag_base ? 5 : $p->rate}); -- cgit v1.2.1