byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use flatten code instead of the over complex bucket manipulation

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@440 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-06-20 21:03:41 +00:00
parent b906f67123
commit b54c8ec46c
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib/Apache/Qpsmtpd.pm
View File

@ -16,7 +16,6 @@ use APR::Bucket ();
use APR::Socket ();
use Apache2::Filter ();
use ModPerl::Util ();
# use Apache::TieBucketBrigade;
our $VERSION = '0.02';
@ -112,14 +111,11 @@ sub getline {
my $rc = $c->input_filters->get_brigade($bb, Apache2::Const::MODE_GETLINE);
return if $rc == APR::Const::EOF;
die APR::Error::strerror($rc) unless $rc == APR::Const::SUCCESS;
my $data = '';
while (!$bb->is_empty) {
my $b = $bb->first;
$b->read(my $newdata);
$data .= $newdata;
return $data if index($newdata, "\n") >= 0;
}
next unless $bb->flatten(my $data);
$bb->cleanup;
return $data;
}
return '';
@ -145,10 +141,11 @@ sub respond {
my $bb = $self->{bb_out};
my $line = $code . (@messages?"-":" ").$msg;
$self->log(LOGDEBUG, $line);
my $bucket = APR::Bucket->new(($c->bucket_alloc), "$line\r\n");
my $bucket = APR::Bucket->new(($c->bucket_alloc), "$line\r\n");
$bb->insert_tail($bucket);
$c->output_filters->fflush($bb);
$bucket->remove;
# $bucket->remove;
$bb->cleanup;
}
return 1;
}