Modify creating old files

master
Mike Hiretsky 15 years ago
parent 503b55c9ef
commit 321fac3b61

@ -6475,6 +6475,7 @@ sub initrd_clean{
my $initrd = "$chroot/boot/initrd";
# переименуем initrd-install в initrd-install.old
system("ls -la /boot");
if(-e "${initrd}-install") {
# удалим initrd-install.old и файл на который он ссылается
my $initrd_install_old = "${initrd}-install.old";
@ -6484,20 +6485,22 @@ sub initrd_clean{
}
system("rm -f $initrd_install_old");
# если initrd-install ссылка
if( -l "${initrd}-install" ) {
# если initrd-install не битая ссылка, указывает на initramfs, с таким
# же именем как и новый
if( -l "${initrd}-install" && -e "${initrd}-install" &&
readlink("${initrd}")."-install" == readlink("${initrd}"."-install") ) {
# перемещаем ссылку и файл, добавляя суффикс .old
my $real_initrd_install_old = "$chroot/boot/".readlink("${initrd}-install").".old";
system("rm -f ".$real_initrd_install_old);
system("cp -aH ${initrd}-install $real_initrd_install_old");
my $real_initrd_install_old =
"$chroot/boot/".readlink("${initrd}-install").".old";
system("rm -f ".$real_initrd_install_old);
system("cp -aH ${initrd}-install $real_initrd_install_old");
system("ln -sf ".readlink("${initrd}-install").".old ${initrd}-install.old");
system("rm -f $chroot/boot/".readlink("${initrd}-install"));
}
# если initrd регулярный файл
else {
system("cp -aH ${initrd}-install ${initrd}-install.old");
system("cp -aP ${initrd}-install ${initrd}-install.old");
}
# удалим предыдущий initrd-install
system("rm -f $chroot/boot/".readlink("${initrd}-install")) if -l "${initrd}_install";
system("rm -f ${initrd}-install");
}
@ -6507,6 +6510,9 @@ sub initrd_clean{
system("ln -sf ".readlink("${initrd}")."-install ${initrd}-install");
$real_initrd_install = "$chroot/boot/".readlink("${initrd}")."-install";
}
if( -e $real_initrd_install ) {
system("mv ${real_initrd_install} ${real_initrd_install}.old");
}
system("cp -aH ${initrd} $real_initrd_install");
# подберем утилиту для распаковки

Loading…
Cancel
Save