PAL.C.T MINI SHELL
#!/usr/bin/perl
# Stop some feature-related service
require './virtual-server-lib.pl';
&ReadParse();
&can_stop_servers() || &error($text{'stop_ecannot'});
if (&indexof($in{'feature'}, @plugins) < 0) {
# Core feature
$sfunc = "stop_service_".$in{'feature'};
$err = &$sfunc();
$name = $text{'feature_'.$in{'feature'}};
}
else {
# Plugin
$err = &plugin_call($in{'feature'}, "feature_stop_service");
$name = &plugin_call($in{'feature'}, "feature_name");
}
&error_setup($text{'stop_err'});
&refresh_startstop_status();
&error($err) if ($err);
&webmin_log("stop", $in{'feature'});
if ($in{'show'}) {
# Tell the user
&ui_print_header(undef, $text{'stop_title'}, "");
print &text('stop_done', $name),"<p>\n";
&run_post_actions();
&ui_print_footer("", $text{'index_return'});
}
elsif ($in{'redirect'}) {
&run_post_actions_silently();
&redirect($in{'redirect'});
}
else {
&run_post_actions_silently();
&redirect($ENV{'HTTP_REFERER'});
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`