|
|
|
@ -614,6 +614,12 @@ sub checkerrors{
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
if(!$data{'type'}){
|
|
|
|
|
$data{type} = check_removable();
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
#в режиме scratch можно поставить только на жесткий диск
|
|
|
|
|
if($data{type} eq "flash" && $data{scratch_ws}){
|
|
|
|
|
printmes(gettext('Scratch may be install only to hard drive')); printmes(".\n");
|
|
|
|
|
return "";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
@ -2117,6 +2123,9 @@ sub checksystem{
|
|
|
|
|
@{$data{other}}{'format'} = ["ext2", "ext3", "ext4", "jfs", "reiserfs", "xfs"];
|
|
|
|
|
#reiser4
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if($data{type} eq "flash"){$data{'format'} = 'vfat';}
|
|
|
|
|
|
|
|
|
|
if(!$data{'format'} && !defined $data{arg}{'list'} && !defined $data{addition}){
|
|
|
|
|
my $format;
|
|
|
|
|
if($data{rootinstall}){
|
|
|
|
@ -2129,7 +2138,6 @@ sub checksystem{
|
|
|
|
|
elsif($format =~m/reiserfs/){$data{'format'} = 'reiserfs';}
|
|
|
|
|
# elsif($format =~m/reiser4/){$data{'format'} = 'reiser4';}
|
|
|
|
|
elsif($format =~m/xfs/){$data{'format'} = 'xfs';}
|
|
|
|
|
elsif($data{type} eq "flash"){$data{'format'} = 'vfat';}
|
|
|
|
|
else{$data{'format'} = 'reiserfs';}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -3252,6 +3260,8 @@ sub setup{
|
|
|
|
|
|
|
|
|
|
isotosys();
|
|
|
|
|
|
|
|
|
|
if($data{type} eq 'flash'){return 1;}
|
|
|
|
|
|
|
|
|
|
#подготовим scratch диск к загрузке
|
|
|
|
|
if($data{scratch_ws}){
|
|
|
|
|
printmes(" ".gettext('Setting')); printmes(" scratch...");
|
|
|
|
@ -3281,19 +3291,6 @@ sub setup{
|
|
|
|
|
printmes(" ".gettext('error')."!\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# #Перенесем Portage
|
|
|
|
|
# if(-e "/usr/portage/profiles" && $data{calculate} eq 'CLDX'){
|
|
|
|
|
# printmes(" ".gettext('Copy')); printmes(" Portage...");
|
|
|
|
|
# if(system "
|
|
|
|
|
# $data{path} rm -rf $data{chroot}/usr/portage &&
|
|
|
|
|
# $data{path} cp -a /usr/portage $data{chroot}/usr/
|
|
|
|
|
# "
|
|
|
|
|
# ){
|
|
|
|
|
# printmes(" ".gettext('error')."!\n");
|
|
|
|
|
# }else{
|
|
|
|
|
# printmes(" ".gettext('done').".\n");
|
|
|
|
|
# } }
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
|
# Запросим пароль root-а
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
@ -4574,24 +4571,6 @@ sub packsystem{
|
|
|
|
|
printmes(" ".gettext('done')); printmes(".\n");
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
# if($data{calculate} eq 'CLDX'){
|
|
|
|
|
# #Удалим исходники ядра
|
|
|
|
|
# printmes(" ".gettext('Delete the kernel sources')); printmes("...");
|
|
|
|
|
# if(
|
|
|
|
|
# system("$data{emergerun1} -C sys-kernel/calculate-sources $data{emergerun2} &>/dev/null") ||
|
|
|
|
|
# system("$data{path} rm -rf $data{'chroot'}/usr/src/linux*")
|
|
|
|
|
# ){
|
|
|
|
|
# beep();
|
|
|
|
|
# printmes(" ".gettext('error')."!\n");
|
|
|
|
|
# }else{
|
|
|
|
|
# printmes(" ".gettext('done')); printmes(".\n");
|
|
|
|
|
# }
|
|
|
|
|
# #Удалим портежи
|
|
|
|
|
# printmes(" ".gettext('Delete Portages')); printmes("...");
|
|
|
|
|
# system("$data{path} rm -rf $data{'chroot'}/usr/portage/*");
|
|
|
|
|
# printmes(" ".gettext('done')); printmes(".\n");
|
|
|
|
|
# }
|
|
|
|
|
|
|
|
|
|
#Отмонтируем директории в точке монтирования
|
|
|
|
|
printmes(" ".gettext('Umount directories')); printmes("...");
|
|
|
|
|
if(!umount_build_dirs()){
|
|
|
|
@ -5352,6 +5331,14 @@ sub createiso{
|
|
|
|
|
printmes(" ".gettext('error').".\n");
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#синхронизируем флешку, т.к. отмонтировать диск при перезагрузке не получится
|
|
|
|
|
if(defined $data{arg}{rescratch}){
|
|
|
|
|
printmes(" ".gettext('Sync file systems')); printmes("...");
|
|
|
|
|
`sync`;
|
|
|
|
|
printmes(" ".gettext('done')); printmes(".\n");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
@ -6350,13 +6337,6 @@ sub initrd_clean{
|
|
|
|
|
){delete $mod_run{$_};}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#переведем некоторые модули в статус работающих, которые нам могут понядобится для загрузки
|
|
|
|
|
# foreach(keys %mod_all){
|
|
|
|
|
# if(
|
|
|
|
|
# $mod_all{$_}=~m#/kernel/fs/XXX#
|
|
|
|
|
# ){$mod_run{$_}++;}
|
|
|
|
|
# }
|
|
|
|
|
|
|
|
|
|
#объединим работающие модули с зависимостями
|
|
|
|
|
foreach(keys %mod_run){
|
|
|
|
|
if($mod_dep{$_}){
|
|
|
|
|