SL/Controller/DebugMenu.pm

   1 package SL::Controller::DebugMenu;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Base);
   5
   6 # safety
   7 __PACKAGE__->run_before(sub { die 'not allowed in config' unless $::lx_office_conf{debug}{show_debug_menu}; });
   8
   9 sub action_reload {
  10   my ($self, %params) = @_;
  11
  12   print $::cgi->redirect('kopf.pl');
  13   exit;
  14 }
  15
  16 sub action_toggle {
  17   my ($self, %params) = @_;
  18
  19   $::lxdebug->level_by_name($::form->{level}, !$::lxdebug->level_by_name($::form->{level}));
  20   print $::cgi->redirect('kopf.pl');
  21   return;
  22 }
  23
  24 1;