-Change version detection semantics to pick up sles11.1 correctly
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6219 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
d76eacde2d
commit
8e85a8640c
@ -868,10 +868,24 @@ sub copycd
|
||||
|
||||
if ($prod =~ m/SUSE-Linux-Enterprise-Server/)
|
||||
{
|
||||
my @parts = split /\s+/, $prod;
|
||||
my @subparts = split /-/, $parts[2];
|
||||
$detdistname = "sles" . $subparts[0];
|
||||
unless ($distname) { $distname = "sles" . $subparts[0] };
|
||||
if (-f "$path/content") {
|
||||
my $content;
|
||||
open($content,"<","$path/content");
|
||||
my @contents = <$content>;
|
||||
close($content);
|
||||
foreach (@contents) {
|
||||
if (/^VERSION/) {
|
||||
my @verpair = split;
|
||||
$detdistname = "sles".$verpair[1];
|
||||
unless ($distname) { $distname = $detdistname; }
|
||||
}
|
||||
}
|
||||
} else {
|
||||
my @parts = split /\s+/, $prod;
|
||||
my @subparts = split /-/, $parts[2];
|
||||
$detdistname = "sles" . $subparts[0];
|
||||
unless ($distname) { $distname = "sles" . $subparts[0] };
|
||||
}
|
||||
# check media.1/products for text.
|
||||
# the cselx is a special GE built version.
|
||||
# openSUSE is the normal one.
|
||||
|
Loading…
Reference in New Issue
Block a user