From 0227428481e77a85e8ff148299a5a26be22069a7 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 25 Sep 2018 09:23:05 +0200 Subject: popunit.pas: timeout -> timeOut --- popunit.pas | 44 ++++++++++++++++++++++---------------------- 1 file changed, 22 insertions(+), 22 deletions(-) diff --git a/popunit.pas b/popunit.pas index bd7f419..3bc8185 100644 --- a/popunit.pas +++ b/popunit.pas @@ -10,7 +10,7 @@ uses type tMarkenValiditaet = (mvKeine,mvGueltig,mvUngueltig); - tBefehlAusfuehrenErgebnis = (baeOk,baeError,baeTimeout); + tBefehlAusfuehrenErgebnis = (baeOk,baeError,baeTimeOut); tPopClient = class; @@ -60,7 +60,7 @@ type public sshUser,host,user,pass,gueltigerAdressat: string; port: longint; - timeout: extended; + timeOut: extended; neueNachrichten: tNotifyEvent; constructor create; destructor destroy; override; @@ -77,9 +77,9 @@ type function readString(p: tProcess): string; procedure writeString(p: tProcess; s: string); -function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended): tBefehlAusfuehrenErgebnis; overload; inline; -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; +function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended): tBefehlAusfuehrenErgebnis; overload; inline; +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; @@ -112,25 +112,25 @@ begin i:=i+p.input.write(s[i],length(s)-i+1); end; -function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended): tBefehlAusfuehrenErgebnis; +function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended): tBefehlAusfuehrenErgebnis; var dummy: string; begin - result:=befehlAusfuehren(pr,bef,timeout,dummy); + result:=befehlAusfuehren(pr,bef,timeOut,dummy); end; -function befehlAusfuehren(var pr: tProcess; bef: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; +function befehlAusfuehren(var pr: tProcess; bef: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis; begin - result:=befehlAusfuehren(pr,bef,'+OK',timeout,ausg); + result:=befehlAusfuehren(pr,bef,'+OK',timeOut,ausg); end; -function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeout: extended; out ausg: string): tBefehlAusfuehrenErgebnis; +function befehlAusfuehren(var pr: tProcess; bef,ende: string; timeOut: extended; out ausg: string): tBefehlAusfuehrenErgebnis; var zeit: extended; begin writeString(pr,bef+#10); - zeit:=now+timeout/24/60/60; + zeit:=now+timeOut/24/60/60; ausg:=''; while (zeit>now) and (pos(ende,ausg)=0) and (pos('-ERR',ausg)=0) do ausg:=ausg+readString(pr); @@ -149,7 +149,7 @@ begin writeln(stderr,bef+' fehlgeschlagen (timeout erreicht)!'); pr.free; pr:=nil; - result:=baeTimeout; + result:=baeTimeOut; end; // tNachricht ****************************************************************** @@ -335,8 +335,8 @@ begin if assigned(pr) then begin for i:=0 to length(_lIds)-1 do begin - case befehlAusfuehren(pr,'DELE '+intToStr(_lIds[i]),_besitzer.timeout) of - baeTimeout: exit; + case befehlAusfuehren(pr,'DELE '+intToStr(_lIds[i]),_besitzer.timeOut) of + baeTimeOut: exit; baeError: begin if beenden then exit; continue; @@ -384,7 +384,7 @@ begin auszenWeltKontakt(pr); if (_user<>'') and (_host<>'') and (_pass<>'') and (_port<>0) then begin if assigned(pr) then begin - if befehlAusfuehren(pr,'QUIT',_besitzer.timeout)=baeOk then + if befehlAusfuehren(pr,'QUIT',_besitzer.timeOut)=baeOk then pr.waitOnExit; pr.free; @@ -409,7 +409,7 @@ begin end; pr.options:=[poUsePipes]; pr.execute; - zeit:=now+_besitzer.timeout/24/60/60; + zeit:=now+_besitzer.timeOut/24/60/60; buf:=''; while (zeit>now) and (pos('+OK',buf)=0) do buf:=buf+readString(pr); @@ -424,19 +424,19 @@ begin if beenden then break; - if befehlAusfuehren(pr,'USER '+_user,_besitzer.timeout)<>baeOk then + if befehlAusfuehren(pr,'USER '+_user,_besitzer.timeOut)<>baeOk then continue; if beenden then break; - if befehlAusfuehren(pr,'PASS '+_pass,_besitzer.timeout)<>baeOk then + if befehlAusfuehren(pr,'PASS '+_pass,_besitzer.timeOut)<>baeOk then continue; if beenden then break; - if befehlAusfuehren(pr,'LIST',#13#10'.'#13#10,_besitzer.timeout,buf)<>baeOk then + if befehlAusfuehren(pr,'LIST',#13#10'.'#13#10,_besitzer.timeOut,buf)<>baeOk then continue; if beenden then @@ -479,7 +479,7 @@ begin for i:=0 to length(_nachrichten)-1 do if _nachrichten[i].count=0 then begin - if befehlAusfuehren(pr,'TOP '+intToStr(_nachrichten[i].id)+' 0',#13#10'.'#13#10,_besitzer.timeout,buf)<>baeOk then + if befehlAusfuehren(pr,'TOP '+intToStr(_nachrichten[i].id)+' 0',#13#10'.'#13#10,_besitzer.timeOut,buf)<>baeOk then break; if beenden then @@ -522,7 +522,7 @@ begin sleep(10); end; if assigned(pr) then begin - if befehlAusfuehren(pr,'QUIT',_besitzer.timeout)=baeOk then + if befehlAusfuehren(pr,'QUIT',_besitzer.timeOut)=baeOk then pr.waitOnExit; pr.free; @@ -543,7 +543,7 @@ begin _sdbName:=mkTemp('/tmp/Emails-hashcash.sdb.XXXXXX'); gueltigerAdressat:=''; port:=0; - timeout:=10; + timeOut:=10; setLength(_nachrichten,0); neueNachrichten:=nil; fillchar(_lIds,sizeOf(_lIds),#0); -- cgit v1.2.3-70-g09d2