PAL.C.T MINI SHELL
#!/usr/bin/perl
# stop.cgi
# Stop the mon process
require './mon-lib.pl';
&ReadParse();
if($in{'action_mon'}=~/$text{'mon_stop'}/){
$out = &backquote_logged("/etc/init.d/mon stop 1>/dev/null 2>&1");
}elsif($in{'action_mon'}=~/$text{'mon_start'}/){
$out = &backquote_logged("/etc/init.d/mon start 1>/dev/null 2>&1");
}else{
$out = &backquote_logged("/etc/init.d/mon restart 1>/dev/null 2>&1");
}
&redirect("");
�
y���~�or�5�J�={��E��e�u磝Qk��ᯘG{�?���+�]������ן�?w�M3X^��歌>{�7پ�K�>�o��n�\����j�y��R���g/�=��f�O��r�o��NV�v��~�Y+��NG�u���Ý����HW��y�w�[eQ�ʨ�S�b��>������>�}G�mx[o[<��{���Ϯ_��qF���vMIEND�B`�