summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/media.pm28
1 files changed, 16 insertions, 12 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 4468c7d53..549b6f034 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -28,7 +28,7 @@ use fs::type;
#- list of fields for {mediums} :
#- end (last rpm id, undefined iff not selected)
#- fakemedium ("$name ($rpmsdir)", used locally by urpmi)
-#- hdlist
+#- rel_hdlist
#- hdlist_size
#- key_ids (hashref, values are key ids)
#- name (text description)
@@ -482,7 +482,7 @@ sub parse_media_cfg {
my ($size) = $d->getvalue($_, 'size') =~ /(\d+)MB?/i;
{
rpmsdir => $_,
- hdlist => $d->getvalue($_, 'hdlist'),
+ rel_hdlist => 'media_info/' . $d->getvalue($_, 'hdlist'),
name => $d->getvalue($_, 'name'),
size => $size,
selected => !$d->getvalue($_, 'noauto'),
@@ -511,7 +511,7 @@ sub parse_hdlists {
or die qq(invalid hdlist description "$_" in hdlists file);
$name =~ s/\s+$//;
$size =~ s/MB?$//i;
- push @hdlists, { hdlist => $hdlist, rpmsdir => $rpmsdir, name => $name, selected => !$noauto, size => $size };
+ push @hdlists, { rel_hdlist => "media_info/$hdlist", rpmsdir => $rpmsdir, name => $name, selected => !$noauto, size => $size };
}
(\%main_options, \@hdlists);
}
@@ -673,14 +673,14 @@ sub get_media_cfg {
sub get_standalone_medium {
my ($in, $phys_m, $packages, $m) = @_;
- add2hash($m, { phys_medium => $phys_m, selected => 1, hdlist => 'hdlist.cz' });
+ add2hash($m, { phys_medium => $phys_m, selected => 1, rel_hdlist => 'media_info/hdlist.cz' });
get_medium($in, $phys_m, $packages, $m);
}
sub get_medium {
my ($in_wait, $phys_m, $packages, $m) = @_;
- $m->{selected} or log::l("ignoring packages in $m->{hdlist}"), return;
+ $m->{selected} or log::l("ignoring packages in $m->{rel_hdlist}"), return;
my $medium_id = int @{$packages->{mediums}};
$m->{fakemedium} = $m->{name} || $phys_m->{method};
@@ -690,30 +690,34 @@ sub get_medium {
$m->{fakemedium} =~ s!/!_!g; #- remove "/" from rpmsdir
}
- log::l("trying to read $m->{hdlist} for medium '$m->{fakemedium}'");
+ log::l("trying to read $m->{rel_hdlist} for medium '$m->{fakemedium}'");
#- copy hdlist file directly to urpmi directory, this will be used
#- for getting header of package during installation or after by urpmi.
my $hdlist = hdlist_on_disk($m);
{
- getAndSaveFile_progress($in_wait, N("Downloading file %s...", $m->{hdlist}),
- $phys_m, "media_info/$m->{hdlist}", $hdlist) or die "no $m->{hdlist} found";
+ getAndSaveFile_progress($in_wait, N("Downloading file %s...", $m->{rel_hdlist}),
+ $phys_m, $m->{rel_hdlist}, $hdlist) or die "no $m->{rel_hdlist} found";
$m->{hdlist_size} = -s $hdlist; #- keep track of size for post-check.
}
my $synthesis = urpmidir() . "/synthesis.hdlist.$m->{fakemedium}.cz";
{
+ my $rel_synthesis = $m->{rel_hdlist};
+ $rel_synthesis =~ s!/hdlist!/synthesis.hdlist! or internal_error("bad {rel_hdlist} $m->{rel_hdlist}");
#- copy existing synthesis file too.
- getAndSaveFile_progress($in_wait, N("Downloading file %s...", "synthesis.$m->{hdlist}"),
- $phys_m, "media_info/synthesis.$m->{hdlist}", $synthesis);
+ getAndSaveFile_progress($in_wait, N("Downloading file %s...", $rel_synthesis),
+ $phys_m, $rel_synthesis, $synthesis);
$m->{synthesis_hdlist_size} = -s $synthesis; #- keep track of size for post-check.
}
#- get all keys corresponding in the right pubkey file,
#- they will be added in rpmdb later if not found.
if (!$m->{pubkey}) {
- if (my $pubkey = getFile_($phys_m, "media_info/pubkey" . ($m->{hdlist} =~ /hdlist(\S*)\.cz/ && $1))) {
+ my $rel_pubkey = $m->{rel_hdlist};
+ $rel_pubkey =~ s!/hdlist(.*)\.cz!/pubkey$1! or internal_error("bad {rel_hdlist} $m->{rel_hdlist}");
+ if (my $pubkey = getFile_($phys_m, $rel_pubkey)) {
$m->{pubkey} = [ $packages->parse_armored_file($pubkey) ];
}
}
@@ -755,7 +759,7 @@ sub get_medium {
unlink $hdlist, $synthesis;
die $error;
} else {
- log::l("medium " . phys_medium_to_string($phys_m) . ", read " . ($m->{end} - $m->{start} + 1) . " packages in $m->{hdlist}, $nb_suppl_pkg_skipped skipped");
+ log::l("medium " . phys_medium_to_string($phys_m) . ", read " . ($m->{end} - $m->{start} + 1) . " packages in $m->{rel_hdlist}, $nb_suppl_pkg_skipped skipped");
}
}
}