mon/mon_action.cgi

   1 #!/usr/local/bin/perl
   2 # stop.cgi
   3 # Stop the mon process
   4
   5 require './mon-lib.pl';
   6 &ReadParse();
   7 if($in{'action_mon'}=~/$text{'mon_stop'}/){
   8         $out = &backquote_logged("/etc/init.d/mon stop 1>/dev/null 2>&1");
   9 }elsif($in{'action_mon'}=~/$text{'mon_start'}/){
  10         $out = &backquote_logged("/etc/init.d/mon start 1>/dev/null 2>&1");
  11 }else{
  12         $out = &backquote_logged("/etc/init.d/mon restart 1>/dev/null 2>&1");
  13 }
  14 &redirect("");
  15