restart.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# restart.cgi
# Kill all smbd and nmdb processes and re-start them

require './samba-lib.pl';

@smbpids = &find_byname("smbd");
@nmbpids = &find_byname("nmbd");
kill('TERM', @smbpids, @nmbpids);

$rv = system("$config{samba_server} </dev/null");
if ($rv) { &error("$config{samba_server} failed"); }
$rv = system("$config{name_server} </dev/null");
if ($rv) { &error("$config{name_server} failed"); }
&redirect("");