Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.05 KB	-rw-r--r--
add.cgi	2.48 KB	-rwxr-xr-x
cluster-webmin-lib.pl	7.29 KB	-rwxr-xr-x
config	25 B	-rw-r--r--
config.info	108 B	-rw-r--r--
config.info.ca	135 B	-rw-r--r--
config.info.ca.UTF-8	137 B	-rw-r--r--
config.info.cz	71 B	-rw-r--r--
config.info.cz.UTF-8	79 B	-rw-r--r--
config.info.de	129 B	-rw-r--r--
config.info.de.UTF-8	129 B	-rw-r--r--
config.info.es	87 B	-rw-r--r--
config.info.es.UTF-8	87 B	-rw-r--r--
config.info.fr	75 B	-rw-r--r--
config.info.fr.UTF-8	77 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms_MY	131 B	-rw-r--r--
config.info.ms_MY.UTF-8	131 B	-rw-r--r--
config.info.nl	131 B	-rw-r--r--
config.info.nl.UTF-8	131 B	-rw-r--r--
config.info.no	131 B	-rw-r--r--
config.info.no.UTF-8	131 B	-rw-r--r--
config.info.pl	119 B	-rw-r--r--
config.info.pl.UTF-8	122 B	-rw-r--r--
create_group.cgi	3.11 KB	-rwxr-xr-x
create_user.cgi	3.95 KB	-rwxr-xr-x
delete_group.cgi	3.22 KB	-rwxr-xr-x
delete_host.cgi	248 B	-rwxr-xr-x
delete_mod.cgi	4.17 KB	-rwxr-xr-x
delete_user.cgi	2.15 KB	-rwxr-xr-x
edit_acl.cgi	3.94 KB	-rwxr-xr-x
edit_config.cgi	2.13 KB	-rwxr-xr-x
edit_group.cgi	6.35 KB	-rwxr-xr-x
edit_host.cgi	4.46 KB	-rwxr-xr-x
edit_mod.cgi	7 KB	-rwxr-xr-x
edit_user.cgi	8.96 KB	-rwxr-xr-x
group_form.cgi	2.98 KB	-rwxr-xr-x
index.cgi	9.46 KB	-rwxr-xr-x
install.cgi	7.67 KB	-rwxr-xr-x
module.info	227 B	-rw-r--r--
module.info.ca	171 B	-rw-r--r--
module.info.ca.UTF-8	190 B	-rw-r--r--
module.info.cz	33 B	-rw-r--r--
module.info.cz.UTF-8	39 B	-rw-r--r--
module.info.de	160 B	-rw-r--r--
module.info.de.UTF-8	172 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.UTF-8	42 B	-rw-r--r--
module.info.fr	35 B	-rw-r--r--
module.info.fr.UTF-8	41 B	-rw-r--r--
module.info.hu	33 B	-rw-r--r--
module.info.hu.UTF-8	39 B	-rw-r--r--
module.info.ms_MY	157 B	-rw-r--r--
module.info.ms_MY.UTF-8	169 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.UTF-8	39 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.UTF-8	38 B	-rw-r--r--
module.info.pl	163 B	-rw-r--r--
module.info.pl.UTF-8	180 B	-rw-r--r--
refresh.cgi	4.08 KB	-rwxr-xr-x
save_acl.cgi	3.33 KB	-rwxr-xr-x
save_config.cgi	1.33 KB	-rwxr-xr-x
save_group.cgi	4.54 KB	-rwxr-xr-x
save_user.cgi	5.24 KB	-rwxr-xr-x
sync.cgi	4 KB	-rwxr-xr-x
sync_form.cgi	1.8 KB	-rwxr-xr-x
update.cgi	4.1 KB	-rwxr-xr-x
upgrade.cgi	15.25 KB	-rwxr-xr-x
user_form.cgi	4.52 KB	-rwxr-xr-x

Code Editor : save_user.cgi

#!/usr/bin/perl
# save_user.cgi
# Update a webmin user on all servers

require './cluster-webmin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'user_title2'}, "");
print "",&text('user_doing2', $in{'old'}),"\n";

@allhosts = &list_webmin_hosts();
foreach $h (@allhosts) {
	foreach $ug (@{$h->{'users'}}, @{$h->{'groups'}}) {
		$taken{$ug->{'name'}}++;
		}
	}

# Validate inputs
$in{'name'} =~ /^[A-z0-9\-\_\.\@]+$/ ||
	&error(&text('user_ename', $in{'name'}));
$in{'name'} ne $in{'old'} && $taken{$in{'name'}} &&
	&error(&text('user_etaken', $in{'name'}));
$in{'pass_def'} == 0 && $in{'pass'} =~ /:/ && &error($text{'user_ecolon'});
if ($in{'ipmode'} > 0) {
	@ips = split(/\s+/, $in{'ips'});
	}

# Setup error handler for down hosts
sub user_error
{
$user_error_msg = join("", @_);
}
&remote_error_setup(\&user_error);

# Update the user on all servers that have him
foreach $h (@allhosts) {
	foreach $u (@{$h->{'users'}}) {
		if ($u->{'name'} eq $in{'old'}) {
			push(@hosts, $h);
			last;
			}
		}
	}
@servers = &list_servers();
$p = 0;
foreach $h (@hosts) {
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local ($rh = "READ$p", $wh = "WRITE$p");
	pipe($rh, $wh);
	if (!fork()) {
		close($rh);
		&remote_foreign_require($s->{'host'}, "acl", "acl-lib.pl");
		if ($user_error_msg) {
			# Host is down
			print $wh &serialise_variable([ 0, $user_error_msg ]);
			exit;
			}

# Update the user
		($user) = grep { $_->{'name'} eq $in{'old'} } @{$h->{'users'}};
		$user->{'name'} = $in{'name'};
		if (!$in{'lang_def'}) {
			$user->{'lang'} = $in{'lang'} ? $in{'lang'} : undef;
			}
		if (!$in{'theme_def'}) {
			if ($in{'theme'} eq 'webmin') {
				delete($user->{'theme'});
				}
			else {
				$user->{'theme'} = $in{'theme'};
				}
			}
		if ($in{'ipmode'} == 0) {
			delete($user->{'allow'});
			delete($user->{'deny'});
			}
		elsif ($in{'ipmode'} == 1) {
			$user->{'allow'} = join(" ", @ips);
			delete($user->{'deny'});
			}
		elsif ($in{'ipmode'} == 2) {
			delete($user->{'allow'});
			$user->{'deny'} = join(" ", @ips);
			}
		if ($in{'pass_def'} == 0) {
			$salt = chr(int(rand(26))+65).chr(int(rand(26))+65);
			$user->{'pass'} = &unix_crypt($in{'pass'}, $salt);
			$user->{'sync'} = 0;
			}
		elsif ($in{'pass_def'} == 3) {
			$user->{'pass'} = 'x';
			$user->{'sync'} = 0;
			}
		elsif ($in{'pass_def'} == 4) {
			$user->{'pass'} = '*LK*';
			$user->{'sync'} = 0;
			}
		elsif ($in{'pass_def'} == 5) {
			$user->{'pass'} = 'e';
			$user->{'sync'} = 0;
			}

# Save module categorization setting
		$user->{'notabs'} = $in{'notabs'};

# Work out which modules the user has
		local @selmods = ( split(/\0/, $in{'mods1'}),
				 split(/\0/, $in{'mods2'}),
				 split(/\0/, $in{'mods3'}) );
		local @mods = @{$user->{'modules'}};
		if ($in{'mods_def'} == 2) {
			@mods = @selmods;
			}
		elsif ($in{'mods_def'} == 3) {
			@mods = &unique(@mods, @selmods);
			}
		elsif ($in{'mods_def'} == 0) {
			@mods = grep { &indexof($_, @selmods) < 0 } @mods;
			}

# Update old and new groups
		foreach $g (@{$h->{'groups'}}) {
			if (&indexof($in{'old'}, @{$g->{'members'}}) >= 0) {
				$oldgroup = $g;
				}
			}
		if ($in{'group_def'}) {
			$group = $oldgroup;
			}
		else {
			($group) = grep { $_->{'name'} eq $in{'group'} }
					@{$h->{'groups'}};
			if (!$group && $in{'group'}) {
				print $wh &serialise_variable(
					[ 0, $text{'user_egroup'} ]);
				exit;
				}
			}
		if (($group ? $group->{'name'} : '') ne
		    ($oldgroup ? $oldgroup->{'name'} : '')) {
			# Group has changed - update the member lists
			if ($oldgroup) {
				$oldgroup->{'members'} =
					[ grep { $_ ne $in{'old'} }
					       @{$oldgroup->{'members'}} ];
				&remote_foreign_call($s->{'host'}, "acl",
				    "modify_group", $oldgroup->{'name'}, $oldgroup);
				}
			if ($group) {
				push(@{$group->{'members'}}, $in{'name'});
				&remote_foreign_call($s->{'host'}, "acl",
				    "modify_group", $group->{'name'}, $group);
				}
			}

if ($oldgroup) {
			# Remove modules from the old group
			@mods = grep { &indexof($_, @{$oldgroup->{'modules'}}) < 0 }
				 @mods;
			}

@ownmods = ( );
		if ($group) {
			# Add modules from new group
			foreach $m (@mods) {
				push(@ownmods, $m)
				 if (&indexof($m, @{$group->{'modules'}}) < 0);
				}
			@mods = &unique(@mods, @{$group->{'modules'}});
			&remote_foreign_call($s->{'host'}, "acl",
				"copy_acl_files", $group->{'name'}, $in{'old'},
				[ @{$group->{'modules'}}, "" ]);
			}

$user->{'modules'} = \@mods;
		$user->{'ownmods'} = \@ownmods;
		&remote_foreign_call($s->{'host'}, "acl", "modify_user",
				     $in{'old'}, $user);
		&save_webmin_host($h);

# Restart the remote webmin
		print $wh &serialise_variable([ 1 ]);
		&remote_foreign_call($s->{'host'}, "acl", "restart_miniserv");
		exit;
		}
	close($wh);
	$p++;
	}

# Read back the results
$p = 0;
foreach $h (@hosts) {
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = &server_name($s);
	local $rh = "READ$p";
	local $line = <$rh>;
	local $rv = &unserialise_variable($line);
	close($rh);

if ($rv && $rv->[0] == 1) {
		# It worked
		print &text('user_success2', $d)," \n";
		}
	else {
		# Something went wrong
		print &text('user_failed2', $d, $rv->[1])," \n";
		}
	$p++;
	}

print "$text{'user_done'}\n";

&remote_finished();
&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : save_user.cgi