@@ -, +, @@
---
about.pl | 7 ++++++-
koha-tmpl/intranet-tmpl/prog/en/modules/about.tt | 11 +++++++++--
2 files changed, 15 insertions(+), 3 deletions(-)
--- a/about.pl
+++ a/about.pl
@@ -75,12 +75,17 @@ if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) {
my $memcached_servers = $ENV{MEMCACHED_SERVERS} || C4::Context->config('memcached_servers');
my $memcached_namespace = $ENV{MEMCACHED_NAMESPACE} || C4::Context->config('memcached_namespace') // 'koha';
-my $effective_caching_method = ref(Koha::Caches->get_instance->cache);
+my $cache = Koha::Caches->get_instance;
+my $effective_caching_method = ref($cache->cache);
+# Memcached may have been running when plack has been initialized but could have been stopped since
+# FIXME What are the consequences of that??
+my $is_memcached_still_active = $cache->set_in_cache('test_for_about_page', "just a simple value");
$template->param(
effective_caching_method => $effective_caching_method,
memcached_servers => $memcached_servers,
memcached_namespace => $memcached_namespace,
+ is_memcached_still_active => $is_memcached_still_active,
memcached_running => Koha::Caches->get_instance->memcached_cache
);
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt
@@ -58,8 +58,15 @@
Namespace: [% IF memcached_namespace %][% memcached_namespace | html %]
[% ELSE %]undefined[% END %] |
Status: [% IF memcached_servers %]
- [% IF memcached_running %]running
- [% ELSE %]not running[% END %]
+ [% IF memcached_running %]
+ [% IF is_memcached_still_active %]
+ running
+ [% ELSE %]
+ no longer running, restart memcached!
+ [% END %]
+ [% ELSE %]
+ not running
+ [% END %]
[% ELSE %]
unknown
[% END %]
--