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 }
{ [EMAIL PROTECTED] }
{ }
{ 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: Schreibgeschtzte Refernzdateien fhrten 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 }
{ [EMAIL PROTECTED] }
{ }
{ 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
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
