From f18e5038c1bcbad8bf0d7e1e9bffd73a975b9ee2 Mon Sep 17 00:00:00 2001 From: paulo_borges_ccb@hotmail.com Date: Thu, 11 Jul 2013 21:03:46 +0000 Subject: [PATCH] Alteração das chamadas de arquivos .php para url's --- CACIC_Comm.pas | 2 +- installcacic/uInstallCACIC.pas | 8 ++++---- mapacacic/uAcessoMapa.pas | 4 ++-- mapacacic/uMainMapa.pas | 4 ++-- 4 files changed, 9 insertions(+), 9 deletions(-) diff --git a/CACIC_Comm.pas b/CACIC_Comm.pas index 2e182a9..18d7ae1 100644 --- a/CACIC_Comm.pas +++ b/CACIC_Comm.pas @@ -131,7 +131,7 @@ Begin objCacicCOMM.writeDailyLog('Comm: ERRO! Comunicação impossível com o endereço ' + pStrFullURL); End; end; - + objCacicCOMM.writeDebugLog(tStringStrResponseCS.DataString); //Adicionada 10/07 Try if (objCacicCOMM.getValueFromTags('Comm_Status', tStringStrResponseCS.DataString, '<>') <> 'OK') Then Begin diff --git a/installcacic/uInstallCACIC.pas b/installcacic/uInstallCACIC.pas index 1c5004d..b8edb41 100644 --- a/installcacic/uInstallCACIC.pas +++ b/installcacic/uInstallCACIC.pas @@ -329,7 +329,7 @@ begin strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'id_usuario=' + objCACIC.getValueFromTags('UserName',fetchWMIvalues('Win32_ComputerSystem',objCACIC.getLocalFolderName,'UserName')); Try - Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'installcacic.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName, 'Enviando informação de insucesso ao Gerente WEB'); + Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'instala/cacic', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName, 'Enviando informação de insucesso ao Gerente WEB'); Except on E : Exception do objCacic.writeExceptionLog(E.Message,E.ClassName,'ComunicaInsucesso'); @@ -523,13 +523,13 @@ begin // Busco as configurações para acesso ao ambiente FTP - Updates strFieldsAndValuesToRequest := 'in_instalacao=OK'; - objCacic.writeDebugLog('installCACIC: Preparando Chamada ao Gerente WEB: "' + objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'get_config.php"'); + objCacic.writeDebugLog('installCACIC: Preparando Chamada ao Gerente WEB: "' + objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'get/config'); informaProgresso('Fazendo contato com Gerente WEB.'); - strCommResponse := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName); + strCommResponse := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName); if (strCommResponse <> '0') then Begin - { Já realizados na chamada ao get/test + { Já realizados na chamada ao get_test.php substituido por get/test objCacic.setBoolCipher objCacic.setMainProgramName objCacic.setMainProgramHash diff --git a/mapacacic/uAcessoMapa.pas b/mapacacic/uAcessoMapa.pas index 5d1f3d5..4090a85 100644 --- a/mapacacic/uAcessoMapa.pas +++ b/mapacacic/uAcessoMapa.pas @@ -82,7 +82,7 @@ begin strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_senha=' + objCacicCOMM.replaceInvalidHTTPChars( objCacic.enCrypt(edSenhaAcesso.Text,false)) + ','; strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_operacao=' + 'Autentication'; - strCommResponseAcesso := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic_acesso.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); + strCommResponseAcesso := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic/acesso', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); objCacic.setBoolCipher(not objCacic.isInDebugMode); if (strCommResponseAcesso <> '0') then @@ -147,7 +147,7 @@ begin strFieldsAndValuesToRequest := 'te_operacao=' + 'CheckVersion' + ','; strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'MAPACACIC.EXE_HASH=' + objCacic.getFileHash(ParamStr(0)); - strCommResponseVerVersao := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic_acesso.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); + strCommResponseVerVersao := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic/acesso', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); objCacic.setBoolCipher(not objCacic.isInDebugMode); objCacic.writeDebugLog('VerificaVersao: Analisando retorno...'); diff --git a/mapacacic/uMainMapa.pas b/mapacacic/uMainMapa.pas index 36e043b..6b246e0 100644 --- a/mapacacic/uMainMapa.pas +++ b/mapacacic/uMainMapa.pas @@ -545,7 +545,7 @@ begin strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',col_patr=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(strColetaAtual)); - strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols_set_collects.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); + strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols/set/collects', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); objCacic.setBoolCipher(not objCacic.isInDebugMode); if (strRetorno = '0') then @@ -688,7 +688,7 @@ function TfrmMapaCacic.getConfigs : String; Begin btCombosUpdate.Enabled := false; - Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); + Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); objCacic.setBoolCipher(not objCacic.isInDebugMode); objCacic.writeDebugLog('FormActivate: Retorno de getConfigs: "'+Result+'"'); -- libgit2 0.21.2