Download as
Browse Code »

Commit db508f0567380fca3d1ddd241dbf6296772c0d0d

Authored by anderson.peterle@previdencia.gov.br
1 parent b59adb07
Exists in master

Exclusão para posterior reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@966 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 5 changed files with 0 additions and 508 deletions   Show diff stats
ini_cols/icon_ini_cols.ico
View file @b59adb0
No preview for this file type
ini_cols/ini_cols.cfg
View file @b59adb0
@@ -1,38 +0,0 @@ @@ -1,38 +0,0 @@
1 --$A8  
2 --$B-  
3 --$C+  
4 --$D+  
5 --$E-  
6 --$F-  
7 --$G+  
8 --$H+  
9 --$I+  
10 --$J-  
11 --$K-  
12 --$L+  
13 --$M-  
14 --$N+  
15 --$O+  
16 --$P+  
17 --$Q-  
18 --$R-  
19 --$S-  
20 --$T-  
21 --$U-  
22 --$V+  
23 --$W-  
24 --$X+  
25 --$YD  
26 --$Z1  
27 --cc  
28 --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
29 --H+  
30 --W+  
31 --M  
32 --$M16384,1048576  
33 --K$00400000  
34 --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"  
35 --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"  
36 --w-UNSAFE_TYPE  
37 --w-UNSAFE_CODE  
38 --w-UNSAFE_CAST  
ini_cols/ini_cols.dof
View file @b59adb0
@@ -1,136 +0,0 @@ @@ -1,136 +0,0 @@
1 -[FileVersion]  
2 -Version=7.0  
3 -[Compiler]  
4 -A=8  
5 -B=0  
6 -C=1  
7 -D=1  
8 -E=0  
9 -F=0  
10 -G=1  
11 -H=1  
12 -I=1  
13 -J=0  
14 -K=0  
15 -L=1  
16 -M=0  
17 -N=1  
18 -O=1  
19 -P=1  
20 -Q=0  
21 -R=0  
22 -S=0  
23 -T=0  
24 -U=0  
25 -V=1  
26 -W=0  
27 -X=1  
28 -Y=1  
29 -Z=1  
30 -ShowHints=1  
31 -ShowWarnings=1  
32 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
33 -NamespacePrefix=  
34 -SymbolDeprecated=1  
35 -SymbolLibrary=1  
36 -SymbolPlatform=1  
37 -UnitLibrary=1  
38 -UnitPlatform=1  
39 -UnitDeprecated=1  
40 -HResultCompat=1  
41 -HidingMember=1  
42 -HiddenVirtual=1  
43 -Garbage=1  
44 -BoundsError=1  
45 -ZeroNilCompat=1  
46 -StringConstTruncated=1  
47 -ForLoopVarVarPar=1  
48 -TypedConstVarPar=1  
49 -AsgToTypedConst=1  
50 -CaseLabelRange=1  
51 -ForVariable=1  
52 -ConstructingAbstract=1  
53 -ComparisonFalse=1  
54 -ComparisonTrue=1  
55 -ComparingSignedUnsigned=1  
56 -CombiningSignedUnsigned=1  
57 -UnsupportedConstruct=1  
58 -FileOpen=1  
59 -FileOpenUnitSrc=1  
60 -BadGlobalSymbol=1  
61 -DuplicateConstructorDestructor=1  
62 -InvalidDirective=1  
63 -PackageNoLink=1  
64 -PackageThreadVar=1  
65 -ImplicitImport=1  
66 -HPPEMITIgnored=1  
67 -NoRetVal=1  
68 -UseBeforeDef=1  
69 -ForLoopVarUndef=1  
70 -UnitNameMismatch=1  
71 -NoCFGFileFound=1  
72 -MessageDirective=1  
73 -ImplicitVariants=1  
74 -UnicodeToLocale=1  
75 -LocaleToUnicode=1  
76 -ImagebaseMultiple=1  
77 -SuspiciousTypecast=1  
78 -PrivatePropAccessor=1  
79 -UnsafeType=0  
80 -UnsafeCode=0  
81 -UnsafeCast=0  
82 -[Linker]  
83 -MapFile=0  
84 -OutputObjs=0  
85 -ConsoleApp=0  
86 -DebugInfo=0  
87 -RemoteSymbols=0  
88 -MinStackSize=16384  
89 -MaxStackSize=1048576  
90 -ImageBase=4194304  
91 -ExeDescription=Inicializador de Coletas do CACIC  
92 -[Directories]  
93 -OutputDir=  
94 -UnitOutputDir=  
95 -PackageDLLOutputDir=  
96 -PackageDCPOutputDir=  
97 -SearchPath=  
98 -Packages=dclact  
99 -Conditionals=  
100 -DebugSourceDirs=  
101 -UsePackages=0  
102 -[Parameters]  
103 -RunParams=  
104 -HostApplication=  
105 -Launcher=  
106 -UseLauncher=0  
107 -DebugCWD=  
108 -[Language]  
109 -ActiveLang=  
110 -ProjectLang=  
111 -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\  
112 -[Version Info]  
113 -IncludeVerInfo=1  
114 -AutoIncBuild=0  
115 -MajorVer=2  
116 -MinorVer=5  
117 -Release=0  
118 -Build=773  
119 -Debug=0  
120 -PreRelease=0  
121 -Special=0  
122 -Private=0  
123 -DLL=0  
124 -Locale=1046  
125 -CodePage=1252  
126 -[Version Info Keys]  
127 -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES  
128 -FileDescription=Inicializador de Coletas do Sistema CACIC  
129 -FileVersion=2.5.0.773  
130 -InternalName=  
131 -LegalCopyright=  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=Ini_COLS  
135 -ProductVersion=2.6  
136 -Comments=Baseado na licença GPL (General Public License)  
ini_cols/ini_cols.dpr
View file @b59adb0
@@ -1,334 +0,0 @@ @@ -1,334 +0,0 @@
1 -(**  
2 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
3 -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil  
4 -  
5 -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais  
6 -  
7 -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como  
8 -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.  
9 -  
10 -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer  
11 -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.  
12 -  
13 -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  
14 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA  
15 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
16 -*)  
17 -  
18 -program ini_cols;  
19 -{$R *.res}  
20 -  
21 -uses  
22 - Windows,  
23 - SysUtils,  
24 - Classes,  
25 - idFTPCommon,  
26 - idFTP,  
27 - PJVersionInfo,  
28 - CACIC_Library in '..\CACIC_Library.pas';  
29 -  
30 -var  
31 - v_te_senha_login_serv_updates,  
32 - v_versao,  
33 - v_ModulosOpcoes : String;  
34 -  
35 -var  
36 - v_tstrCipherOpened,  
37 - v_tstrModulosOpcoes,  
38 - v_tstrModuloOpcao : TStrings;  
39 -  
40 -var  
41 - intAux,  
42 - v_ContaTempo,  
43 - v_Tolerancia : integer;  
44 -  
45 -var  
46 - v_Debugs : Boolean;  
47 - v_Aguarde : TextFile;  
48 -  
49 -var  
50 - g_oCacic : TCACIC;  
51 -  
52 -const  
53 - CACIC_APP_NAME = 'ini_cols';  
54 -  
55 -function VerFmt(const MS, LS: DWORD): string;  
56 - // Format the version number from the given DWORDs containing the info  
57 -begin  
58 - Result := Format('%d.%d.%d.%d',  
59 - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])  
60 -end;  
61 -  
62 -function GetVersionInfo(p_File: string):string;  
63 -var PJVersionInfo1: TPJVersionInfo;  
64 -begin  
65 - PJVersionInfo1 := TPJVersionInfo.Create(nil);  
66 - PJVersionInfo1.FileName := PChar(p_File);  
67 - Result := VerFmt(PJVersionInfo1.FixedFileInfo.dwFileVersionMS, PJVersionInfo1.FixedFileInfo.dwFileVersionLS);  
68 - PJVersionInfo1.Free;  
69 -end;  
70 -  
71 -function GetFolderDate(Folder: string): TDateTime;  
72 -var  
73 - Rec: TSearchRec;  
74 - Found: Integer;  
75 - Date: TDateTime;  
76 -begin  
77 - if Folder[Length(folder)] = '\' then  
78 - Delete(Folder, Length(folder), 1);  
79 - Result := 0;  
80 - Found := FindFirst(Folder, faDirectory, Rec);  
81 - try  
82 - if Found = 0 then  
83 - begin  
84 - Date := FileDateToDateTime(Rec.Time);  
85 - Result := Date;  
86 - end;  
87 - finally  
88 - FindClose(Rec);  
89 - end;  
90 -end;  
91 -  
92 -procedure log_diario(strMsg : String);  
93 -var  
94 - HistoricoLog : TextFile;  
95 - strDataArqLocal, strDataAtual : string;  
96 -begin  
97 - try  
98 - FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000  
99 - AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}  
100 - {$IOChecks off}  
101 - Reset(HistoricoLog); {Abre o arquivo texto}  
102 - {$IOChecks on}  
103 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
104 - begin  
105 - Rewrite (HistoricoLog);  
106 - Append(HistoricoLog);  
107 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
108 - end;  
109 - if (trim(strMsg) <> '') then  
110 - begin  
111 - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));  
112 - DateTimeToString(strDataAtual , 'yyyymmdd', Date);  
113 - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...  
114 - begin  
115 - Rewrite (HistoricoLog); //Cria/Recria o arquivo  
116 - Append(HistoricoLog);  
117 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');  
118 - end;  
119 - Append(HistoricoLog);  
120 - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now)+ '[Inicializador de Coletas] '+strMsg); {Grava a string Texto no arquivo texto}  
121 - CloseFile(HistoricoLog); {Fecha o arquivo texto}  
122 - end  
123 - else CloseFile(HistoricoLog);;  
124 -  
125 - except  
126 -  
127 - end;  
128 -  
129 -end;  
130 -  
131 -procedure log_DEBUG(p_msg:string);  
132 -Begin  
133 - if v_Debugs then log_diario('(v.'+getVersionInfo(ParamStr(0))+') DEBUG - '+p_msg);  
134 -End;  
135 -  
136 -// Dica baixada de http://procedure.blig.ig.com.br/  
137 -procedure Matar(v_dir,v_files: string);  
138 -var  
139 -SearchRec: TSearchRec;  
140 -Result: Integer;  
141 -begin  
142 - Result:=FindFirst(v_dir+v_files, faAnyFile, SearchRec);  
143 - while result=0 do  
144 - begin  
145 - log_DEBUG('Excluindo: '+v_dir + SearchRec.Name);  
146 - DeleteFile(v_dir+SearchRec.Name);  
147 - Result:=FindNext(SearchRec);  
148 - end;  
149 -end;  
150 -  
151 -Function GetValorDatMemoria(p_Chave : String) : String;  
152 -begin  
153 - if (v_tstrCipherOpened.IndexOf(p_Chave)<>-1) then  
154 - Result := v_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1]  
155 - else  
156 - Result := '';  
157 -end;  
158 -  
159 -Function CipherOpen(p_DatFileName : string) : TStrings;  
160 -var v_DatFile : TextFile;  
161 - v_strCipherOpened,  
162 - v_strCipherClosed : string;  
163 - oCacic : TCACIC;  
164 -begin  
165 - v_strCipherOpened := '';  
166 - if FileExists(p_DatFileName) then  
167 - begin  
168 - AssignFile(v_DatFile,p_DatFileName);  
169 - {$IOChecks off}  
170 - Reset(v_DatFile);  
171 - {$IOChecks on}  
172 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
173 - begin  
174 - Rewrite (v_DatFile);  
175 - Append(v_DatFile);  
176 - end;  
177 -  
178 - Readln(v_DatFile,v_strCipherClosed);  
179 - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);  
180 - CloseFile(v_DatFile);  
181 - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);  
182 - log_DEBUG('Rotina de Abertura do cacic2.dat RESTAURANDO estado da criptografia.');  
183 - end;  
184 -  
185 - if (trim(v_strCipherOpened)<>'') then  
186 - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)  
187 - else  
188 - Result := g_oCacic.explode('Configs.ID_SO'+g_oCacic.getSeparatorKey+ oCacic.getWindowsStrId() +g_oCacic.getSeparatorKey+'Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorkey);  
189 -  
190 -  
191 - if Result.Count mod 2 <> 0 then  
192 - Begin  
193 - log_DEBUG('Vetor MemoryDAT com tamanho IMPAR... Ajustando.');  
194 - Result.Add('');  
195 - End;  
196 -end;  
197 -  
198 -Function FTP(p_Host : String; p_Port : String; p_Username : String; p_Password : String; p_PathServer : String; p_File : String; p_Dest : String) : Boolean;  
199 -var IdFTP : TIdFTP;  
200 -begin  
201 - Try  
202 - IdFTP := TIdFTP.Create(IdFTP);  
203 - IdFTP.Host := p_Host;  
204 - IdFTP.Username := p_Username;  
205 - IdFTP.Password := p_Password;  
206 - IdFTP.Port := strtoint(p_Port);  
207 - IdFTP.TransferType := ftBinary;  
208 - Try  
209 - if IdFTP.Connected = true then  
210 - begin  
211 - IdFTP.Disconnect;  
212 - end;  
213 - IdFTP.Connect(true);  
214 - IdFTP.ChangeDir(p_PathServer);  
215 - Try  
216 - IdFTP.Get(p_File, p_Dest + '\' + p_File, True);  
217 - result := true;  
218 - Except  
219 - result := false;  
220 - End;  
221 - Except  
222 - result := false;  
223 - end;  
224 - Except  
225 - result := false;  
226 - End;  
227 -end;  
228 -  
229 -var strAux : String;  
230 -begin  
231 - g_oCacic := TCACIC.Create();  
232 -  
233 - g_oCacic.setBoolCipher(true);  
234 -  
235 - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then  
236 - if ParamCount > 0 then  
237 - Begin  
238 - strAux := '';  
239 - For intAux := 1 to ParamCount do  
240 - Begin  
241 - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then  
242 - begin  
243 - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));  
244 - log_DEBUG('Parâmetro /CacicPath recebido com valor="'+strAux+'"');  
245 - end;  
246 - end;  
247 -  
248 - if (strAux <> '') then  
249 - Begin  
250 - g_oCacic.setCacicPath(strAux);  
251 - v_Debugs := false;  
252 - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then  
253 - Begin  
254 - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then  
255 - Begin  
256 - v_Debugs := true;  
257 - log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');  
258 - End;  
259 - End;  
260 -  
261 - // A existência e bloqueio do arquivo abaixo evitará que Cacic2.exe chame o Ger_Cols quando a coleta ainda estiver sendo efetuada  
262 - AssignFile(v_Aguarde,g_oCacic.getCacicPath + 'temp\aguarde_INI.txt'); {Associa o arquivo a uma variável do tipo TextFile}  
263 - {$IOChecks off}  
264 - Reset(v_Aguarde); {Abre o arquivo texto}  
265 - {$IOChecks on}  
266 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
267 - Rewrite (v_Aguarde);  
268 -  
269 - Append(v_Aguarde);  
270 - Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Cacic2 esperar o término de Ini_Cols');  
271 - Append(v_Aguarde);  
272 -  
273 - Matar(g_oCacic.getCacicPath+'temp\','*.dat');  
274 - Try  
275 - // Caso exista o Gerente de Coletas será verificada a versão...  
276 - // Devido a problemas na rotina de FTP na versão 2.0.1.2,  
277 - // que impossibilitava atualização de versões de todos os componentes, exceto INI_COLS  
278 - If (FileExists(g_oCacic.getCacicPath + 'modulos\ger_cols.exe')) Then  
279 - Begin  
280 - v_versao := trim(GetVersionInfo(g_oCacic.getCacicPath + 'modulos\ger_cols.exe'));  
281 - if (v_versao = '0.0.0.0') then // Provavelmente arquivo corrompido ou versão muito antiga  
282 - Begin  
283 - Matar(g_oCacic.getCacicPath+'modulos\','ger_cols.exe');  
284 - Sleep(5000); // Pausa 5 segundos para total exclusão de GER_COLS  
285 - CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);  
286 - v_te_senha_login_serv_updates := GetValorDatMemoria('Configs.te_senha_login_serv_updates');  
287 -  
288 - FTP(GetValorDatMemoria('Configs.te_serv_updates'),  
289 - GetValorDatMemoria('Configs.nu_porta_serv_updates'),  
290 - GetValorDatMemoria('Configs.nm_usuario_login_serv_updates'),  
291 - v_te_senha_login_serv_updates,  
292 - GetValorDatMemoria('Configs.te_path_serv_updates'),  
293 - 'ger_cols.exe',  
294 - g_oCacic.getCacicPath + 'modulos');  
295 -  
296 - // Pausa 5 segundos para total gravação de GER_COLS  
297 - Sleep(5000);  
298 -  
299 - End;  
300 - End;  
301 -  
302 - // Procuro pelo parâmetro p_ModulosOpcoes que deverá ter sido passado pelo Gerente de Coletas  
303 - // Contendo a formação: coletor1,wait#coletor2,nowait#coletorN,nowait#  
304 - // Observações:  
305 - // 1) Os valores "wait/nowait" determinam se o Inicializador de Coletas estará sujeito à tolerância de tempo para as coletas.  
306 - // 2) No caso de Coletor de Patrimônio, este depende de digitação e deverá trazer a opção "wait";  
307 - // 3) Ainda no caso de Coletor de Patrimônio, quando este for invocado através do menu, o Gerente de Coletas enviará a opção "user", ficando o parâmetro p_ModulosOpcoes = "col_patr,wait,user"  
308 - For intAux := 1 to ParamCount do  
309 - Begin  
310 - if LowerCase(Copy(ParamStr(intAux),1,17)) = '/p_modulosopcoes=' then  
311 - v_ModulosOpcoes := Trim(Copy(ParamStr(intAux),18,Length((ParamStr(intAux)))));  
312 - End;  
313 -  
314 - log_DEBUG('Parâmetro p_ModulosOpcoes recebido: '+v_ModulosOpcoes);  
315 - v_tstrModulosOpcoes := g_oCacic.explode(v_ModulosOpcoes,'#');  
316 -  
317 - // Tempo de tolerância para as coletas  
318 - v_Tolerancia := 5; // (minutos)  
319 -  
320 - For intAux := 0 to v_tstrModulosOpcoes.Count -1 do  
321 - Begin  
322 - v_tstrModuloOpcao := g_oCacic.explode(v_tstrModulosOpcoes[intAux],',');  
323 - strAux := v_tstrModuloOpcao[0]+'.exe /CacicPath='+g_oCacic.getCacicPath+' /p_Option='+v_tstrModuloOpcao[2];  
324 - log_DEBUG('Chamando "' + v_tstrModuloOpcao[0]+'.exe " /p_Option='+v_tstrModuloOpcao[2]);  
325 -  
326 - g_oCacic.createSampleProcess( g_oCacic.getCacicPath + '\modulos\' + strAux, CACIC_PROCESS_WAIT );  
327 - Sleep(500);  
328 - End;  
329 - except  
330 - end;  
331 - End;  
332 - End;  
333 - g_oCacic.Free();  
334 -end.  
ini_cols/ini_cols.res
View file @b59adb0
No preview for this file type