From 8f3540fa74b7771044263d9018c5b1a9b81b5841 Mon Sep 17 00:00:00 2001 From: Eric Menezes Noronha Date: Thu, 2 Oct 2014 11:31:06 -0300 Subject: [PATCH] Alterações gercols: Limpando o CollectsDefinitions antes de gravar outro, pois aparentemente estava duplicando. Adicionada tag "Notebook" no envio de hardware, sendo atribuido "sim" ou "nao", caso seja, ou não, notebook. Alterações Mapa: Troca de alguns dailylogs para debugLogs. Demais módulos, apenas versão trocada. --- Mapa/Mapa.pas | 18 +++++++++--------- 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 | 11 ++++++++++- gercols/gercols.dproj | 2 +- gercols/gercols.res | Bin 4760 -> 0 bytes 13 files changed, 25 insertions(+), 16 deletions(-) diff --git a/Mapa/Mapa.pas b/Mapa/Mapa.pas index 09130d7..1db4f78 100644 --- a/Mapa/Mapa.pas +++ b/Mapa/Mapa.pas @@ -302,7 +302,7 @@ var teste : string; Begin btCombosUpdate.Enabled := false; - objCACIC.writeDailyLog('getConfigs: Invocando getConfigs...'); + objCACIC.writeDebugLog('getConfigs: Invocando getConfigs...'); Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCacic.getLocalFolderName); objCacic.setBoolCipher(not objCacic.isInDebugMode); @@ -310,7 +310,7 @@ Begin if (Result <> '0') then Begin - objCACIC.writeDailyLog('getConfigs: Comunicação realizada com sucesso!'); + objCACIC.writeDebugLog('getConfigs: Comunicação realizada com sucesso!'); objCacic.setValueToFile('Configs' ,'servidor_autenticacao', objCacic.getValueFromTags('dados_ldap' , Result), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'Patrimonio_Interface' , objCacic.getValueFromTags('Configs_Patrimonio_Interface', Result), strGerColsInfFileName); @@ -329,7 +329,7 @@ End; procedure TfrmMapaCacic.RecuperaValoresAnteriores; var strCollectsPatrimonioLast : String; begin - objCACIC.writeDailyLog('RecuperaValoresAnteriores: Início.'); + objCACIC.writeDebugLog('RecuperaValoresAnteriores: Início.'); btCombosUpdate.Enabled := false; strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile @@ -375,7 +375,7 @@ begin End; btCombosUpdate.Enabled := true; Application.ProcessMessages; - objCACIC.writeDailyLog('RecuperaValoresAnteriores: Fim.'); + objCACIC.writeDebugLog('RecuperaValoresAnteriores: Fim.'); end; procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject); @@ -386,7 +386,7 @@ if edTeInfoPatrimonio5.text <> '' then begin btGravarInformacoes.Enabled := false; btGravarInformacoes.Caption := 'Enviando informações...'; - objCACIC.writeDailyLog('Preparando para o envio das informações...'); + objCACIC.writeDebugLog('Preparando para o envio das informações...'); strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ; strColetaAtual := StringReplace('[IDPatrimonio]' + edTeInfoPatrimonio1.Text + '[/IDPatrimonio]' + @@ -571,7 +571,7 @@ Begin btGravarInformacoes.Visible := true; btCombosUpdate.Enabled := true; Application.ProcessMessages; - objCACIC.writeDailyLog('Interface criada com sucesso.'); + objCACIC.writeDebugLog('Interface criada com sucesso.'); end; procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction); @@ -681,7 +681,7 @@ begin 'Patrimonio', strGerColsInfFileName) = 'true') then begin - objCACIC.writeDailyLog('Iniciando formulário.'); + objCACIC.writeDebugLog('Iniciando formulário.'); mapa; FormSetFocus(foco) end @@ -937,7 +937,7 @@ begin begin try try - objCACIC.writeDailyLog('Nome Usuário: Estabelecendo conexão.'); + objCACIC.writeDebugLog('Nome Usuário: Estabelecendo conexão.'); ldap.TargetHost := host; ldap.UserName := username; ldap.Password := psswd; @@ -946,7 +946,7 @@ begin begin ldap.Search(base, False, identificador+ '=' + strTeInfoPatrimonio4, retorno); //Faz a pesquisa, com o CPF repassado. result := LDAPResultdump(ldap.SearchResult); - objCACIC.writeDailyLog('Nome Usuário: Conexão estabelecida, pesquisa realizada.'); + objCACIC.writeDebugLog('Nome Usuário: Conexão estabelecida, pesquisa realizada.'); ldap.Logout; end; finally diff --git a/Mapa/Source/synsock.pas b/Mapa/Source/synsock.pas index ca576af..6e851a8 100644 --- a/Mapa/Source/synsock.pas +++ b/Mapa/Source/synsock.pas @@ -53,7 +53,7 @@ unit synsock; {$ENDIF} {$IFDEF WIN32} - {$I sswin32q.inc} + {$I sswin32.inc} {$ELSE} {$IFDEF FPC} {$I ssfpc.pas} diff --git a/Mapa/mapacacic.dproj b/Mapa/mapacacic.dproj index a4e0f09..87bfce6 100644 --- a/Mapa/mapacacic.dproj +++ b/Mapa/mapacacic.dproj @@ -24,7 +24,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse28120TrueFalseFalseFalseFalse10461252Dataprev - 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/LGPLmapacacic.dprFalse +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 diff --git a/Mapa/mapacacic.res b/Mapa/mapacacic.res index 30b5fec..f67aa3c 100644 Binary files a/Mapa/mapacacic.res and b/Mapa/mapacacic.res differ diff --git a/cacic280.dproj b/cacic280.dproj index 8dab660..c72f438 100644 --- a/cacic280.dproj +++ b/cacic280.dproj @@ -40,7 +40,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28120FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.20Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr +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 diff --git a/cacic280.res b/cacic280.res index 4f40518..ef0622d 100644 Binary files a/cacic280.res and b/cacic280.res differ diff --git a/cacicservice/cacicservice.dproj b/cacicservice/cacicservice.dproj index 5d7df82..ea7b261 100644 --- a/cacicservice/cacicservice.dproj +++ b/cacicservice/cacicservice.dproj @@ -37,7 +37,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseE:\NTService\TrueFalse28120FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.203.0Licença: GNU/LGPLcacicservice.dpr +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 diff --git a/cacicservice/cacicservice.res b/cacicservice/cacicservice.res index fa7ba97..8fd49fc 100755 Binary files a/cacicservice/cacicservice.res and b/cacicservice/cacicservice.res differ diff --git a/chksis/chksis.dproj b/chksis/chksis.dproj index fbae22b..697e1a7 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\TrueFalse28120FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.20ChkSIS3.0Licença: GNU/LGPLchksis.dpr +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 diff --git a/chksis/chksis.res b/chksis/chksis.res index 2d1eecd..9953e4c 100755 Binary files a/chksis/chksis.res and b/chksis/chksis.res differ diff --git a/gercols/gercols.dpr b/gercols/gercols.dpr index e6291c0..48064b6 100644 --- a/gercols/gercols.dpr +++ b/gercols/gercols.dpr @@ -811,6 +811,8 @@ begin outString := outString + fetchWmiValues('Win32_PhysicalMemory', 'BankLabel,Capacity,Caption,DataWidth,Description,DeviceLocator,FormFactor,InstallDate,InterleaveDataDepth,InterleavePosition,Manufacturer,MemoryType,Model,Name,OtherIdentifyingInfo,PartNumber,PositionInRow,' + 'SerialNumber,SKU,Speed,Tag,TotalWidth,TypeDetail,Version', objCacic.getLocalFolderName); outString := outString + fetchWmiValues('Win32_Processor', 'AddressWidth,Architecture,Availability,Caption,CreationClassName,DataWidth,Description,DeviceID,ExtClock,Family,InstallDate,L2CacheSize,L2CacheSpeed,L3CacheSize,L3CacheSpeed,Level,LoadPercentage,Manufacturer,'+ 'MaxClockSpeed,Name,NumberOfCores,NumberOfLogicalProcessors,OtherFamilyDescription,PNPDeviceID,ProcessorId,ProcessorType,Revision,Role,SocketDesignation,SystemName,UniqueId,UpgradeMethod,Version,VoltageCaps', objCacic.getLocalFolderName); outString := outString + fetchWmiValues('Win32_Printer', 'Attributes,Availability,Caption,CharSetsSupported,Comment,CurrentCharSet,Default,Description,DeviceID,Direct,DriverName,HorizontalResolution,InstallDate,JobCountSinceLastReset,KeepPrintedJobs,LanguagesSupported,' + 'Local,Location,MarkingTechnology,MaxCopies,MaxNumberUp,MaxSizeSupported,MimeTypesSupported,Name,Network,PaperSizesSupported,PaperTypesAvailable,Parameters,PNPDeviceID,PortName,PrintProcessor,' + 'ServerName,Shared,ShareName,SpoolEnabled,SystemName,VerticalResolution,WorkOffline', objCacic.getLocalFolderName); + if getOneValue('Win32_PortableBattery', 'BatteryStatus') <> '' then + outString:= outString + '[Notebook]Sim[/Notebook]'; // Retorna uma string com todas as coletas Result := outString; @@ -972,7 +974,7 @@ 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. @@ -1135,6 +1137,13 @@ Begin tstrColetaHardware := fetchWmiValues('Win32_Printer', objCacic.getLocalFolderName, 'Attributes,Availability,Caption,CharSetsSupported,Comment,CurrentCharSet,Default,Description,DeviceID,Direct,DriverName,HorizontalResolution,InstallDate,JobCountSinceLastReset,KeepPrintedJobs,LanguagesSupported,' + 'Local,Location,MarkingTechnology,MaxCopies,MaxNumberUp,MaxSizeSupported,MimeTypesSupported,Name,Network,PaperSizesSupported,PaperTypesAvailable,Parameters,PNPDeviceID,PortName,PrintProcessor,' + 'ServerName,Shared,ShareName,SpoolEnabled,SystemName,VerticalResolution,WorkOffline'); strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',Win32_Printer=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(objCacic.replaceInvalidHTTPChars(tstrColetaHardware))); + + tstrColetaHardware := getOneValue('Win32_PortableBattery', 'BatteryStatus'); + if tstrColetaHardware <> '' then + tstrColetaHardware := 'Sim' + else + tstrColetaHardware := 'Nao'; + strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',Notebook=' + 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 5229753..09edbfa 100644 --- a/gercols/gercols.dproj +++ b/gercols/gercols.dproj @@ -38,7 +38,7 @@ Delphi.Personality VCLApplication -C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28120FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.20Ger_COLS3.0Licença: GNU/LGPLgercols.dpr +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 diff --git a/gercols/gercols.res b/gercols/gercols.res index bede610..1cee451 100644 Binary files a/gercols/gercols.res and b/gercols/gercols.res differ -- libgit2 0.21.2