|
|
|
@ -3516,13 +3516,13 @@ sub profile{
|
|
|
|
|
}else{
|
|
|
|
|
system "$data{path} rm -f \"$allocation\""; #удалим на случай если стоит ссылка на другой файл
|
|
|
|
|
open(C, ">$allocation"); print C @conf; close(C);
|
|
|
|
|
if($recpath=~m|/ssh/| || $recpath=~m|/etc/sudoers|){
|
|
|
|
|
if($allocation=~m|/ssh/| || $allocation=~m|/etc/sudoers|){
|
|
|
|
|
system "$data{path} chmod 600 $allocation";
|
|
|
|
|
}elsif( $recpath=~m|/config/kdm/X| ||
|
|
|
|
|
$recpath=~m|/etc/cron\.| ||
|
|
|
|
|
$recpath=~m|/etc/init\.d/| ||
|
|
|
|
|
$recpath=~m|/usr/local/bin/| ||
|
|
|
|
|
$recpath=~m|/sbin/|
|
|
|
|
|
}elsif( $allocation=~m|/config/kdm/X| ||
|
|
|
|
|
$allocation=~m|/etc/cron\.| ||
|
|
|
|
|
$allocation=~m|/etc/init\.d/| ||
|
|
|
|
|
$allocation=~m|/usr/local/bin/| ||
|
|
|
|
|
$allocation=~m|/sbin/|
|
|
|
|
|
){
|
|
|
|
|
system "$data{path} chmod 755 $allocation";
|
|
|
|
|
}
|
|
|
|
|