Fix build system.

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

@ -2541,9 +2541,10 @@ sub checksystem{
# $data{server_url}, $data{server}
#----------------------------------------------------------------------
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>){
chomp;
if(m/^cl_remote_host\s?=\s?(.+)$/){
@ -2601,8 +2602,9 @@ sub checksystem{
#----------------------------------------------------------------------
if(-e "/var/calculate/remote/calculate.env"){
open (F, "/var/calculate/remote/calculate.env");
if(-e "/var/calculate/calculate2.env" || -e "/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>){
chomp;
#базовый суффикс

Loading…
Cancel
Save