stabile/support/mon/mon_action.cgi @ master
| 1 |
#!/usr/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 |
|