-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:
		| @@ -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. | ||||
|   | ||||
		Reference in New Issue
	
	Block a user