Fix partition of the hard disk when installing on HP servers with /dev/cciss/c0d0 devices

Change.log

@@ -4,6 +4,7 @@ CHANGE LOG
 * Correct assembly given that calculate within the meta-package
 * Fix ISO profile for calculate daemon.
 * Fix install to HP controllers (/dev/cciss/c0d0).
+* Fix partition of the hard disk when installing on HP servers with /dev/cciss/c0d0 devices.
 
 1.3.1
 * Change slimd daemon to slim for CLDX.

install/calculate

@@ -662,9 +662,12 @@ sub checkerrors{
 			printmes(gettext('Incorrect partition'));
 			printmes(" \"$data{arg}{'disk'}\".\n");
 			return "";
-		}elsif($data{arg}{'disk'}=~/[0-9]$/){
-			$data{rootinstall} = $data{arg}{'disk'};
-		}else{
+		}elsif(
+			$data{arg}{'disk'}!~m/[0-9]$/ ||
+			($data{arg}{'disk'}=~m#^/dev/cciss/c[0-9]d[0-9]$#)
+		){
+			my $cciss; if($data{arg}{'disk'}=~m/cciss/){$cciss = "p";}
+
 			# отмонтируем разделы диска из /media
 			umountfrommedia();
 			if(`mount | grep "$data{arg}{'disk'}"` || `cat /proc/swaps | grep $data{arg}{'disk'}`){
@@ -691,14 +694,19 @@ sub checkerrors{
 						printmes(gettext('The size of the disk is not sufficient to perform automatic partitioning')."!\n");
 						beep(); return "";
 				}	}
-
-				$data{rootinstall} = $data{arg}{'disk'}."2"; #устанавливаем во второй раздел диска
-				$data{data_install_set} = $data{arg}{'disk'}."5"; #раздел данных пятый
+				#устанавливаем во второй раздел диска
+				$data{rootinstall} = $data{arg}{'disk'}.$cciss."2";
+				#раздел данных пятый
+				$data{data_install_set} = $data{arg}{'disk'}.$cciss."5";
 				$data{partitions_dev} = $data{arg}{'disk'};
 			}else{
 				$data{rootinstall} = $data{arg}{'disk'}."1"; #устанавливаем в первый и единственный раздел
 				$data{partitions_dev} = $data{arg}{'disk'};
-	}	}	}
+			}
+		}else{
+			$data{rootinstall} = $data{arg}{'disk'};
+		}
+	}
 
 	#----------------------------------------------------------------------
 	# Проверим id пользователя, запустившего скрипт