View | Details | Raw Unified | Return to bug 17240
Collapse All | Expand All

(-)a/C4/Context.pm (+13 lines)
Lines 113-118 use POSIX (); Link Here
113
use DateTime::TimeZone;
113
use DateTime::TimeZone;
114
use Module::Load::Conditional qw(can_load);
114
use Module::Load::Conditional qw(can_load);
115
use Carp;
115
use Carp;
116
use List::MoreUtils qw(any);
116
117
117
use C4::Boolean;
118
use C4::Boolean;
118
use C4::Debug;
119
use C4::Debug;
Lines 1140-1145 sub interface { Link Here
1140
    return $context->{interface} // 'opac';
1141
    return $context->{interface} // 'opac';
1141
}
1142
}
1142
1143
1144
=head2 interface
1145
1146
    C4::Context->is_psgi
1147
1148
    Returns if using PSGI mode (Plack) instead of CGI mode
1149
1150
=cut
1151
1152
sub is_psgi {
1153
    return any { /(^psgi\.|^plack\.)/i } keys %ENV;
1154
}
1155
1143
1;
1156
1;
1144
__END__
1157
__END__
1145
1158
(-)a/about.pl (-3 / +1 lines)
Lines 23-29 Link Here
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use List::MoreUtils qw/ any /;
27
use LWP::Simple;
26
use LWP::Simple;
28
use XML::Simple;
27
use XML::Simple;
29
use Config;
28
use Config;
Lines 61-67 if ($^O ne 'VMS') { Link Here
61
my $zebraVersion = `zebraidx -V`;
60
my $zebraVersion = `zebraidx -V`;
62
61
63
# Check running PSGI env
62
# Check running PSGI env
64
if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
63
if ( C4::Context->is_psgi ) {
65
    $template->param(
64
    $template->param(
66
        is_psgi => 1,
65
        is_psgi => 1,
67
        psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" :
66
        psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" :
68
- 

Return to bug 17240