restart.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 12 行

#!/usr/local/bin/perl
# restart.cgi
# Restart the running named

require './bind8-lib.pl';
&ReadParse();
%access = &get_module_acl();
$access{'ro'} && &error($text{'restart_ecannot'});
kill('HUP', $in{'pid'}) || &error(&text('restart_esig', $in{'pid'}, $!));
&redirect("");