Download as
Browse Code »

Commit 2d78db14ed36e355bff79b1db91b2387e7392faa

Authored by Eric Menezes Noronha
1 parent 1fd3c042
Exists in master

Ajustado timer de getTest (para verificar se há coleta forçada) com tempo dinâmi… 

…co, recebendo o valor do gerente (em minutos).
Showing 4 changed files with 36 additions and 23 deletions   Show diff stats
Mapa/Source/synsock.pas
  Diff comments   View file @2d78db1
... ... @@ -53,7 +53,7 @@ unit synsock;
53 53 {$ENDIF}
54 54  
55 55 {$IFDEF WIN32}
56   - {$I sswin32q.inc}
  56 + {$I sswin32.inc}
57 57 {$ELSE}
58 58 {$IFDEF FPC}
59 59 {$I ssfpc.pas}
... ...
gercols/gercols.dpr
  Diff comments   View file @2d78db1
... ... @@ -366,6 +366,7 @@ Begin
366 366 objCacic.setValueToFile('Configs' ,'NuTimeOutSrCacic' ,objCacic.getValueFromTags('nu_timeout_srcacic' , strRetorno, '<>'), strMainProgramInfFileName);
367 367 objCacic.setValueToFile('Configs' ,'CsPermitirDesativarSrCacic' ,objCacic.getValueFromTags('cs_permitir_desativar_srcacic' , strRetorno, '<>'), strMainProgramInfFileName);
368 368 objCacic.setValueToFile('Configs' ,'TeEnderecosMacInvalidos' ,objCacic.getValueFromTags('te_enderecos_mac_invalidos' , strRetorno, '<>'), strMainProgramInfFileName);
  369 + objCacic.setValueToFile('Configs' ,'timerForcaColeta' ,objCacic.getValueFromTags('timerForcaColeta' , strRetorno, '<>'), strMainProgramInfFileName);
369 370 end;
370 371 end;
371 372 Except
... ... @@ -396,7 +397,9 @@ Begin
396 397 objCacic.setValueToFile('Configs','Patrimonio',
397 398 objCacic.getValueFromTags('Patrimonio', strRetorno, '<>'),
398 399 strGerColsInfFileName);
399   - objCacic.setValueToFile('Configs','termos_patrimonio' ,objCacic.getValueFromTags('Mensagem' , strRetorno,'<>'), strGerColsInfFileName);
  400 + objCacic.setValueToFile('Configs','termos_patrimonio',
  401 + objCacic.getValueFromTags('Mensagem', strRetorno,'<>'),
  402 + strGerColsInfFileName);
400 403 End;
401 404 End;
402 405 except
... ...
main.dfm
  Diff comments   View file @2d78db1
... ... @@ -1764,6 +1764,7 @@ object FormularioGeral: TFormularioGeral
1764 1764 Top = 568
1765 1765 end
1766 1766 object CheckForcaColeta: TTimer
  1767 + Enabled = False
1767 1768 Interval = 3600000
1768 1769 OnTimer = CheckForcaColetaTimer
1769 1770 Left = 392
... ...
main.pas
  Diff comments   View file @2d78db1
... ... @@ -1098,9 +1098,9 @@ begin
1098 1098 Rewrite (textFileAguarde);
1099 1099  
1100 1100 Append(textFileAguarde);
1101   - Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sess�es concomitantes...');
  1101 + Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sessões concomitantes...');
1102 1102 Append(textFileAguarde);
1103   - Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finaliza��o via software externo...');
  1103 + Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finalização via software externo...');
1104 1104 Append(textFileAguarde);
1105 1105  
1106 1106 // Inicializo bloqueando o m�dulo de suporte remoto seguro na FireWall nativa.
... ... @@ -1115,13 +1115,13 @@ begin
1115 1115 begin
1116 1116 if FindCmdLineSwitch('atualizacao', True) then
1117 1117 begin
1118   - objCACIC.writeDebugLog('FormCreate: Op��o /atualizacao recebida...');
1119   - objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0)));
  1118 + objCACIC.writeDebugLog('FormCreate: Opção /atualizacao recebida...');
  1119 + objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0)));
1120 1120 end
1121 1121 else
1122 1122 begin
1123   - objCACIC.writeDebugLog('FormCreate: Op��o /execute recebida...');
1124   - objCACIC.writeDailyLog('Op��o para execu��o imediata encontrada...');
  1123 + objCACIC.writeDebugLog('FormCreate: Opção /execute recebida...');
  1124 + objCACIC.writeDailyLog('Opção para execução imediata encontrada...');
1125 1125 end;
1126 1126 Invoca_GerCols('getMapa');
1127 1127 ExecutaCACIC(nil);
... ... @@ -1142,11 +1142,13 @@ begin
1142 1142 SetaVariaveisGlobais;
1143 1143 Except
1144 1144 on E : Exception do
1145   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARI�VEIS GLOBAIS!');
  1145 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARIÁVEIS GLOBAIS!');
1146 1146 End;
1147 1147  
1148 1148 timerNuExecApos.Enabled := True;
1149 1149  
  1150 + CheckForcaColeta.Enabled := True;
  1151 +
1150 1152 InicializaTray;
1151 1153  
1152 1154 // String list e objeto para captura de a��es durante suporte remoto
... ... @@ -1154,20 +1156,20 @@ begin
1154 1156 End
1155 1157 else
1156 1158 Begin
1157   - objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomit�ncia de sess�es...');
  1159 + objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomitância de sessões...');
1158 1160 Finaliza;
1159 1161 End;
1160 1162 Except
1161 1163 on E:Exception do
1162 1164 Begin
1163   - objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZA��O (2)');
  1165 + objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (2)');
1164 1166 Finaliza(false);
1165 1167 End;
1166 1168 End
1167 1169 End
1168 1170 else
1169 1171 Begin
1170   - objCACIC.writeDailyLog('Execu��o Impedida por Falta de Integridade do Agente Principal!');
  1172 + objCACIC.writeDailyLog('Execução Impedida por Falta de Integridade do Agente Principal!');
1171 1173 Finaliza(false);
1172 1174 End;
1173 1175 end;
... ... @@ -1189,10 +1191,15 @@ Begin
1189 1191 if (Trim(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) = '') then
1190 1192 objCACIC.setValueToFile('Configs','NuIntervaloExec', '4' ,strMainProgramInfFileName);
1191 1193  
  1194 + if (Trim(objCACIC.GetValueFromFile('Configs','timerForcaColeta',strMainProgramInfFileName)) = '') then
  1195 + objCACIC.setValueToFile('Configs', 'timerForcaColeta', '60', strMainProgramInfFileName);
  1196 +
1192 1197 // IN_EXIBE_BANDEJA O valor padr�o � mostrar o �cone na bandeja.
1193 1198 // NU_EXEC_APOS Assumir� o padr�o de 0 minutos para execu��o imediata em caso de primeira execu��o (instala��o).
1194 1199 // NU_INTERVALO_EXEC Assumir� o padr�o de 4 horas para o intervalo, no caso de problemas.
1195 1200  
  1201 + CheckForcaColeta.Interval := strtoint(objCACIC.getValueFromFile('Configs', 'timerForcaColeta', strMainProgramInfFileName)) * 60000;
  1202 +
1196 1203 // N�mero de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora).
1197 1204 timerNuIntervalo.Interval := strtoint(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) * 3600000;
1198 1205  
... ... @@ -1210,12 +1217,12 @@ Begin
1210 1217 Begin
1211 1218 objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt');
1212 1219 timerNuExecApos.Interval := 1000; // 1 minuto para chamar GerCols /coletas
1213   - objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0)));
  1220 + objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0)));
1214 1221 End
1215 1222 else
1216 1223 Begin
1217   - objCACIC.writeDailyLog('Inicio autom�tico de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.');
1218   - objCACIC.writeDailyLog('Executar as a��es de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.');
  1224 + objCACIC.writeDailyLog('Inicio automático de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.');
  1225 + objCACIC.writeDailyLog('Executar as ações de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.');
1219 1226 objCACIC.writeDailyLog(DupeString('=',100));
1220 1227 End;
1221 1228  
... ... @@ -1232,7 +1239,7 @@ Begin
1232 1239 Except
1233 1240 on E : Exception do
1234 1241 Begin
1235   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZA��O (1)');
  1242 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (1)');
1236 1243 Finaliza;
1237 1244 End;
1238 1245 End;
... ... @@ -1268,7 +1275,7 @@ Begin
1268 1275 End;
1269 1276 Except
1270 1277 on E : Exception do
1271   - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZA��O');
  1278 + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZAÇÃO');
1272 1279 End;
1273 1280 objCACIC.Free;
1274 1281 Halt(0);
... ... @@ -1292,15 +1299,18 @@ begin
1292 1299 Begin
1293 1300 ChecaCONFIGS;
1294 1301  
1295   - objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com a��o: "'+p_acao+'"');
  1302 + objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"');
1296 1303  
1297 1304 if boolShowInfo and not (p_acao = 'getTest') then
1298   - objCACIC.writeDebugLog('Invocando Gerente de Coletas com a��o: "'+p_acao+'"');
  1305 + objCACIC.writeDebugLog('Invocando Gerente de Coletas com ação: "'+p_acao+'"');
1299 1306  
1300 1307 timerNuExecApos.Enabled := False;
1301 1308 objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"');
1302 1309  
1303   - 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);
  1310 + if (p_acao = 'getTest') or (p_acao = 'getConfig') then
  1311 + 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)
  1312 + else
  1313 + 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);
1304 1314  
1305 1315 g_intStatus := 1;
1306 1316 objCacic.setBoolCipher(not objCacic.isInDebugMode);
... ... @@ -1392,7 +1402,6 @@ begin
1392 1402 (trim(objCACIC.getValueFromFile('Configs','DtHrUltimaColeta', strGerColsInfFileName))='') or
1393 1403 (trim(objCACIC.getValueFromFile('Configs','forca_coleta', strGerColsInfFileName))='S') Then
1394 1404 Begin
1395   -
1396 1405 timerCheckNoMinuto.Enabled := false;
1397 1406 objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...');
1398 1407  
... ... @@ -1525,7 +1534,6 @@ begin
1525 1534 Invoca_GerCols('collect');
1526 1535 End;
1527 1536 End;
1528   -
1529 1537 timerCheckNoMinuto.Enabled := true;
1530 1538 End;
1531 1539  
... ... @@ -2333,7 +2341,8 @@ procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject);
2333 2341 begin
2334 2342 Invoca_GerCols('getTest');
2335 2343 if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') then
2336   - Invoca_GerCols('collect');
  2344 +// Invoca_GerCols('collect');
  2345 + FormularioGeral.ExecutaCACIC(nil);
2337 2346 end;
2338 2347  
2339 2348 procedure TFormularioGeral.CheckIfDownloadedVersion;
... ...