# use utf8;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout);
BEGIN {
sub psgi_env { any { /(^psgi\.|^plack\.)/i } keys %ENV }
sub psgi_env { any { /^psgi\./ } keys %ENV }
sub safe_exit {
if (psgi_env) { die 'psgi:exit' }
else { exit }
}
C4::Context->set_remote_address;
errno => 400,
);
my $status = '400 Bad Request';
if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
if ( C4::Auth::psgi_env() ) {
$status = '200 OK';
output_with_http_headers $query, $cookie, $template->output, 'html', $status;
errno => 401,
my $status = '401 Unauthorized';
errno => 402,
my $status = '402 Payment Required';
errno => 403,
my $status = '403 Forbidden';
errno => 404,
my $status = '404 Not Found';
errno => 500,
my $status = '500 Internal Server Error';
-