|
|
@ -80,12 +80,7 @@ if(defined $data{arg}{'vars'}){
|
|
|
|
mail(); #управление пользователями
|
|
|
|
mail(); #управление пользователями
|
|
|
|
#Наложим обновления профилей на текущую систему
|
|
|
|
#Наложим обновления профилей на текущую систему
|
|
|
|
}elsif(defined $data{arg}{'profile'}){
|
|
|
|
}elsif(defined $data{arg}{'profile'}){
|
|
|
|
if(number_ver($data{os}) < number_ver(7.12)){
|
|
|
|
|
|
|
|
printmes(gettext('It is supported in systems of versions'));
|
|
|
|
|
|
|
|
printmes(" > 7.11\n");
|
|
|
|
|
|
|
|
}else{
|
|
|
|
|
|
|
|
update_profile();
|
|
|
|
update_profile();
|
|
|
|
}
|
|
|
|
|
|
|
|
#подключим swap
|
|
|
|
#подключим swap
|
|
|
|
if($data{'swapon'}){
|
|
|
|
if($data{'swapon'}){
|
|
|
|
swapon();
|
|
|
|
swapon();
|
|
|
@ -1560,7 +1555,6 @@ sub checksystem{
|
|
|
|
"vmware"
|
|
|
|
"vmware"
|
|
|
|
];
|
|
|
|
];
|
|
|
|
|
|
|
|
|
|
|
|
my @video = `$data{path} lspci | grep VGA`;
|
|
|
|
|
|
|
|
my $drv; #определим драйвер видеокарты
|
|
|
|
my $drv; #определим драйвер видеокарты
|
|
|
|
foreach(`$data{path} lspci | grep VGA`){
|
|
|
|
foreach(`$data{path} lspci | grep VGA`){
|
|
|
|
my $video = $_;
|
|
|
|
my $video = $_;
|
|
|
@ -1652,6 +1646,10 @@ sub checksystem{
|
|
|
|
}else{
|
|
|
|
}else{
|
|
|
|
$data{run_opengl} = "";
|
|
|
|
$data{run_opengl} = "";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#сбросим BusID если в ПК одна видеокарта
|
|
|
|
|
|
|
|
my @vga = `$data{path} lspci | grep VGA`;
|
|
|
|
|
|
|
|
if($data{video_id} && @vga == 1){ $data{video_id} = ""; }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|