kill_user.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# kill_user.cgi
# Kill a samba process connecting to some client

require './samba-lib.pl';
&ReadParse();
kill('TERM', $in{pid});
if ($in{share}) { &redirect("view_users.cgi?share=$in{share}"); }
else { &redirect("view_users.cgi"); }