From bf1ef92e9493db31da55338ff721a765a1379982 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 1 Sep 2008 16:08:31 +0000 Subject: - urpmi.addmedia o handle $URPMI_ADDMEDIA_REASON (special reason to give to api.mandriva.com/mirrors/... to allow statistics) --- urpm/mirrors.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'urpm') diff --git a/urpm/mirrors.pm b/urpm/mirrors.pm index 29e30894..90be27b3 100644 --- a/urpm/mirrors.pm +++ b/urpm/mirrors.pm @@ -248,13 +248,16 @@ sub _mandriva_mirrorlist { my $product_type = lc($product_id->{type}); $product_id =~ s/\s//g; my $arch = $o_arch || $product_id->{arch}; - "http://api.mandriva.com/mirrors/$product_type.$product_id->{version}.$arch.list"; + my @para = grep { $_ } $ENV{URPMI_ADDMEDIA_REASON}; + + "http://api.mandriva.com/mirrors/$product_type.$product_id->{version}.$arch.list" + . (@para ? '?' . join(',', @para) : ''); } #- heuristic to detect wether it is really a mirrorlist or a simple mirror url: sub _is_only_one_mirror { my ($mirrorlist) = @_; - _expand($mirrorlist) !~ /\.list$/; + _expand($mirrorlist) !~ /\.list(\?|$)/; } sub _network_mtime() { (stat('/etc/resolv.conf'))[9] } -- cgit v1.2.1