FreeXP

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