|
Lines 290-296
if ( $tab eq 'sysinfo' ) {
Link Here
|
| 290 |
}; |
290 |
}; |
| 291 |
} |
291 |
} |
| 292 |
|
292 |
|
| 293 |
my $encryption_key = C4::Context->config('encryption_key'); |
293 |
my $encryption_key = C4::Context->config('encryption_key') || $ENV{KOHA_ENCRYPTION_KEY}; |
| 294 |
if ( !$encryption_key || $encryption_key eq '__ENCRYPTION_KEY__' ) { |
294 |
if ( !$encryption_key || $encryption_key eq '__ENCRYPTION_KEY__' ) { |
| 295 |
push @xml_config_warnings, { error => 'encryption_key_missing' }; |
295 |
push @xml_config_warnings, { error => 'encryption_key_missing' }; |
| 296 |
} |
296 |
} |
|
Lines 954-960
if ( $tab eq 'database' ) {
Link Here
|
| 954 |
|
954 |
|
| 955 |
my $bwsbranch_filename = '/usr/share/koha/bin/bwsbranch'; |
955 |
my $bwsbranch_filename = '/usr/share/koha/bin/bwsbranch'; |
| 956 |
if ( -r $bwsbranch_filename ) { |
956 |
if ( -r $bwsbranch_filename ) { |
| 957 |
my $bwsbranch = read_file( $bwsbranch_filename ); |
957 |
my $bwsbranch = read_file($bwsbranch_filename); |
| 958 |
$template->param( bwsbranch => $bwsbranch ); |
958 |
$template->param( bwsbranch => $bwsbranch ); |
| 959 |
} |
959 |
} |
| 960 |
|
960 |
|
|
Lines 962-969
my $url = C4::Context->preference('staffClientBaseURL');
Link Here
|
| 962 |
$url =~ s|https://||; |
962 |
$url =~ s|https://||; |
| 963 |
$url =~ s|http://||; |
963 |
$url =~ s|http://||; |
| 964 |
$template->param( |
964 |
$template->param( |
| 965 |
inbound_ip => qx{dig $url +short | grep '^[.0-9]*\$'}, |
965 |
inbound_ip => qx{dig $url +short | grep '^[.0-9]*\$'}, |
| 966 |
outbound_ip => qx{curl ipinfo.io/ip}, |
966 |
outbound_ip => qx{curl ipinfo.io/ip}, |
| 967 |
); |
967 |
); |
| 968 |
|
968 |
|
| 969 |
output_html_with_http_headers $query, $cookie, $template->output; |
969 |
output_html_with_http_headers $query, $cookie, $template->output; |