view release on metacpan or  search on metacpan

lib/EntityModel/Web/Apache2/UploadHandler.pm  view on Meta::CPAN

	logError("Have upload %s, attaching filter", $page->upload);
	$r->add_input_filter($class . '->updateStatus');
	return Apache2::Const::OK;
}

=head2 C<updateStatus>

=cut

sub updateStatus {
	my ($class, $f, $bucket, $mode, $block, $bytesRead) = @_;
	logError("Have %d bytes", $bytesRead);

	unless($f->ctx) {
		logError("New request, pid %d, URI %s", $$, $f->r->uri);
		my ($page) = $::SITE->pageFromURI($f->r->uri);
		$f->ctx({
			page		=> $page,
			total		=> $f->r->headers_in->get('Content-Length') || 0,
			upload		=> $page->upload->new(r => EntityModel::Web::Request::Apache2->new($f->r)),