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
