Bivio::Biz::Action::EmptyReply
# Copyright (c) 2002-2010 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Biz::Action::EmptyReply;
use strict;
use Bivio::Base 'Biz.Action';
my($_AC) = b_use('Ext.ApacheConstants');
b_use('Agent.Task')->register(__PACKAGE__);
b_use('Action.BasicAuthorization');
sub execute {
my($proto, $req, $status, $output) = @_;
$status = $status ? uc($status) : 'HTTP_OK';
$status = 'NOT_FOUND'
if $status =~ /NOT_FOUND/;
$status = 'SERVER_ERROR'
if $status eq 'UPDATE_COLLISION';
unless ($_AC->can($status)) {
b_warn($status, ': unknown ApacheConstants method');
$status = 'SERVER_ERROR';
}
my($reply) = $req->get('reply');
unless ($reply->unsafe_get_output) {
$output ||= '';
$reply->set_output(\$output);
$status = 'HTTP_NO_CONTENT'
if $status eq 'HTTP_OK' && !(defined($output) && length($output));
}
$reply->set_http_status($_AC->$status);
return 1;
}
sub execute_forbidden {
return shift->execute(shift, 'FORBIDDEN');
}
sub execute_no_resources {
return shift->execute(shift, 'HTTP_SERVICE_UNAVAILABLE');
}
sub execute_not_found {
return shift->execute(shift, 'NOT_FOUND');
}
sub execute_server_error {
return shift->execute(shift, 'SERVER_ERROR');
}
sub execute_task_item {
my($self, $error, $req) = @_;
return ($error || '') =~ /^execute/ ? $self->$error($req)
: $self->execute($req, uc($error));
}
1;