diff options
Diffstat (limited to 'rpmdrake.pm')
-rw-r--r-- | rpmdrake.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm index 933e56d4..bc8e696b 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -347,9 +347,10 @@ my %sites2countries = ('proxad.net' => 'fr', sub distro_type { - $mandrake_release =~ /community/i ? 'community' - : $mandrake_release =~ /cooker/i ? 'cooker' - : 'updates'; + return 'cooker' if $mandrake_release =~ /cooker/i; + return 'updates' if $mandrake_release !~ /community/i; + (my $v) = split / /, cat_('/etc/version'); + return $v =~ /\.0$/ ? 'community' : 'updates'; } sub compat_arch_for_updates($) { @@ -363,6 +364,7 @@ sub compat_arch_for_updates($) { sub mirrors { my ($cachedir) = @_; my $distro_type = distro_type(); + warn "distro_type=$distro_type\n"; $cachedir = '/root'; my $mirrorslist = "$cachedir/mirrorsfull.list"; unlink $mirrorslist; @@ -453,13 +455,15 @@ by Mandrakelinux Official Updates.")), return ''; sub make_url_mirror { my ($mirror) = @_; - if ($mirror =~ m!/RPMS$!) { + if ($mirror =~ m!/(?:RPMS|media/main)\Z!) { #- esp. for distro_type() =~ /cooker|community/ + warn "m=$mirror/"; "$mirror/"; } else { my ($class, $release) = $mandrake_release =~ /(\S+)\s+release\s+(\S+)/; $class !~ /linux/i and $release = lc($class) . "/$release"; #- handle subdirectory for corporate/clustering/etc - "$mirror/$release/RPMS/"; + warn "m=$mirror/$release/main_updates/"; + "$mirror/$release/main_updates/"; } } |