copycds supports sles12
This commit is contained in:
parent
99e6319765
commit
57c53ba533
@ -1645,6 +1645,9 @@ sub copycd
|
||||
if (not $darch and m/^BASEARCHS\s+(\S+)/) {
|
||||
$darch = $1;
|
||||
}
|
||||
if (not $darch and m/^REPOID.*\/(\S+)/) {
|
||||
$darch = $1;
|
||||
}
|
||||
}
|
||||
close($dinfo);
|
||||
unless ($darch)
|
||||
@ -1672,7 +1675,7 @@ sub copycd
|
||||
my $prod = <$mfile>;
|
||||
close($mfile);
|
||||
|
||||
if ($prod =~ m/SUSE-Linux-Enterprise-Server/ || $prod =~ m/SUSE-Linux-Enterprise-Software-Development-Kit/)
|
||||
if ($prod =~ m/SUSE-Linux-Enterprise-Server/ || $prod =~ m/SUSE-Linux-Enterprise-Software-Development-Kit/ || $prod =~ m/SLES/)
|
||||
{
|
||||
if (-f "$mntpath/content") {
|
||||
my $content;
|
||||
@ -1685,6 +1688,12 @@ sub copycd
|
||||
$detdistname = "sles".$verpair[1];
|
||||
unless ($distname) { $distname = $detdistname; }
|
||||
}
|
||||
unless ($distname) {
|
||||
if (/^DISTRO/) {
|
||||
$_ =~ /sles:(\d+),/;
|
||||
$distname = "sles".$1;
|
||||
}
|
||||
}
|
||||
}
|
||||
} else {
|
||||
my @parts = split /\s+/, $prod;
|
||||
|
Loading…
Reference in New Issue
Block a user