save_share.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_share.cgi
# Save changes to a shared directory

require './dfs-lib.pl';
$whatfailed = "Failed to save share";
use Socket;
&ReadParse;

# check inputs
if ($in{directory} !~ /^\/.*/) {
	&error("$in{directory} is not a valid directory name");
	}
if (!(-d $in{directory})) {
	&error("The directory $in{directory} does not exist");
	}
@rolist = split(/\s+/, $in{rolist}); &check_hosts(@rolist);
@rwlist = split(/\s+/, $in{rwlist}); &check_hosts(@rwlist);
@rtlist = split(/\s+/, $in{rtlist}); &check_hosts(@rtlist);
if ($in{readwrite} == 2 && !@rwlist) {
	&error("You did not list any hosts to share read-write with");
	}
if ($in{readonly} == 2 && !@rolist) {
	&error("You did not list any hosts to share read-only with");
	}
if ($in{root} == 2 && !@rtlist) {
	&error("You did not list any hosts to share root with");
	}

# Remove from the read-only list any hosts shared read-write as well
if ($in{readwrite} == 1) {
	$in{readonly} = 0;
	}
elsif ($in{readwrite} == 2) {
	foreach $rwh (@rwlist) {
		if (($idx = &indexof($rwh, @rolist)) != -1) {
			splice(@rolist, $idx, 1);
			}
		}
	if (@rolist == 0 && $in{readonly} == 2) {
		$in{readonly} = 0;
		}
	}

if ($in{old}) {
	# Changing an existing share
	if ($in{old} ne $in{directory} && &get_share($in{directory})) {
		&error("The directory $in{directory} is already being shared");
		}
	@oinfo = &get_share($in{old});	# keep unknown options
	&parse_options($oinfo[3]);
	&set_options();
	&modify_share($in{old}, $in{directory}, $in{desc}, &join_options());
	}
else {
	# Creating a new share
	if (&get_share($in{directory})) {
		&error("The directory $in{directory} is already being shared");
		}
	&set_options();
	&create_share($in{directory}, $in{desc}, &join_options());
	}
&redirect("");


# set_options()
# Fill in the options associative array
sub set_options
{
if ($in{readonly} == 0) { delete($options{"ro"}); }
elsif ($in{readonly} == 1) { $options{"ro"} = ""; }
elsif ($in{readonly} == 2) { $options{"ro"} = join(':', @rolist); }

if ($in{readwrite} == 0) { delete($options{"rw"}); }
elsif ($in{readwrite} == 1) { $options{"rw"} = ""; }
elsif ($in{readwrite} == 2) { $options{"rw"} = join(':', @rwlist); }

if ($in{root} == 0) { delete($options{"root"}); }
elsif ($in{root} == 2) { $options{"root"} = join(':', @rtlist); }

if ($in{nosub}) { $options{"nosub"} = ""; }
else { delete($options{"nosub"}); }

if ($in{nosuid}) { $options{"nosuid"} = ""; }
else { delete($options{"nosuid"}); }

if ($in{secure}) { $options{"secure"} = ""; }
else { delete($options{"secure"}); }

if ($in{kerberos}) { $options{"kerberos"} = ""; }
else { delete($options{"kerberos"}); }

if ($in{'anon_m'} == 0) { delete($options{"anon"}); }
elsif ($in{'anon_m'} == 1) { $options{"anon"} = -1; }
else { $options{"anon"} = getpwnam($in{"anon"}); }

if ($in{aclok}) { $options{"aclok"} = ""; }
else { delete($options{"aclok"}); }

if ($gconfig{'os_version'} >= 7) {
	if ($in{'public'}) { $options{'public'} = ""; }
	else { delete($options{'public'}); }
	if (!$in{'index_def'}) { $options{'index'} = $in{'index'}; }
	else { delete($options{'index'}); }
	}
}

# check_hosts(host, host, ...)
# Die if any of the listed hosts does not exist
sub check_hosts
{
local $h;
if ($gconfig{'os_version'} < 7) {
	foreach $h (@_) {
		if (!inet_aton($h)) { &error("The host $h does not exist"); }
		}
	}
}