- fix the capharnaum about x86_64, corpo, mnf etc

1 files changed, 7 insertions, 3 deletions

diff --git a/mdkupdate b/mdkupdate
index 0f7ddb58..aba9a107 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -230,12 +230,16 @@ sub update_conf {
 }
 sub add_media {
     my $mirror = shift;
-    my ($r) = mdkonline::get_release();
-    my $dist_type = mdkonline::get_distro_type();
+    my ($r, $da, $is_x8664, $dist_name);
+    ($r) = mdkonline::get_release();
+    # retrieve dist and arch from /etc/mandrakelinux file
+    $da = mdkonline::get_distro_type();
     my $media_varfile = "/var/lib/urpmi/list.mdkupdate";
     my ($path2new_arch, $path2new_synthesis) = $r <= 10.0 ? ('/RPMS/', '../base/synthesis.hdlist.cz') : ('/main_updates/', 'media_info/synthesis.hdlist.cz');
     #sometimes server returns the full link http:// or ftp://
-    my $fullpath2mir = if_($mirror !~ /^(http|ftp):\/\// , "ftp://") . $mirror . if_($dist_type, "/$dist_type") ."/$r" . $path2new_arch;
+    ($is_x8664) = $da->{arch} =~ /(x86_64)/;
+    $dist_name = $da->{name};
+    my $fullpath2mir = if_($mirror !~ m!^(?:http|ftp)://! , "ftp://") . $mirror . if_($is_x8664, "/$is_x8664") . if_($dist_name, "/$dist_name") ."/$r" . $path2new_arch;
     eval {
 	#Remove historical mdkupdate source 
 	-f $media_varfile and system "/usr/sbin/urpmi.removemedia", "mdkupdate";