Ausgaben aufgeräumt, Zeilenumbruchbeseitigung bereinigt

1 files changed, 4 insertions, 5 deletions

diff --git a/popunit.pas b/popunit.pas
index a436feb..dc7a52c 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -167,7 +167,6 @@ begin
   if assigned(pr) then begin
     for i:=_lIds.count-1 downto 0 do begin
       writeString(pr,'DELE '+_lIds[i]+#10);
-      writeln(stderr,'DELE '+_lIds[i]);
 
       zeit:=now+_besitzer.timeout/24/60/60;
       buf:='';
@@ -378,7 +377,7 @@ begin
           _nachrichten[i].text:=_nachrichten[i].text + buf;
           for j:=_nachrichten[i].count-1 downto 3 do
             if (length(_nachrichten[i][j])>0) and (_nachrichten[i][j][1] in [' ',#9]) then begin
-              _nachrichten[i][j-1]:=trimRight(_nachrichten[i][j-1])+' '+trim(_nachrichten[i][j]);
+              _nachrichten[i][j-1]:=trimRight(_nachrichten[i][j-1])+trim(_nachrichten[i][j]);
               _nachrichten[i].delete(j);
             end;
         end;
@@ -388,10 +387,8 @@ begin
 
       auszenWeltKontakt(pr);
 
-      if beenden or not assigned(pr) or esGibtArbeit then begin
-        writeln(beenden,' ',assigned(pr),' ',esGibtArbeit);
+      if beenden or not assigned(pr) or esGibtArbeit then
         continue;
-      end;
 
       zeit:=now;
       for i:=0 to 5 do begin
@@ -504,6 +501,7 @@ begin
   pr.options:=[poUsePipes];
   pr.execute;
 
+  writeln(stderr,''''+s+''' ->');
   writeString(pr,s);
   pr.closeInput;
   erg:='';
@@ -519,6 +517,7 @@ begin
     result:=mvKeine;
     exit;
   end;
+  writeln(stderr,''''+erg+'''');
   erg:=leftStr(erg,(bits+3) div 4);
   result:=mvUngueltig;
   while length(erg)>1 do begin