|
|
|
@ -5,7 +5,7 @@ use Time::Local;
|
|
|
|
|
|
|
|
|
|
#------------------------------------------------------------------------------
|
|
|
|
|
# Calculate
|
|
|
|
|
# Copyright ©2006-2009 Calculate Pack
|
|
|
|
|
# Copyright ©2006-2009 Mir Calculate Ltd.
|
|
|
|
|
# Program established: 12.04.2006г.
|
|
|
|
|
#
|
|
|
|
|
# This program is free software: you can redistribute it and/or modify
|
|
|
|
@ -22,7 +22,7 @@ use Time::Local;
|
|
|
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
#------------------------------------------------------------------------------
|
|
|
|
|
my %data; #объявим хэш переменных
|
|
|
|
|
$data{"calcver"} = "1.2.2";
|
|
|
|
|
$data{"calcver"} = "1.2.3";
|
|
|
|
|
|
|
|
|
|
#Определим путь к программе
|
|
|
|
|
if(!getpath()){exit;};
|
|
|
|
@ -1319,7 +1319,9 @@ sub checksystem{
|
|
|
|
|
$data{netconf} .= "\nconfig_$dev=( \"$addr$net{$mask}\" )";
|
|
|
|
|
}
|
|
|
|
|
$dev_open = 1;
|
|
|
|
|
$data{netconf} .= "\nmodules_eth0=( \"!plug\" )";
|
|
|
|
|
if($data{calculate} ne "CLS" && $data{calculate} ne "CLSG"){
|
|
|
|
|
$data{netconf} .= "\nmodules_eth0=( \"!plug\" )";
|
|
|
|
|
}
|
|
|
|
|
} }
|
|
|
|
|
if($dev_open == 0){
|
|
|
|
|
printmes("$br $dev (off)");
|
|
|
|
@ -4549,8 +4551,8 @@ sub packsystem{
|
|
|
|
|
|
|
|
|
|
#Обновим базу портежей программы eix
|
|
|
|
|
printmes(" ".gettext('Update portige base of eix programm')); printmes("...");
|
|
|
|
|
if(-e "$data{'chroot'}/usr/bin/update-eix"){
|
|
|
|
|
if(system(qq|$data{path} chroot $data{'chroot'} /bin/bash -c "update-eix &>/dev/null"|)){
|
|
|
|
|
if(-e "$data{'chroot'}/usr/bin/eix-update"){
|
|
|
|
|
if(system(qq|$data{path} chroot $data{'chroot'} /bin/bash -c "eix-update &>/dev/null"|)){
|
|
|
|
|
printmes(" ".gettext('error').".\n");
|
|
|
|
|
}else{
|
|
|
|
|
printmes(" ".gettext('done')); printmes(".\n");
|
|
|
|
|