FreeXP

CVS freexp

CVS User mw cvs-list at freexp.de
Sam Okt 28 13:51:11 CEST 2006


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.
 




Mehr Informationen über die CVS-List Mailingliste