misc/bin/clear_cache.pl

   1 #!/usr/bin/perl -w
   2
   3 use Modern::Perl;
   4 use Koha::Caches;
   5
   6 # Could take parameters to be less rude
   7 Koha::Caches->get_instance()->flush_all;
   8 Koha::Caches->get_instance('config')->flush_all;
   9 Koha::Caches->get_instance('sysprefs')->flush_all;