stümperhafte Debugausgabe in popunit.pas

1 files changed, 46 insertions, 18 deletions

diff --git a/popunit.pas b/popunit.pas
index 67c4578..9bdfd62 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -17,6 +17,8 @@ type
   tNachricht = class(tMyStringList)
   private
     _marke: tMarkenValiditaet;
+    procedure pruefeMarke;
+    function rMarke: tMarkenValiditaet;
   public
     id,groesze:                longint;
     sdbName,gueltigerAdressat: string;
@@ -25,8 +27,7 @@ type
     procedure kopiereVon(n: tNachricht);
     function istGleich(n: tNachricht): boolean;
     property marke: tMarkenValiditaet
-      read _Marke;
-    procedure pruefeMarke;
+      read rMarke;
   end;
 
   tPopThread = class(tThread)
@@ -80,6 +81,8 @@ function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended): tBe
 function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload; inline;
 function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; overload;
 
+procedure _app(var f: text); inline;
+
 implementation
 
 uses lowlevelunit, systemunit;
@@ -170,30 +173,19 @@ begin
   inherited destroy;
 end;
 
-procedure tNachricht.kopiereVon(n: tNachricht);
-begin
-  text:=n.text;
-  id:=n.id;
-  groesze:=n.groesze;
-  _marke:=n._marke;
-  gueltigerAdressat:=n.gueltigerAdressat;
-  sdbName:=n.sdbName;
-end;
-
-function tNachricht.istGleich(n: tNachricht): boolean;
-begin
-  result:=(text=n.text) and (id=n.id) and (groesze=n.groesze);
-end;
-
 procedure tNachricht.pruefeMarke;
 var
   pr: tProcess;
+  f:  textfile;
 begin
   if grepFirst('^[Xx]-[Hh]ash[Cc]ash:\s')='' then begin
     _marke:=mvKeine;
     exit;
   end;
 
+  if _marke<>mvKeine then
+    exit;
+
   if sdbName='' then
     raise exception.create('sdbName noch nicht gesetzt!');
 
@@ -220,12 +212,43 @@ begin
   pr.closeOutput;
 
   case pr.exitStatus of
-    0: _marke:=mvGueltig;
+    0:
+      _marke:=mvGueltig;
     else
       _marke:=mvUngueltig;
   end;
 
   pr.free;
+  assignfile(f,'/tmp/email-log');
+  if fileexists('/tmp/email-log') then
+    _app(f)
+  else
+    rewrite(f);
+  writeln(f,datetimetostr(now));
+  writeln(f,grepFirst('^[Xx]-[Hh]ash[Cc]ash:\s'));
+  writeln(f,_marke);
+  closefile(f);
+end;
+
+function tNachricht.rMarke: tMarkenValiditaet;
+begin
+  pruefeMarke;
+  result:=_marke;
+end;
+
+procedure tNachricht.kopiereVon(n: tNachricht);
+begin
+  text:=n.text;
+  id:=n.id;
+  groesze:=n.groesze;
+  _marke:=n.marke;
+  gueltigerAdressat:=n.gueltigerAdressat;
+  sdbName:=n.sdbName;
+end;
+
+function tNachricht.istGleich(n: tNachricht): boolean;
+begin
+  result:=(text=n.text) and (id=n.id) and (groesze=n.groesze);
 end;
 
 // tPopThread ******************************************************************
@@ -612,5 +635,10 @@ begin
     neueNachrichten(self);
 end;
 
+procedure _app(var f: text); inline;
+begin
+  append(f);
+end;
+
 end.