aboutsummaryrefslogtreecommitdiffstats
path: root/perl
diff options
context:
space:
mode:
authorcebka@lenovo-laptop <cebka@lenovo-laptop>2010-03-15 21:31:54 +0300
committercebka@lenovo-laptop <cebka@lenovo-laptop>2010-03-15 21:31:54 +0300
commitd41fec74be04d13bd07adffe796c66cc52d8c4b7 (patch)
tree3565f41889234c25cd8ecff718e0a0213ee3713e /perl
parent4df6a746d9ef3fb4237cec750238f3dada86e847 (diff)
downloadrspamd-d41fec74be04d13bd07adffe796c66cc52d8c4b7.tar.gz
rspamd-d41fec74be04d13bd07adffe796c66cc52d8c4b7.zip
* Read 'END' after password command
Diffstat (limited to 'perl')
-rw-r--r--perl/lib/Mail/Rspamd/Client.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl/lib/Mail/Rspamd/Client.pm b/perl/lib/Mail/Rspamd/Client.pm
index dd09d4a2f..100bfad68 100644
--- a/perl/lib/Mail/Rspamd/Client.pm
+++ b/perl/lib/Mail/Rspamd/Client.pm
@@ -670,6 +670,9 @@ sub _auth {
if (sysread($sock, $reply, 255)) {
if ($reply =~ /^password accepted/) {
+ return 0 unless $self->_get_io_readiness($sock, 0);
+ # read "END"
+ sysread($sock, $reply, 255);
return 1;
}
}