1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
package urpm::get_pkgs;
# $Id$
use urpm::msg;
use urpm::sys;
use urpm::util;
use urpm::media;
use urpm 'file_from_local_url';
sub clean_all_cache {
my ($urpm) = @_;
#- clean download directory, do it here even if this is not the best moment.
$urpm->{log}(N("cleaning %s and %s", "$urpm->{cachedir}/partial", "$urpm->{cachedir}/rpms"));
urpm::sys::clean_dir("$urpm->{cachedir}/partial");
urpm::sys::clean_dir("$urpm->{cachedir}/rpms");
}
#- select sources for selected packages,
#- according to keys of the packages hash.
#- returns a list of lists containing the source description for each rpm,
#- matching the exact number of registered media; ignored media being
#- associated to a null list.
sub selected2list {
my ($urpm, $packages, %options) = @_;
my (%protected_files, %local_sources, %fullname2id);
#- build association hash to retrieve id and examine all list files.
foreach (keys %$packages) {
foreach my $id (split /\|/, $_) {
if ($urpm->{source}{$_}) {
my $file = $local_sources{$id} = $urpm->{source}{$id};
$protected_files{$file} = undef;
} else {
$fullname2id{$urpm->{depslist}[$id]->fullname} = $id;
}
}
}
#- examine the local repository, which is trusted (no gpg or pgp signature check but md5 is now done).
foreach my $filepath (glob("$urpm->{cachedir}/rpms/*")) {
next if -d $filepath;
if (! -s $filepath) {
unlink $filepath; #- this file should be removed or is already empty.
} else {
my $filename = basename($filepath);
my ($fullname) = $filename =~ /(.*)\.rpm$/ or next;
if (my $id = delete $fullname2id{$fullname}) {
$local_sources{$id} = $filepath;
} else {
$options{clean_other} && ! exists $protected_files{$filepath} and unlink $filepath;
}
}
}
my (%id_map, @remaining_ids);
foreach my $id (values %fullname2id) {
my $pkg = $urpm->{depslist}[$id];
my $fullname = $pkg->fullname;
my @pkgs = $pkg->arch eq 'src' ? do {
# packages_by_name can't be used here since $urpm->{provides} doesn't have src.rpm
# so a full search is needed
my %requested;
urpm::select::search_packages($urpm, \%requested, [$pkg->name], src => 1);
map { split /\|/ } keys %requested;
} : do {
map { $_->id } grep { $fullname eq $_->fullname } $urpm->packages_by_name($pkg->name);
};
# id_map is a remapping of id.
# it is needed because @list must be [ { id => pkg } ] where id is one the selected id,
# not really the real package id
$id_map{$_} = $id foreach @pkgs;
push @remaining_ids, @pkgs;
}
@remaining_ids = sort { $a <=> $b } @remaining_ids;
my @list = map {
my $medium = $_;
my %sources;
if (urpm::media::is_valid_medium($medium) && !$medium->{ignore}) {
while (@remaining_ids) {
my $id = $remaining_ids[0];
$medium->{start} <= $id && $id <= $medium->{end} or last;
shift @remaining_ids;
my $pkg = $urpm->{depslist}[$id];
if ($pkg->filename !~ /\.delta\.rpm$/ || $urpm->is_delta_installable($pkg, $urpm->{root})) {
$sources{$id_map{$id}} = "$medium->{url}/" . $pkg->filename;
}
}
}
\%sources;
} (@{$urpm->{media} || []});
if (@remaining_ids) {
$urpm->{error}(N("package %s is not found.", $urpm->{depslist}[$_]->fullname)) foreach @remaining_ids;
return;
}
(\%local_sources, \@list);
}
# TODO verify that files are downloaded from the right corresponding media
#- options: quiet, callback,
sub download_packages_of_distant_media {
my ($urpm, $list, $sources, $error_sources, %options) = @_;
#- get back all ftp and http accessible rpm files into the local cache
foreach my $n (0..$#$list) {
my %distant_sources;
#- ignore media that contain nothing for the current set of files
values %{$list->[$n]} or next;
#- examine all files to know what can be indexed on multiple media.
while (my ($i, $url) = each %{$list->[$n]}) {
#- the given URL is trusted, so the file can safely be ignored.
defined $sources->{$i} and next;
my $local_file = file_from_local_url($url);
if ($local_file && $local_file =~ /\.rpm$/) {
if (-r $local_file) {
$sources->{$i} = $local_file;
} else {
$error_sources->{$i} = $local_file;
}
} elsif ($url =~ m!^([^:]*):/(.*/([^/]*\.rpm))\Z!) {
$distant_sources{$i} = "$1:/$2"; #- will download now
} else {
$urpm->{error}(N("malformed URL: [%s]", $url));
}
}
my $partial_dir = "$urpm->{cachedir}/partial";
my $rpms_dir = "$urpm->{cachedir}/rpms";
if (%distant_sources && ! -w $partial_dir) {
$urpm->{error}(N("sorry, you can't use --install-src to install remote .src.rpm files"));
exit 1;
}
#- download files from the current medium.
if (%distant_sources) {
$urpm->{log}(N("retrieving rpm files from medium \"%s\"...", $urpm->{media}[$n]{name}));
if (urpm::download::sync($urpm, $urpm->{media}[$n], [ values %distant_sources ],
quiet => $options{quiet}, resume => $urpm->{options}{resume}, callback => $options{callback})) {
$urpm->{log}(N("...retrieving done"));
} else {
$urpm->{error}(N("...retrieving failed: %s", $@));
}
#- clean files that have not been downloaded, but keep in mind
#- there have been problems downloading them at least once, this
#- is necessary to keep track of failing downloads in order to
#- present the error to the user.
foreach my $i (keys %distant_sources) {
my ($filename) = $distant_sources{$i} =~ m|/([^/]*\.rpm)$|;
if ($filename && -s "$partial_dir/$filename" &&
URPM::verify_rpm("$partial_dir/$filename", nosignatures => 1))
{
#- it seems the the file has been downloaded correctly and has been checked to be valid.
unlink "$rpms_dir/$filename";
urpm::util::move("$partial_dir/$filename", "$rpms_dir/$filename");
-r "$rpms_dir/$filename" and $sources->{$i} = "$rpms_dir/$filename";
}
unless ($sources->{$i}) {
$error_sources->{$i} = $distant_sources{$i};
}
}
}
}
#- clean failed download which have succeeded.
delete @$error_sources{keys %$sources};
1;
}
1;
|
