|
|
@ -756,7 +756,7 @@ sub checkerrors{
|
|
|
|
# Путь к архиву образа
|
|
|
|
# Путь к архиву образа
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
#пути к архивам систем
|
|
|
|
#пути к архивам систем
|
|
|
|
$data{linuxdir} = "/usr/calculate/share/linux";
|
|
|
|
$data{linuxdir} = "/var/calculate/remote/linux";
|
|
|
|
|
|
|
|
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
# Определим и проверим директорию установки, директорию временных файлов
|
|
|
|
# Определим и проверим директорию установки, директорию временных файлов
|
|
|
@ -1879,7 +1879,7 @@ sub checksystem{
|
|
|
|
# $data{stagepath}, $data{portagepath}
|
|
|
|
# $data{stagepath}, $data{portagepath}
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
#----------------------------------------------------------------------
|
|
|
|
if($data{builder} && !defined $data{addition} && !$data{createiso}){
|
|
|
|
if($data{builder} && !defined $data{addition} && !$data{createiso}){
|
|
|
|
$data{stagepath} = "/usr/calculate/share/stages";
|
|
|
|
$data{stagepath} = "/var/calculate/remote/stages";
|
|
|
|
|
|
|
|
|
|
|
|
#определим максимальную версию stage нашей архитектуры, либо подставим маску
|
|
|
|
#определим максимальную версию stage нашей архитектуры, либо подставим маску
|
|
|
|
my $stage;
|
|
|
|
my $stage;
|
|
|
@ -1919,7 +1919,7 @@ sub checksystem{
|
|
|
|
beep();
|
|
|
|
beep();
|
|
|
|
exit;
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$data{portagepath} = "/usr/calculate/share/snapshots";
|
|
|
|
$data{portagepath} = "/var/calculate/remote/snapshots";
|
|
|
|
|
|
|
|
|
|
|
|
if(!-e $data{portagepath}){
|
|
|
|
if(!-e $data{portagepath}){
|
|
|
|
printmes(" ".gettext('Create directory')); printmes(" snapshots...");
|
|
|
|
printmes(" ".gettext('Create directory')); printmes(" snapshots...");
|
|
|
@ -5327,8 +5327,11 @@ sub umount_build_dirs{
|
|
|
|
#------------------------------------------------------------------------------
|
|
|
|
#------------------------------------------------------------------------------
|
|
|
|
sub createiso{
|
|
|
|
sub createiso{
|
|
|
|
#проверим что не запущен cl-builder
|
|
|
|
#проверим что не запущен cl-builder
|
|
|
|
if(`mount | grep "on /mnt/builder/usr/calculate/share"`
|
|
|
|
if(
|
|
|
|
|| `mount | grep -c "devpts on /dev/pts "` != 1 ) {
|
|
|
|
#`mount | grep "on /mnt/builder/var/calculate/remote"
|
|
|
|
|
|
|
|
#|| `mount | grep -c "devpts on /dev/pts "` != 1
|
|
|
|
|
|
|
|
`ps ax | grep -c "cl-builder"` > 2
|
|
|
|
|
|
|
|
) {
|
|
|
|
printmes(gettext('Error')."! ");
|
|
|
|
printmes(gettext('Error')."! ");
|
|
|
|
printmes(gettext('Before proceeding, complete the program cl-builder')); printmes(".\n");
|
|
|
|
printmes(gettext('Before proceeding, complete the program cl-builder')); printmes(".\n");
|
|
|
|
return "";
|
|
|
|
return "";
|
|
|
@ -6531,11 +6534,6 @@ sub initrd_clean{
|
|
|
|
# получим имя файла конфигурации текущего ядра
|
|
|
|
# получим имя файла конфигурации текущего ядра
|
|
|
|
my $config=`file -L $chroot$data{scratch_ws}/boot/vmlinuz`;
|
|
|
|
my $config=`file -L $chroot$data{scratch_ws}/boot/vmlinuz`;
|
|
|
|
$config =~ s/^.*version ([^ ]+) .*$/$chroot$data{scratch_ws}\/boot\/config-\1/;
|
|
|
|
$config =~ s/^.*version ([^ ]+) .*$/$chroot$data{scratch_ws}\/boot\/config-\1/;
|
|
|
|
if(!-e $config ) {
|
|
|
|
|
|
|
|
$config=`file -L $chroot$data{scratch_ws}/boot/vmlinuz`;
|
|
|
|
|
|
|
|
$config =~ s/^.*version ([^ ]+) .*$/$chroot$data{scratch_ws}\/boot\/config-\1-$data{march}-$data{calculate}/;
|
|
|
|
|
|
|
|
$config =~ s/-calculate//;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
# получим список внешних модулей в ядре в chroot
|
|
|
|
# получим список внешних модулей в ядре в chroot
|
|
|
|
my @list_chroot_m=get_kernel_config(scalar `cat $config`,"m");
|
|
|
|
my @list_chroot_m=get_kernel_config(scalar `cat $config`,"m");
|
|
|
|
|
|
|
|
|
|
|
|