Update of /server/cvs/freexp In directory m25s18:/tmp/cvs-serv16697 Modified Files: Tag: RC4_3_40_Fixes touch.pas Log Message: MW: - Verbesserung des fxp1-Patches
--- /server/cvs/freexp/touch.pas 2006/10/28 11:11:10 1.22.4.2 +++ /server/cvs/freexp/touch.pas 2006/10/28 11:51:11 1.22.4.3 @@ -9,7 +9,7 @@ { finden Sie in der Datei TOUCH.TXT oder auf } { http://www.martinwodrich.de/Software/Touch/nutzung.htm } { --------------------------------------------------------------- } -{ $Id: touch.pas,v 1.22.4.2 2006/10/28 11:11:10 mw Exp $ } +{ $Id: touch.pas,v 1.22.4.3 2006/10/28 11:51:11 mw Exp $ } {$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF} program touch; {$I TOUCH.INC } @@ -17,12 +17,12 @@ { Betriebsystemabhaeniges } {$IFNDEF WINDOWS } {$IFDEF VPOS2} - uses use32,dos,crt,fileio; + uses use32,dos,crt; {$ELSE } - uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},fileio; + uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF}; {$ENDIF } {$ELSE } -uses windos,wincrt,strings,fileio; +uses windos,wincrt,strings; {$ENDIF } const anyfile=$21; @@ -91,7 +91,6 @@ var f:file; g:text; - md5f:text; {$IFDEF WINDOWS } dt : TDateTime; DirInfo : TSearchRec; @@ -119,7 +118,6 @@ ref : boolean; s,u : string[100]; sim,zcout : boolean; - md5b : boolean; files : byte; st,n : macrop; dateSet,timeSet : boolean; @@ -445,8 +443,7 @@ randomize; {$IFDEF WINDOWS} nc:=false; - {$ENDIF} - md5b:=false; + {$ENDIF} end; {$IFDEF BPLFN} @@ -663,11 +660,7 @@ Readln(s); end; end; - if (copy(s,2,3)='MD5') then begin - {MD5-Summen einschalten} - md5b:=false; - {fxp1-Patch 28.10.2006} - end; + {fxp1-Patch 28.10.2006} end else newmacro; end; @@ -675,7 +668,8 @@ Writeln('Entweder Datum/Uhrzeit oder Referenzdatei'+CR); halt(1); end; - if not (nt and uc) and not (nt and md5b) then begin + {fxp1-Patch 28.10.2006} + if not (nt and uc) then begin if dateset then writeln('Datei-Datum wird gesetzt'+CR); if timeset then writeln('Datei-Zeit wird gesetzt'+CR); if not (dateset or timeset) then writeln ('Datei-Datum und Datei-Zeit werden aktualisiert'+CR); @@ -739,8 +733,8 @@ else fname:=Dir+fname; if fname<>own then begin write(fname); - {Nur MD5-Betrieb erlauben mit /MD5 & /K} - if not ((md5b and nt) and (not uc)) then begin + {fxp1-Patch 28.10.2006} + if (1=1) then begin {Refdatei nicht touchen} if ref and testname(reffile,fname) then writeln(' Referenz'+CR) else begin @@ -828,6 +822,9 @@ end. { $Log: touch.pas,v $ + Revision 1.22.4.3 2006/10/28 11:51:11 mw + MW: - Verbesserung des fxp1-Patches + Revision 1.22.4.2 2006/10/28 11:11:10 mw MW: - Kleiner Bugfix: Ueberflüssige ENDIF entfernt.
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list