logrotate/force.cgi

   1 #!/usr/local/bin/perl
   2 # Force log rotate
   3
   4 require './logrotate-lib.pl';
   5
   6 &ui_print_header(undef, $text{'force_title'}, "");
   7
   8 # Save this CGI from being killed by the rotation of Webmin's own logs
   9 $SIG{'TERM'} = 'IGNORE';
  10
  11 print $text{'force_doing'},"\n";
  12 &clean_environment();
  13 $out = &backquote_logged("$config{'logrotate'} -f $config{'logrotate_conf'} 2>&1");
  14 &reset_environment();
  15 print "<pre>$out</pre>";
  16 if ($?) {
  17         print $text{'force_failed'},"<br>\n";
  18         }
  19 else {
  20         print $text{'force_done'},"<br>\n";
  21         }
  22
  23 &webmin_log("force");
  24 &ui_print_footer("", $text{'index_return'});
  25