|
|
|
@ -346,6 +346,7 @@ sub getarg{
|
|
|
|
|
"type",
|
|
|
|
|
"clock",
|
|
|
|
|
"composite",
|
|
|
|
|
"scheduler",
|
|
|
|
|
"system",
|
|
|
|
|
"swapon",
|
|
|
|
|
"sleep",
|
|
|
|
@ -375,7 +376,7 @@ sub getarg{
|
|
|
|
|
$data{$1} = $data{arg}{$_};
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#Допустимые аргументы
|
|
|
|
|
#Допустимые аргументы
|
|
|
|
|
my %par = ();
|
|
|
|
|
#Проверим аргументы
|
|
|
|
|
foreach(keys %{$data{par}}){
|
|
|
|
@ -502,6 +503,7 @@ sub getarg{
|
|
|
|
|
$data{CHECKSYSTEM_NOMES}++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
# Выполним информационные команды
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
@ -812,6 +814,21 @@ sub checkerrors{
|
|
|
|
|
beep(); return "";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#перечень возможных планировщиков
|
|
|
|
|
@{$data{other}}{scheduler} = ['noop', 'anticipatory', 'cfq', 'deadline'];
|
|
|
|
|
if(
|
|
|
|
|
$data{scheduler} &&
|
|
|
|
|
($data{scheduler} ne 'noop' &&
|
|
|
|
|
$data{scheduler} ne 'anticipatory' &&
|
|
|
|
|
$data{scheduler} ne 'cfq' &&
|
|
|
|
|
$data{scheduler} ne 'deadline'
|
|
|
|
|
)
|
|
|
|
|
){
|
|
|
|
|
beep();
|
|
|
|
|
printmes(gettext('Wrong name of the Scheduler').".\n");
|
|
|
|
|
return "";
|
|
|
|
|
}
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -2121,6 +2138,20 @@ sub checksystem{
|
|
|
|
|
$data{uuid} = "off";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
# Выбор планировщика
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
if(!$data{scheduler}){
|
|
|
|
|
my $scheduler = `cat /sys/block/sda/queue/scheduler`;
|
|
|
|
|
$scheduler=~m/.*\[([^\]]+)\].*/;
|
|
|
|
|
$data{scheduler} = $1;
|
|
|
|
|
|
|
|
|
|
if($data{'removableload'} eq 'on' || !$data{scheduler}){
|
|
|
|
|
if($data{system} eq 'server'){ $data{scheduler} = 'elevator'; }
|
|
|
|
|
else{ $data{scheduler} = 'cfq'; }
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
# Считаем uuid загрузочного диска, определим его метку
|
|
|
|
|
# $data{uuid_load}, $data{root_load_set}
|
|
|
|
@ -2773,7 +2804,10 @@ sub checksystem{
|
|
|
|
|
if(!$data{gentoo_mirrors}){
|
|
|
|
|
if($data{language} eq 'ru'){
|
|
|
|
|
$data{gentoo_mirrors} = "http://mirror.yandex.ru/gentoo-distfiles http://distfiles.gentoo.org http://distro.ibiblio.org/pub/linux/distributions/gentoo";
|
|
|
|
|
} }
|
|
|
|
|
}else{
|
|
|
|
|
$data{gentoo_mirrors} = '';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
# Определим USB устройства
|
|
|
|
|