Fix build system.

master
Трацевский Александр 14 years ago
parent 0c775aa5b9
commit 30ba48a895

@ -2541,9 +2541,10 @@ sub checksystem{
# $data{server_url}, $data{server} # $data{server_url}, $data{server}
#---------------------------------------------------------------------- #----------------------------------------------------------------------
if(!$data{server_url}){ if(!$data{server_url}){
if(-e "/var/calculate/calculate.env"){ if(-e "/var/calculate/calculate2.env" || -e "/var/calculate/calculate.env"){
#считаем переменную адреса сервера #считаем переменную адреса сервера
open (F, "/var/calculate/calculate.env"); if(-e "/var/calculate/calculate2.env"){open (F, "/var/calculate/calculate2.env");}
else{open (F, "/var/calculate/calculate.env");}
foreach(<F>){ foreach(<F>){
chomp; chomp;
if(m/^cl_remote_host\s?=\s?(.+)$/){ if(m/^cl_remote_host\s?=\s?(.+)$/){
@ -2601,8 +2602,9 @@ sub checksystem{
#---------------------------------------------------------------------- #----------------------------------------------------------------------
if(-e "/var/calculate/remote/calculate.env"){ if(-e "/var/calculate/calculate2.env" || -e "/var/calculate/calculate.env"){
open (F, "/var/calculate/remote/calculate.env"); if(-e "/var/calculate/calculate2.env"){open (F, "/var/calculate/calculate2.env");}
else{open (F, "/var/calculate/calculate.env");}
foreach(<F>){ foreach(<F>){
chomp; chomp;
#базовый суффикс #базовый суффикс

Loading…
Cancel
Save