From 325b7b3ff31e9790e523ef51c8d7ed8024980058 Mon Sep 17 00:00:00 2001 From: Eric Menezes Noronha Date: Fri, 10 Oct 2014 18:35:34 -0300 Subject: [PATCH] Versão 2.1.8.22: Correção de bug ao reescrever CollectDefinitions. Correção de bug do timer. Acréscimo da classe isNotebook na coleta de hardware. --- CACIC_Library.pas | 1 + Mapa/mapacacic.dproj | 2 +- Mapa/mapacacic.res | Bin 4192 -> 0 bytes cacic280.dproj | 2 +- cacic280.res | Bin 4876 -> 0 bytes cacicservice/cacicservice.dproj | 2 +- cacicservice/cacicservice.res | Bin 5296 -> 0 bytes chksis/chksis.dproj | 2 +- chksis/chksis.res | Bin 5088 -> 0 bytes gercols/gercols.dpr | 9 +++++---- gercols/gercols.dproj | 2 +- gercols/gercols.res | Bin 4760 -> 0 bytes installcacic/installcacic.dproj | 2 +- installcacic/installcacic.res | Bin 3308 -> 0 bytes main.pas | 10 +++++++--- 15 files changed, 19 insertions(+), 13 deletions(-) diff --git a/CACIC_Library.pas b/CACIC_Library.pas index 0a6bf9b..8b7af35 100755 --- a/CACIC_Library.pas +++ b/CACIC_Library.pas @@ -763,6 +763,7 @@ begin FileSetAttr(pStrFileName, FileGetAttr(pStrFileName) xor faReadOnly); InfFile := TIniFile.Create(pStrFileName); + InfFile.DeleteKey(pStrSectionName, pStrKeyName); InfFile.WriteString(pStrSectionName, pStrKeyName, pStrValue); InfFile.Free; end; diff --git a/Mapa/mapacacic.dproj b/Mapa/mapacacic.dproj index 87bfce6..f3c5baa 100644 --- a/Mapa/mapacacic.dproj +++ b/Mapa/mapacacic.dproj @@ -24,7 +24,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse28121TrueFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.213.0Licença: GNU/LGPLmapacacic.dprFalse +FalseTrueFalseTrueFalse28122TrueFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.223.0Licença: GNU/LGPLmapacacic.dprFalse diff --git a/Mapa/mapacacic.res b/Mapa/mapacacic.res index f67aa3c..a1b95db 100644 Binary files a/Mapa/mapacacic.res and b/Mapa/mapacacic.res differ diff --git a/cacic280.dproj b/cacic280.dproj index c72f438..7af0abb 100644 --- a/cacic280.dproj +++ b/cacic280.dproj @@ -40,7 +40,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28121FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.21Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr +FalseTrueFalseTrueFalse28122FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.22Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr diff --git a/cacic280.res b/cacic280.res index ef0622d..04f99fd 100644 Binary files a/cacic280.res and b/cacic280.res differ diff --git a/cacicservice/cacicservice.dproj b/cacicservice/cacicservice.dproj index ea7b261..729cae1 100644 --- a/cacicservice/cacicservice.dproj +++ b/cacicservice/cacicservice.dproj @@ -37,7 +37,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseE:\NTService\TrueFalse28121FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.213.0Licença: GNU/LGPLcacicservice.dpr +FalseTrueFalseE:\NTService\TrueFalse28122FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.223.0Licença: GNU/LGPLcacicservice.dpr diff --git a/cacicservice/cacicservice.res b/cacicservice/cacicservice.res index 8fd49fc..99b4c40 100755 Binary files a/cacicservice/cacicservice.res and b/cacicservice/cacicservice.res differ diff --git a/chksis/chksis.dproj b/chksis/chksis.dproj index 697e1a7..f3afbbb 100755 --- a/chksis/chksis.dproj +++ b/chksis/chksis.dproj @@ -29,7 +29,7 @@ Delphi.Personality VCLApplication -C:\Arquivos de programas\Borland\Delphi7\Mitec\D7FalseTrueFalseC:\Arquivos de programas\Borland\Delphi7\Bin\TrueFalse28121FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.21ChkSIS3.0Licença: GNU/LGPLchksis.dpr +C:\Arquivos de programas\Borland\Delphi7\Mitec\D7FalseTrueFalseC:\Arquivos de programas\Borland\Delphi7\Bin\TrueFalse28122FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.22ChkSIS3.0Licença: GNU/LGPLchksis.dpr diff --git a/chksis/chksis.res b/chksis/chksis.res index 9953e4c..0f3c87c 100755 Binary files a/chksis/chksis.res and b/chksis/chksis.res differ diff --git a/gercols/gercols.dpr b/gercols/gercols.dpr index 48064b6..5cbcede 100644 --- a/gercols/gercols.dpr +++ b/gercols/gercols.dpr @@ -9,14 +9,14 @@ publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes. - + F Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA NOTA: O componente MiTeC System Information Component (MSIC) é baseado na classe TComponent e contém alguns subcomponentes baseados na classe TPersistent Este componente é apenas freeware e não open-source, e foi baixado de http://www.mitec.cz/Downloads/MSIC.zip --------------------------------------------------------------------------------------------------------------------------------------------------------------- -*) +*) program gercols; {$R *.res} @@ -242,6 +242,7 @@ Begin if (strRetorno <> '0') Then Begin + objCacic.setValueToFile('Configs', 'CollectsDefinitions', '', strGercolsInfFileName); objCacic.setBoolCipher(not objCacic.isInDebugMode); objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName); @@ -974,7 +975,6 @@ Begin strAcaoGercols := 'GerCols invocado para coletas...'; intTotalExecutedCollects := 0; intTotalSendedCollects := 0; - objCacic.setValueToFile('Configs', 'CollectsDefinitions', '', strGercolsInfFileName); getConfigs(true); // Abaixo eu testo se existe um endereço configurado para não disparar os procedimentos de coleta em vão. @@ -1143,7 +1143,8 @@ Begin tstrColetaHardware := 'Sim' else tstrColetaHardware := 'Nao'; - strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',Notebook=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(objCacic.replaceInvalidHTTPChars(tstrColetaHardware))); + + strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',isNotebook=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(objCacic.replaceInvalidHTTPChars(tstrColetaHardware))); // strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',Impressora=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(objCacic.replaceInvalidHTTPChars(tstrColetaHardware))); // Adiciona variáveis da coleta de hardware na requisição diff --git a/gercols/gercols.dproj b/gercols/gercols.dproj index 09edbfa..4c4843c 100644 --- a/gercols/gercols.dproj +++ b/gercols/gercols.dproj @@ -38,7 +38,7 @@ Delphi.Personality VCLApplication -C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28121FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.21Ger_COLS3.0Licença: GNU/LGPLgercols.dpr +C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28122FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.22Ger_COLS3.0Licença: GNU/LGPLgercols.dpr diff --git a/gercols/gercols.res b/gercols/gercols.res index 1cee451..1b09cae 100644 Binary files a/gercols/gercols.res and b/gercols/gercols.res differ diff --git a/installcacic/installcacic.dproj b/installcacic/installcacic.dproj index 867f2c4..98b4f62 100644 --- a/installcacic/installcacic.dproj +++ b/installcacic/installcacic.dproj @@ -32,7 +32,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28120FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.203.0Licença: GNU/LGPLinstallcacic.dpr +FalseTrueFalseTrueFalse28122FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.223.0Licença: GNU/LGPLinstallcacic.dpr diff --git a/installcacic/installcacic.res b/installcacic/installcacic.res index e671da6..554b9fb 100644 Binary files a/installcacic/installcacic.res and b/installcacic/installcacic.res differ diff --git a/main.pas b/main.pas index 7af33fc..4776036 100755 --- a/main.pas +++ b/main.pas @@ -1321,11 +1321,13 @@ begin else objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,false,SW_HIDE); + //garantir que os dados sejam salvos + sleep (5000); g_intStatus := 1; objCacic.setBoolCipher(not objCacic.isInDebugMode); End else - objCACIC.writeDailyLog('N�o foi poss�vel invocar o Gerente de Coletas!'); + objCACIC.writeDailyLog('Não foi possível invocar o Gerente de Coletas!'); End; end; @@ -1434,7 +1436,7 @@ begin SetaVariaveisGlobais; End; - objCACIC.writeDailyLog('Iniciando execu��o de atividades.'); + objCACIC.writeDailyLog('Iniciando execução de atividades.'); objCACIC.writeDebugLog('ExecutaCACIC: Primeira chamada ao Gerente de Coletas...'); Invoca_GerCols('getConfigs'); @@ -2341,9 +2343,11 @@ procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject); begin Invoca_GerCols('getTest'); if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') or - (objCACIC.GetValueFromFile('Configs','ConexaoOK', strGerColsInfFileName) <> 'S') then + not (objCACIC.getValueFromFile('Configs', 'ConexaoOK' , strGerColsInfFileName) = 'S') then + begin objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\ck_conexao.ini'); FormularioGeral.ExecutaCACIC(nil); + end; end; procedure TFormularioGeral.CheckIfDownloadedVersion; -- libgit2 0.21.2