From 8b7a1cc6544677aaba257798f9a9a039c774c585 Mon Sep 17 00:00:00 2001 From: Eric Menezes Noronha Date: Thu, 11 Sep 2014 14:56:39 -0300 Subject: [PATCH] 2.8.1.18: Alteração da verificação de conexão quando falha. O agente fazia uma nova tentativa de 1 em 1 minuto. Foi alterado para o tempo de checagem de coleta forçada. --- Mapa/Mapa.dfm | 16 ++++++++++------ Mapa/Mapa.pas | 4 +--- Mapa/Source/synsock.pas | 2 +- 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 | 2 +- gercols/gercols.dproj | 2 +- gercols/gercols.res | Bin 4760 -> 0 bytes installcacic/installcacic.dproj | 2 +- installcacic/installcacic.res | Bin 3308 -> 0 bytes main.pas | 20 ++++++++------------ 17 files changed, 27 insertions(+), 29 deletions(-) diff --git a/Mapa/Mapa.dfm b/Mapa/Mapa.dfm index 0564988..9811124 100644 --- a/Mapa/Mapa.dfm +++ b/Mapa/Mapa.dfm @@ -445,16 +445,20 @@ object frmMapaCacic: TfrmMapaCacic TabOrder = 9 object rdConcordaTermos: TRadioButton Left = 3 - Top = 23 - Width = 742 - Height = 57 + Top = 16 + Width = 758 + Height = 64 BiDiMode = bdLeftToRight Caption = 'Declaro minha responsabilidade pelas informa'#231#245'es prestadas e que' + - ' tenho pleno conhecimento das orienta'#231#245'es contidas no Memorando-' + - 'Circular N'#186' 116/2014/PGFN/DGC/CGA-CTI, sobre o armazenamento seg' + - 'uro de dados no ambiente computacional da PGFN.' + ' tenho pleno conhecimento das orienta'#231#245'es repassadas.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] ParentBiDiMode = False + ParentFont = False TabOrder = 0 WordWrap = True OnClick = rdConcordaTermosClick diff --git a/Mapa/Mapa.pas b/Mapa/Mapa.pas index d23880d..46d4e43 100644 --- a/Mapa/Mapa.pas +++ b/Mapa/Mapa.pas @@ -699,9 +699,7 @@ begin else Begin frmMapaCacic.boolAcessoOK := false; - Application.messagebox(Pchar('Atenção! É necessário reinstalar o CACIC nesta estação.' + - #13#10 + #13#10 + 'A estrutura encontra-se corrompida.'), - 'Erro!',MB_ICONERROR + mb_ok); + objCACIC.writeDailyLog('Atenção! É necessário reinstalar o CACIC nesta estação. A estrutura encontra-se corrompida.'); Finalizar; End; end diff --git a/Mapa/Source/synsock.pas b/Mapa/Source/synsock.pas index 6e851a8..ca576af 100644 --- a/Mapa/Source/synsock.pas +++ b/Mapa/Source/synsock.pas @@ -53,7 +53,7 @@ unit synsock; {$ENDIF} {$IFDEF WIN32} - {$I sswin32.inc} + {$I sswin32q.inc} {$ELSE} {$IFDEF FPC} {$I ssfpc.pas} diff --git a/Mapa/mapacacic.dproj b/Mapa/mapacacic.dproj index cfa9517..feb480f 100644 --- a/Mapa/mapacacic.dproj +++ b/Mapa/mapacacic.dproj @@ -24,7 +24,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse28117TrueFalseFalseFalseFalse10461252Dataprev - 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.173.0Licença: GNU/LGPLmapacacic.dprFalse +FalseTrueFalseTrueFalse28118TrueFalseFalseFalseFalse10461252Dataprev - 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.183.0Licença: GNU/LGPLmapacacic.dprFalse diff --git a/Mapa/mapacacic.res b/Mapa/mapacacic.res index bfd0d30..d23981e 100644 Binary files a/Mapa/mapacacic.res and b/Mapa/mapacacic.res differ diff --git a/cacic280.dproj b/cacic280.dproj index 4796ec0..90078b0 100644 --- a/cacic280.dproj +++ b/cacic280.dproj @@ -40,7 +40,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.17Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr +FalseTrueFalseTrueFalse28118FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.18Baseado 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 10740d9..f5ee511 100644 Binary files a/cacic280.res and b/cacic280.res differ diff --git a/cacicservice/cacicservice.dproj b/cacicservice/cacicservice.dproj index 742f9ef..845ee54 100644 --- a/cacicservice/cacicservice.dproj +++ b/cacicservice/cacicservice.dproj @@ -37,7 +37,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseE:\NTService\TrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.173.0Licença: GNU/LGPLcacicservice.dpr +FalseTrueFalseE:\NTService\TrueFalse28118FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.183.0Licença: GNU/LGPLcacicservice.dpr diff --git a/cacicservice/cacicservice.res b/cacicservice/cacicservice.res index 2db64d3..5826772 100755 Binary files a/cacicservice/cacicservice.res and b/cacicservice/cacicservice.res differ diff --git a/chksis/chksis.dproj b/chksis/chksis.dproj index 92d2697..f0ad4ec 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\TrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.17ChkSIS3.0Licença: GNU/LGPLchksis.dpr +C:\Arquivos de programas\Borland\Delphi7\Mitec\D7FalseTrueFalseC:\Arquivos de programas\Borland\Delphi7\Bin\TrueFalse28118FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.18ChkSIS3.0Licença: GNU/LGPLchksis.dpr diff --git a/chksis/chksis.res b/chksis/chksis.res index a63ec15..ed267d5 100755 Binary files a/chksis/chksis.res and b/chksis/chksis.res differ diff --git a/gercols/gercols.dpr b/gercols/gercols.dpr index 313af0c..e6291c0 100644 --- a/gercols/gercols.dpr +++ b/gercols/gercols.dpr @@ -405,7 +405,7 @@ Begin except on E : Exception do Begin - objCacic.writeDebugLog('getTest: Lançando Exceção #2'); + objCacic.writeDebugLog('getMapa: Lançando Exceção #2'); objCacic.writeExceptionLog(E.Message,E.ClassName,'Exceção #2 - Insucesso na comunicação com o Módulo Gerente WEB ('+objCacic.getWebManagerAddress+').'); objCacic.writeDailyLog('Insucesso na comunicação com o Módulo Gerente WEB ('+objCacic.getWebManagerAddress+').'); End; diff --git a/gercols/gercols.dproj b/gercols/gercols.dproj index accce89..c9ca255 100644 --- a/gercols/gercols.dproj +++ b/gercols/gercols.dproj @@ -38,7 +38,7 @@ Delphi.Personality VCLApplication -C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.17Ger_COLS3.0Licença: GNU/LGPLgercols.dpr +C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28118FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.18Ger_COLS3.0Licença: GNU/LGPLgercols.dpr diff --git a/gercols/gercols.res b/gercols/gercols.res index 1482fb5..d6d25a9 100644 Binary files a/gercols/gercols.res and b/gercols/gercols.res differ diff --git a/installcacic/installcacic.dproj b/installcacic/installcacic.dproj index 2c54289..84d23a8 100644 --- a/installcacic/installcacic.dproj +++ b/installcacic/installcacic.dproj @@ -32,7 +32,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - 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.173.0Licença: GNU/LGPLinstallcacic.dpr +FalseTrueFalseTrueFalse28118FalseFalseFalseFalseFalse10461252Dataprev - 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.183.0Licença: GNU/LGPLinstallcacic.dpr diff --git a/installcacic/installcacic.res b/installcacic/installcacic.res index f28fd90..e0aa8f5 100644 Binary files a/installcacic/installcacic.res and b/installcacic/installcacic.res differ diff --git a/main.pas b/main.pas index b704acb..87d0f3a 100755 --- a/main.pas +++ b/main.pas @@ -1123,10 +1123,9 @@ begin objCACIC.writeDebugLog('FormCreate: Opção /execute recebida...'); objCACIC.writeDailyLog('Opção para execução imediata encontrada...'); end; - Invoca_GerCols('getMapa'); ExecutaCACIC(nil); end; - + Invoca_GerCols('getMapa'); // Os timers iniciam-se desabilitados... Mais � frente receber�o par�metros de tempo para execu��o. timerNuExecApos.Enabled := False; timerNuIntervalo.Enabled := False; @@ -1181,8 +1180,8 @@ Begin // Inicializa��o do indicador de SENHA J� INFORMADA objCACIC.setValueToFile('Configs','SJI',objCACIC.enCrypt(''),strMainProgramInfFileName); - if (Trim(objCACIC.GetValueFromFile('Configs','InExibeBandeja' ,strMainProgramInfFileName)) = '') or - ((Trim(objCACIC.GetValueFromFile('Configs','InExibeBandeja' ,strMainProgramInfFileName)) <> 'S')) then + if (Trim(objCACIC.GetValueFromFile('Configs','InExibeBandeja' ,strMainProgramInfFileName)) = '' ) or + (Trim(objCACIC.GetValueFromFile('Configs','InExibeBandeja' ,strMainProgramInfFileName)) <> 'S') then objCACIC.setValueToFile('Configs','InExibeBandeja' , 'S' ,strMainProgramInfFileName); if (objCACIC.GetValueFromFile('Configs','NuExecApos' ,strMainProgramInfFileName) = '') then @@ -1307,7 +1306,7 @@ begin timerNuExecApos.Enabled := False; objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"'); - if (p_acao = 'getTest') or (p_acao = 'getConfig') then + if (p_acao = 'getTest') or (p_acao = 'getConfig') or (p_acao = 'getMapa') then objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE) 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); @@ -1322,6 +1321,7 @@ end; procedure TFormularioGeral.InvocaMapa1Click(Sender: TObject); begin + FormularioGeral.Invoca_GerCols('getMapa'); if (ActualActivity=0) and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then Invoca_MapaCacic else if(ActualActivity <> 0) then @@ -2340,8 +2340,9 @@ end; procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject); begin Invoca_GerCols('getTest'); - if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') then -// Invoca_GerCols('collect'); + if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') or + (objCACIC.GetValueFromFile('Configs','ConexaoOK', strGerColsInfFileName) <> 'S') then + objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\ck_conexao.ini'); FormularioGeral.ExecutaCACIC(nil); end; @@ -2575,11 +2576,6 @@ begin FormularioGeral.Finaliza(false) else if (FormularioGeral.ActualActivity = 0) THEN Begin - if (objCACIC.GetValueFromFile('Configs','ConexaoOK', strGerColsInfFileName) <> 'S') then - Begin - objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\ck_conexao.ini'); - FormularioGeral.ExecutaCACIC(nil); - End; objCACIC.writeDebugLog('timerCheckNoMinutoTimer: Verificando exist�ncia de nova vers�o de CACICservice para atualiza��o'); // Verifica��o de exist�ncia de nova vers�o do CACICservice para substitui��o e execu��o if FileExists(objCACIC.getLocalFolderName + 'Temp\cacicservice.exe') then -- libgit2 0.21.2