FreeXP

CVS freexp

CVS User mw cvs-list at freexp.de
Sam Okt 28 12:23:44 CEST 2006


Update of /server/cvs/freexp
In directory m25s18:/tmp/cvs-serv25231

Modified Files:
      Tag: RC4_3_40_Fixes
	touch.pas touch.inc 
Log Message:
MW: - Uebernahme von Touch 1.2.5
    - Rauspatchen der MD5-Funktion, da hier nicht notwendig
      und zusaetzliche Dateien erfordern wuerde.


--- /server/cvs/freexp/touch.pas	2005/09/29 08:33:15	1.22
+++ /server/cvs/freexp/touch.pas	2006/10/28 10:23:44	1.22.4.1
@@ -1,6 +1,6 @@
 { --------------------------------------------------------------- }
 { Dieser Quelltext ist urheberrechtlich geschuetzt.               }
-{ (c) 2003-2005      Martin Wodrich, http://www.martinwodrich.de  }
+{ (c) 2003-2006      Martin Wodrich, http://www.martinwodrich.de  }
 {                               software at martinwodrich.de         }
 {                                                                 }
 { Dieser Quelltext ist Freeware.                                  }
@@ -9,35 +9,36 @@
 { finden Sie in der Datei TOUCH.TXT oder auf                      }
 { http://www.martinwodrich.de/Software/Touch/nutzung.htm          }
 { --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.22 2005/09/29 08:33:15 mw Exp $ }
+{ $Id: touch.pas,v 1.22.4.1 2006/10/28 10:23:44 mw Exp $ }
+{$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF}
 program touch;
 {$I TOUCH.INC }
 
 { Betriebsystemabhaeniges }
 {$IFNDEF WINDOWS }
 {$IFDEF VPOS2}
-uses use32,dos,crt;
+uses use32,dos,crt,fileio{$ENDIF};
 {$ELSE }
-uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF};
+uses dos,crt{$IFDEF BPLFN},touchlfn{$ENDIF},fileio{$ENDIF};
 {$ENDIF }
 {$ELSE }
-uses windos,wincrt,strings;
+uses windos,wincrt,strings,fileio{$ENDIF};
 {$ENDIF }
 
 const anyfile=$21;
       {$IFNDEF DPMI}
       {$IFNDEF unix}
-      beta='.2';  {Patchlevel 1}
+      beta='.5fxp1';  {Patchlevel 5}
       {$ELSE}
       !!! Touch 1.2 läuft nicht auf unixartigen Betriebsystemen !!
-      beta=' Alpha 6';
+      beta=' Alpha 7';
       {$ENDIF}
       {$ELSE}
-      beta=' Alpha 6';
+      beta=' Alpha 7';
       {$ENDIF}
       version='1.2'+beta;
       touchname='Touch '+version;
-      copyright=' (c) 2003-2004 by Martin Wodrich';
+      copyright=' (c) 2003-2006 by Martin Wodrich';
 
       { Betriebsystemstrings }
       {$IFDEF MSDOS}
@@ -90,6 +91,7 @@
 
 var f:file;
     g:text;
+    md5f:text;
 {$IFDEF WINDOWS }
    dt          : TDateTime;
    DirInfo     : TSearchRec;
@@ -117,6 +119,7 @@
    ref         : boolean;
    s,u         : string[100];
    sim,zcout   : boolean;
+   md5b        : boolean;
    files       : byte;
    st,n        : macrop;
    dateSet,timeSet : boolean;
@@ -199,7 +202,8 @@
     writeln (' '+Paramark+'S             auch Systemdateien'+CR);
     writeln (' '+Paramark+'V             Vortaeuschmodus (Simulationslauf)'+CR);
     writeln (' '+Paramark+'G             Dateien in Grossbuchstaben wandeln'+CR);
-    writeln (' '+Paramark+'K             (nur bei '+Paramark+'G wirksam) Dateidatum und Uhrzeit beibehalten'+CR);
+    write   (' '+Paramark+'K             (nur bei '+Paramark+'G wirksam)');
+    writeln (' Dateidatum und Uhrzeit beibehalten'+CR);
     writeln ('Weiter mit beliebiger Taste'+CR);
     i:=Readkey;
     {$IFDEF BPLFN}
@@ -442,6 +446,7 @@
   {$IFDEF WINDOWS}
   nc:=false;
   {$ENDIF}
+  md5b:=false;
 end;
 
 {$IFDEF BPLFN}
@@ -473,7 +478,7 @@
 var s:string;
 begin
   str(v,s);
-  strs:=s;
+  if length(s)=1 then strs:='0'+s else strs:=s;
 end;
 
 procedure ZC;
@@ -486,8 +491,8 @@
                     'W+0'+CR);
   writeln(g,'MID: '+strs(dt.Year)+strs(dt.Month)+strs(dt.Day)+
                     strs(dt.Hour)+strs(dt.Min)+strs(dt.Sec)+
-                    '.'+strs(random(10))+strs(random(10))+strs(random(10))+strs(random(10))+
-                    strs(random(10))+strs(random(10))+strs(random(10))+strs(random(10))+'@touch.invalid'+CR);
+                    '.'+strs(random(100))+strs(random(100))+
+                    strs(random(100))+strs(random(100))+'@touch.invalid'+CR);
   writeln(g,'ROT: touch.invalid!test'+CR);
   writeln(g,'MAILER: '+touchname+pform+CR);
   writeln(g,'LEN: 30'+CR);
@@ -553,6 +558,7 @@
       if (copy(s,1,1)=Paramark) then begin
        s[2]:=UpCase(s[2]);
        s[3]:=UpCase(s[3]);
+       s[4]:=UpCase(s[4]);
        {Parameter gefunden}
        if (copy(s,2,2)='T=') then begin
          {Uhrzeit lesen}
@@ -657,6 +663,11 @@
           Readln(s);
         end;
        end;
+       if (copy(s,2,3)='MD5') then begin
+         {MD5-Summen einschalten}
+         md5b:=false;
+         {fxp1-Patch 28.10.2006}
+       end;
       end
       else newmacro;
     end;
@@ -664,7 +675,7 @@
       Writeln('Entweder Datum/Uhrzeit oder Referenzdatei'+CR);
       halt(1);
     end;
-    if not (nt and uc) then begin
+    if not (nt and uc) and not (nt and md5b) 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);
@@ -728,10 +739,12 @@
            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
              {Refdatei nicht touchen}
              if ref and testname(reffile,fname) then writeln(' Referenz'+CR)
              else begin
-               if (sim=false) then begin                
+               if (sim=false) then begin
                   Assign(f,fname);
                   if (nt and uc) then GetFtime(f,ftime);
                   {$I-}
@@ -758,8 +771,9 @@
                   if unixsetftime(s,ftime2epoch(ftime)) then writeln(''+CR) else writeln('!'+CR);
                   {$ENDIF}
                end
-               else writeln(''+CR);             
+               else writeln(''+CR);
              end;
+             end else writeln;
            end;
            {$IFNDEF BPLFN}
            FindNext(DirInfo);
@@ -814,6 +828,11 @@
 end.
 {
   $Log: touch.pas,v $
+  Revision 1.22.4.1  2006/10/28 10:23:44  mw
+  MW: - Uebernahme von Touch 1.2.5
+      - Rauspatchen der MD5-Funktion, da hier nicht notwendig
+        und zusaetzliche Dateien erfordern wuerde.
+
   Revision 1.22  2005/09/29 08:33:15  mw
   MW: - Bugfix: Schreibgeschtzte Refernzdateien fhrten zum Abbruch
 
--- /server/cvs/freexp/touch.inc	2005/01/01 11:16:26	1.4
+++ /server/cvs/freexp/touch.inc	2006/10/28 10:23:44	1.4.4.1
@@ -1,6 +1,6 @@
 { --------------------------------------------------------------- }
 { Dieser Quelltext ist urheberrechtlich geschuetzt.               }
-{ (c) 2004-2005      Martin Wodrich, http://www.martinwodrich.de  }
+{ (c) 2004-2006      Martin Wodrich, http://www.martinwodrich.de  }
 {                               software at martinwodrich.de         }
 {                                                                 }
 { Dieser Quelltext ist Freeware.                                  }
@@ -9,7 +9,7 @@
 { finden Sie in der Datei TOUCH.TXT oder auf                      }
 { http://www.martinwodrich.de/Software/Touch/nutzung.htm          }
 { --------------------------------------------------------------- }
-{ $Id: touch.inc,v 1.4 2005/01/01 11:16:26 mw Exp $ }
+{ $Id: touch.inc,v 1.4.4.1 2006/10/28 10:23:44 mw Exp $ }
 
 { Erstmal einiges definieren }
 
@@ -46,6 +46,11 @@
 
 {
   $Log: touch.inc,v $
+  Revision 1.4.4.1  2006/10/28 10:23:44  mw
+  MW: - Uebernahme von Touch 1.2.5
+      - Rauspatchen der MD5-Funktion, da hier nicht notwendig
+        und zusaetzliche Dateien erfordern wuerde.
+
   Revision 1.4  2005/01/01 11:16:26  mw
   MW: - Willkommen im Jahr 2005
 




Mehr Informationen über die CVS-List Mailingliste