Download as
Browse Code »

Commit f18e5038c1bcbad8bf0d7e1e9bffd73a975b9ee2

Authored by paulo_borges_ccb@hotmail.com
1 parent 008fd2de
Exists in master

Alteração das chamadas de arquivos .php para url's 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1259 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 4 changed files with 9 additions and 9 deletions   Show diff stats
CACIC_Comm.pas
  Diff comments   View file @f18e503
@@ -131,7 +131,7 @@ Begin @@ -131,7 +131,7 @@ Begin
131 objCacicCOMM.writeDailyLog('Comm: ERRO! Comunicação impossível com o endereço ' + pStrFullURL); 131 objCacicCOMM.writeDailyLog('Comm: ERRO! Comunicação impossível com o endereço ' + pStrFullURL);
132 End; 132 End;
133 end; 133 end;
134 - 134 + objCacicCOMM.writeDebugLog(tStringStrResponseCS.DataString); //Adicionada 10/07
135 Try 135 Try
136 if (objCacicCOMM.getValueFromTags('Comm_Status', tStringStrResponseCS.DataString, '<>') <> 'OK') Then 136 if (objCacicCOMM.getValueFromTags('Comm_Status', tStringStrResponseCS.DataString, '<>') <> 'OK') Then
137 Begin 137 Begin
installcacic/uInstallCACIC.pas
  Diff comments   View file @f18e503
@@ -329,7 +329,7 @@ begin @@ -329,7 +329,7 @@ begin
329 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'id_usuario=' + objCACIC.getValueFromTags('UserName',fetchWMIvalues('Win32_ComputerSystem',objCACIC.getLocalFolderName,'UserName')); 329 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'id_usuario=' + objCACIC.getValueFromTags('UserName',fetchWMIvalues('Win32_ComputerSystem',objCACIC.getLocalFolderName,'UserName'));
330 330
331 Try 331 Try
332 - Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'installcacic.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName, 'Enviando informação de insucesso ao Gerente WEB'); 332 + Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'instala/cacic', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName, 'Enviando informação de insucesso ao Gerente WEB');
333 Except 333 Except
334 on E : Exception do 334 on E : Exception do
335 objCacic.writeExceptionLog(E.Message,E.ClassName,'ComunicaInsucesso'); 335 objCacic.writeExceptionLog(E.Message,E.ClassName,'ComunicaInsucesso');
@@ -523,13 +523,13 @@ begin @@ -523,13 +523,13 @@ begin
523 // Busco as configurações para acesso ao ambiente FTP - Updates 523 // Busco as configurações para acesso ao ambiente FTP - Updates
524 strFieldsAndValuesToRequest := 'in_instalacao=OK'; 524 strFieldsAndValuesToRequest := 'in_instalacao=OK';
525 525
526 - objCacic.writeDebugLog('installCACIC: Preparando Chamada ao Gerente WEB: "' + objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'get_config.php"'); 526 + objCacic.writeDebugLog('installCACIC: Preparando Chamada ao Gerente WEB: "' + objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'get/config');
527 informaProgresso('Fazendo contato com Gerente WEB.'); 527 informaProgresso('Fazendo contato com Gerente WEB.');
528 528
529 - strCommResponse := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName); 529 + strCommResponse := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName);
530 if (strCommResponse <> '0') then 530 if (strCommResponse <> '0') then
531 Begin 531 Begin
532 - { Já realizados na chamada ao get/test 532 + { Já realizados na chamada ao get_test.php substituido por get/test
533 objCacic.setBoolCipher 533 objCacic.setBoolCipher
534 objCacic.setMainProgramName 534 objCacic.setMainProgramName
535 objCacic.setMainProgramHash 535 objCacic.setMainProgramHash
mapacacic/uAcessoMapa.pas
  Diff comments   View file @f18e503
@@ -82,7 +82,7 @@ begin @@ -82,7 +82,7 @@ begin
82 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_senha=' + objCacicCOMM.replaceInvalidHTTPChars( objCacic.enCrypt(edSenhaAcesso.Text,false)) + ','; 82 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_senha=' + objCacicCOMM.replaceInvalidHTTPChars( objCacic.enCrypt(edSenhaAcesso.Text,false)) + ',';
83 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_operacao=' + 'Autentication'; 83 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'te_operacao=' + 'Autentication';
84 84
85 - strCommResponseAcesso := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic_acesso.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); 85 + strCommResponseAcesso := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic/acesso', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);
86 objCacic.setBoolCipher(not objCacic.isInDebugMode); 86 objCacic.setBoolCipher(not objCacic.isInDebugMode);
87 87
88 if (strCommResponseAcesso <> '0') then 88 if (strCommResponseAcesso <> '0') then
@@ -147,7 +147,7 @@ begin @@ -147,7 +147,7 @@ begin
147 strFieldsAndValuesToRequest := 'te_operacao=' + 'CheckVersion' + ','; 147 strFieldsAndValuesToRequest := 'te_operacao=' + 'CheckVersion' + ',';
148 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'MAPACACIC.EXE_HASH=' + objCacic.getFileHash(ParamStr(0)); 148 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + 'MAPACACIC.EXE_HASH=' + objCacic.getFileHash(ParamStr(0));
149 149
150 - strCommResponseVerVersao := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic_acesso.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); 150 + strCommResponseVerVersao := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'mapacacic/acesso', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);
151 objCacic.setBoolCipher(not objCacic.isInDebugMode); 151 objCacic.setBoolCipher(not objCacic.isInDebugMode);
152 152
153 objCacic.writeDebugLog('VerificaVersao: Analisando retorno...'); 153 objCacic.writeDebugLog('VerificaVersao: Analisando retorno...');
mapacacic/uMainMapa.pas
  Diff comments   View file @f18e503
@@ -545,7 +545,7 @@ begin @@ -545,7 +545,7 @@ begin
545 545
546 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',col_patr=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(strColetaAtual)); 546 strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',col_patr=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(strColetaAtual));
547 547
548 - strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols_set_collects.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); 548 + strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols/set/collects', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);
549 objCacic.setBoolCipher(not objCacic.isInDebugMode); 549 objCacic.setBoolCipher(not objCacic.isInDebugMode);
550 550
551 if (strRetorno = '0') then 551 if (strRetorno = '0') then
@@ -688,7 +688,7 @@ function TfrmMapaCacic.getConfigs : String; @@ -688,7 +688,7 @@ function TfrmMapaCacic.getConfigs : String;
688 Begin 688 Begin
689 btCombosUpdate.Enabled := false; 689 btCombosUpdate.Enabled := false;
690 690
691 - Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); 691 + Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);
692 objCacic.setBoolCipher(not objCacic.isInDebugMode); 692 objCacic.setBoolCipher(not objCacic.isInDebugMode);
693 693
694 objCacic.writeDebugLog('FormActivate: Retorno de getConfigs: "'+Result+'"'); 694 objCacic.writeDebugLog('FormActivate: Retorno de getConfigs: "'+Result+'"');