|
|
|
@ -897,6 +897,8 @@ sub checksystem{
|
|
|
|
|
$data{location} = "ram";
|
|
|
|
|
}
|
|
|
|
|
$data{load} = "ram";
|
|
|
|
|
}elsif(`mount | grep /mnt/scratch`){
|
|
|
|
|
$data{load} = "scratch";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
@ -5109,13 +5111,13 @@ sub umount_build_dirs{
|
|
|
|
|
#
|
|
|
|
|
#------------------------------------------------------------------------------
|
|
|
|
|
sub createiso{
|
|
|
|
|
if(number_ver($data{os}) <= 80100){
|
|
|
|
|
printmes(gettext('Error')."! ");
|
|
|
|
|
printmes(gettext('The system should be not below version')); printmes(" 8.2.\n");
|
|
|
|
|
return "";
|
|
|
|
|
}
|
|
|
|
|
# if(number_ver($data{os}) <= 80100){
|
|
|
|
|
# printmes(gettext('Error')."! ");
|
|
|
|
|
# printmes(gettext('The system should be not below version')); printmes(" 8.2.\n");
|
|
|
|
|
# return "";
|
|
|
|
|
# }
|
|
|
|
|
|
|
|
|
|
if(!$data{linux} || $data{linux} =~m/iso$/){
|
|
|
|
|
if((!$data{linux} || $data{linux} =~m/iso$/) && $data{load} ne 'scratch'){
|
|
|
|
|
printmes(gettext('Error')."! ");
|
|
|
|
|
printmes(gettext('The archive with image of system is not found')); printmes(".\n");
|
|
|
|
|
return "";
|
|
|
|
|