Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- freexp/touch.pas 20 Apr 2006 08:04:09 -0000 1.28
+++ freexp/touch.pas 2 Sep 2006 15:54:53 -0000 1.29
@@ -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.28 2006/04/20 08:04:09 mw Exp $ }
+{ $Id: touch.pas,v 1.29 2006/09/02 15:54:53 mw Exp $ }
{$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF}
program touch;
{$I TOUCH.INC }
@@ -28,7 +28,7 @@
const anyfile=$21;
{$IFNDEF DPMI}
{$IFNDEF unix}
- beta='.4'; {Patchlevel 4}
+ beta='.5'; {Patchlevel 5}
{$ELSE}
!!! Touch 1.2 lΣuft nicht auf unixartigen Betriebsystemen !!
beta=' Alpha 7';
@@ -202,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 und
'+Paramark+'MD5 wirksam)');
+ writeln (' Dateidatum und Uhrzeit beibehalten'+CR);
writeln ('Weiter mit beliebiger Taste'+CR);
i:=Readkey;
{$IFDEF BPLFN}
@@ -667,11 +668,24 @@
{MD5-Summen einschalten}
md5b:=true;
{$IFDEF unix}
- assign(md5f,'md5sums');
+ if exist('md5sums') then begin
+ assign(md5f,'md5sums');
+ append(md5f);
+ end else
+ begin
+ assign(md5f,'md5sums');
+ rewrite(md5f);
+ end;
{$ELSE}
- assign(md5f,'MD5SUMS');
+ if exist('MD5SUMS') then begin
+ assign(md5f,'MD5SUMS');
+ append(md5f);
+ end else
+ begin
+ assign(md5f,'MD5SUMS');
+ rewrite(md5f);
+ end;
{$ENDIF}
- if existf(md5f) then append(md5f) else rewrite(md5f);
end;
end
else newmacro;
@@ -680,12 +694,13 @@
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);
end;
if uc then writeln('Dateinamen grossschreiben'+CR);
+ if md5b then writeln('MD5-Pruefsummen berechnen'+CR);
{Datetime packen}
if not ref then begin
dt.Year:=y;
@@ -745,12 +760,14 @@
if fname<>own then begin
write(fname);
if md5b then begin
- writeln(md5f,md5sum_file(fname)+' *'+fname);
+ writeln(md5f,md5sum_file(fname)+' *'+fname);
end;
+ {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-}
@@ -777,8 +794,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);
@@ -834,6 +852,9 @@
end.
{
$Log: touch.pas,v $
+ Revision 1.29 2006/09/02 15:54:53 mw
+ MW: - Update auf Touch 1.2.5
+
Revision 1.28 2006/04/20 08:04:09 mw
MW: - Update auf Touch 1.2.4
Index: freexp/doc/touch.txt
===================================================================
RCS file: /server/cvs/freexp/doc/touch.txt,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- freexp/doc/touch.txt 29 Apr 2006 13:56:05 -0000 1.9
+++ freexp/doc/touch.txt 2 Sep 2006 15:54:27 -0000 1.10
@@ -318,6 +318,13 @@
-------------------
- Neues Feature md5-Summen
-Waltrop, 29.04.2006
+- 1.2.5 (02.09.2006):
+ -------------------
+ - Bugfixing
+ - Programmfunktion kann auf
+ MD5-Summenerzeugung
+ reduziert werden.
+
+Waltrop, 02.09.2006
Martin Wodrich
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[email protected]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
