restart_sharing.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# restart_sharing.cgi
# Call unshareall and shareall to stop and re-start file sharing

require './dfs-lib.pl';
$whatfailed = "Failed to apply changes";

$temp = &tempname();
system("$config{unshare_all_command} >/dev/null 2>$temp");
$why = `/bin/cat $temp`;
unlink($temp);
#if ($why =~ /\S+/) {
#	&error("Unshare failed : </h2><pre>$why</pre>");
#	}
system("$config{share_all_command} >/dev/null 2>$temp");
$why = `/bin/cat $temp`;
unlink($temp);
if ($why =~ /\S+/) {
	&error("Share failed : </h2><pre>$why</pre>");
	}
unlink($temp);
&redirect("");