|
|
@ -3685,6 +3685,12 @@ sub profile{
|
|
|
|
#проверим имя файла фрофиля перед переносом в систему
|
|
|
|
#проверим имя файла фрофиля перед переносом в систему
|
|
|
|
$allocation = check_name($allocation); if(!$allocation){next;}
|
|
|
|
$allocation = check_name($allocation); if(!$allocation){next;}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#сохраним обработанный файл в директории установки
|
|
|
|
|
|
|
|
$allocation=~m/^(.*\/)([^\/]+)$/;
|
|
|
|
|
|
|
|
my $namepath = $1;
|
|
|
|
|
|
|
|
my $nameprof = $2;
|
|
|
|
|
|
|
|
my $nameorig = $nameprof;
|
|
|
|
|
|
|
|
|
|
|
|
#извлечем текстовый файл профиля
|
|
|
|
#извлечем текстовый файл профиля
|
|
|
|
if(`$data{path} file "$_" | grep text`){
|
|
|
|
if(`$data{path} file "$_" | grep text`){
|
|
|
|
$data{file}{name} = $_;
|
|
|
|
$data{file}{name} = $_;
|
|
|
@ -3703,12 +3709,6 @@ sub profile{
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#сохраним обработанный файл в директории установки
|
|
|
|
|
|
|
|
$allocation=~m/^(.*\/)([^\/]+)$/;
|
|
|
|
|
|
|
|
my $namepath = $1;
|
|
|
|
|
|
|
|
my $nameprof = $2;
|
|
|
|
|
|
|
|
my $nameorig = $nameprof;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if($data{pass} eq 'install' && $data{scratch_ws} &&
|
|
|
|
if($data{pass} eq 'install' && $data{scratch_ws} &&
|
|
|
|
(substr($nameprof,0,1) eq "~" || substr($nameprof,0,1) eq "^")
|
|
|
|
(substr($nameprof,0,1) eq "~" || substr($nameprof,0,1) eq "^")
|
|
|
|
){
|
|
|
|
){
|
|
|
|