CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Don Nov 24 00:00:25 CET 2005
Index: freexp/touch.pas
===================================================================
RCS file: /server/cvs/freexp/touch.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- freexp/touch.pas 29 Sep 2005 08:33:15 -0000 1.22
+++ freexp/touch.pas 23 Nov 2005 11:36:37 -0000 1.23
@@ -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 2005/09/29 08:33:15 mw Exp $ }
+{ $Id: touch.pas,v 1.23 2005/11/23 11:36:37 mw Exp $ }
program touch;
{$I TOUCH.INC }
@@ -473,7 +473,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 +486,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);
@@ -814,6 +814,9 @@
end.
{
$Log: touch.pas,v $
+ Revision 1.23 2005/11/23 11:36:37 mw
+ MW: - Fehler in Touch beseitigt (Upstream-Bugfix!!D)
+
Revision 1.22 2005/09/29 08:33:15 mw
MW: - Bugfix: Schreibgeschützte Refernzdateien führten zum Abbruch
Mehr Informationen über die CVS-List Mailingliste