|
|
@ -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;
|
|
|
|
#базовый суффикс
|
|
|
|
#базовый суффикс
|
|
|
|