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
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list