summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-12 12:54:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-12 12:54:39 +0000
commitd31b1423e7d02392b02ed5336a4ab60fb6c1f236 (patch)
treeb114d3e6b73cffa8078aabfe7d7c11b89afb8067 /perl-install/install
parent1a0ee0c3e70c87e80f7895e7e3a92a8e4daeb7e4 (diff)
downloaddrakx-d31b1423e7d02392b02ed5336a4ab60fb6c1f236.tar
drakx-d31b1423e7d02392b02ed5336a4ab60fb6c1f236.tar.gz
drakx-d31b1423e7d02392b02ed5336a4ab60fb6c1f236.tar.bz2
drakx-d31b1423e7d02392b02ed5336a4ab60fb6c1f236.tar.xz
drakx-d31b1423e7d02392b02ed5336a4ab60fb6c1f236.zip
rename {mediums} field into {media} to be compatible with urpm:: modules (from urpmi)
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/any.pm2
-rw-r--r--perl-install/install/media.pm32
-rw-r--r--perl-install/install/pkgs.pm10
-rw-r--r--perl-install/install/steps_gtk.pm2
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});