Option -C neu um alle Logs zu löschen (vorher war epost nicht parallelisierbar, da immer alle Logs am anfang gelöscht wurden)

1 files changed, 6 insertions, 3 deletions

diff --git a/epost.lpr b/epost.lpr
index df0d454..031095f 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -44,14 +44,16 @@ end;
 
 begin
   gibAus('Kopmiliert an '+{$I %DATE%}+' '+{$I %TIME%},1);
-  cleanupLogs;
   if (not (paramcount in [1,2])) or
-    ((paramcount=2) and (paramstr(2)<>'-L')) or
+    ((paramcount=2) and (paramstr(2)<>'-L') and (paramstr(2)<>'-C')) or
     not fileExists(paramstr(1)) then begin
     gibAus('Verwendung: '+paramstr(0)+' input.epost',3);
+    gibAus('oder:       '+paramstr(0)+' input.epost -C',3);
     gibAus('oder:       '+paramstr(0)+' input.epost -L',3);
     halt(1);
   end;
+  if (paramcount=2) and (paramstr(2)='-C') then
+    cleanupLogs;
   maxThreads:=1;
   Warnstufe:=wsStreng;
   parallelLesen:=false;
@@ -696,6 +698,7 @@ begin
     werteAufraeumen;
   end;
   aufraeumen;
-  if not behalteLogs then cleanupLogs;
+  if not behalteLogs then
+    cleanupLog(threadID);
 end.