mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
143 lines
3.6 KiB
Perl
Executable File
143 lines
3.6 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# save_group.cgi
|
|
# Create, modify or delete a webmin group
|
|
|
|
require './acl-lib.pl';
|
|
&ReadParse();
|
|
|
|
# Check for special button clicks, and redirect
|
|
if ($in{'but_clone'}) {
|
|
&redirect("edit_group.cgi?clone=".&urlize($in{'old'}));
|
|
exit;
|
|
}
|
|
elsif ($in{'but_delete'}) {
|
|
&redirect("delete_group.cgi?group=".&urlize($in{'old'}));
|
|
exit;
|
|
}
|
|
|
|
@glist = &list_groups();
|
|
@ulist = &list_users();
|
|
if ($in{'old'}) {
|
|
%group = ( );
|
|
foreach $g (@glist) {
|
|
$old = $g if ($g->{'name'} eq $in{'old'});
|
|
}
|
|
$group{'members'} = $old->{'members'};
|
|
$group{'proto'} = $old->{'proto'};
|
|
$group{'id'} = $old->{'id'};
|
|
}
|
|
&error_setup($text{'gsave_err'});
|
|
|
|
# Check for duplicate group names
|
|
$in{'name'} =~ /^[A-z0-9\-\_\.\@]+$/ && $in{'name'} !~ /^\@/ ||
|
|
&error(&text('gsave_ename', $in{'name'}));
|
|
$in{'name'} eq 'webmin' && &error($text{'gsave_enamewebmin'});
|
|
if (!$in{'old'} || $in{'old'} ne $in{'name'}) {
|
|
foreach $g (@glist) {
|
|
if ($g->{'name'} eq $in{'name'}) {
|
|
&error(&text('gsave_edup', $in{'name'}));
|
|
}
|
|
}
|
|
}
|
|
$in{'desc'} !~ /:/ || &error($text{'gsave_edesc'});
|
|
|
|
# Find the current group
|
|
if ($in{'old'}) {
|
|
foreach $g (&list_groups()) {
|
|
if (&indexof('@'.$in{'old'}, @{$g->{'members'}}) >= 0) {
|
|
$oldgroup = $g;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (defined($in{'group'})) {
|
|
# Check if group is allowed
|
|
if ($access{'gassign'} ne '*') {
|
|
local @gcan = split(/\s+/, $access{'gassign'});
|
|
$in{'group'} && &indexof($in{'group'}, @gcan) >= 0 ||
|
|
!$in{'group'} && &indexof('_none', @gcan) >= 0 ||
|
|
$oldgroup && $oldgroup->{'name'} eq $in{'group'} ||
|
|
&error($text{'save_egroup'});
|
|
}
|
|
|
|
# Store parent group membership
|
|
@glist = &list_groups();
|
|
($group) = grep { $_->{'name'} eq $in{'group'} } @glist;
|
|
if ($in{'group'} ne ($oldgroup ? $oldgroup->{'name'} : '')) {
|
|
# Group has changed - update the member lists
|
|
if ($oldgroup) {
|
|
$oldgroup->{'members'} =
|
|
[ grep { $_ ne '@'.$in{'old'} }
|
|
@{$oldgroup->{'members'}} ];
|
|
&modify_group($oldgroup->{'name'}, $oldgroup);
|
|
}
|
|
if ($group) {
|
|
push(@{$group->{'members'}}, '@'.$in{'name'});
|
|
&modify_group($in{'group'}, $group);
|
|
}
|
|
}
|
|
}
|
|
|
|
# Work out group modules
|
|
@mods = split(/\0/, $in{'mod'});
|
|
|
|
if ($oldgroup) {
|
|
# Remove modules from the old parent group
|
|
@mods = grep { &indexof($_, @{$oldgroup->{'modules'}}) < 0 } @mods;
|
|
}
|
|
|
|
if ($group) {
|
|
# Add modules from parent group to list
|
|
local @ownmods;
|
|
foreach $m (@mods) {
|
|
push(@ownmods, $m)
|
|
if (&indexof($m, @{$group->{'modules'}}) < 0);
|
|
}
|
|
@mods = &unique(@mods, @{$group->{'modules'}});
|
|
$group{'ownmods'} = \@ownmods;
|
|
|
|
# Copy ACL files for parent group
|
|
local $name = $in{'old'} ? $in{'old'} : $in{'name'};
|
|
©_group_acl_files($in{'group'}, $name,
|
|
[ @{$group->{'modules'}}, "" ]);
|
|
}
|
|
|
|
# Store group options
|
|
$group{'modules'} = \@mods;
|
|
$group{'name'} = $in{'name'};
|
|
$group{'desc'} = $in{'desc'};
|
|
|
|
if ($in{'old'}) {
|
|
# update group
|
|
&modify_group($in{'old'}, \%group);
|
|
|
|
# recursively update all member users and groups
|
|
&update_members(\@ulist, \@glist, $group{'modules'},
|
|
$old->{'members'});
|
|
}
|
|
else {
|
|
# create group
|
|
&create_group(\%group, $in{'clone'});
|
|
}
|
|
|
|
if ($in{'old'} && $in{'acl_security_form'}) {
|
|
# Update group's global ACL
|
|
&foreign_require("", "acl_security.pl");
|
|
&foreign_call("", "acl_security_save", \%uaccess, \%in);
|
|
$aclfile = "$config_directory/$in{'name'}.gacl";
|
|
&lock_file($aclfile);
|
|
&save_group_module_acl(\%uaccess, $in{'name'}, "", 1);
|
|
chmod(0640, $aclfile) if (-r $aclfile);
|
|
&unlock_file($aclfile);
|
|
}
|
|
|
|
&reload_miniserv();
|
|
if ($in{'old'}) {
|
|
&webmin_log("modify", "group", $in{'old'}, \%in);
|
|
}
|
|
else {
|
|
&webmin_log("create", "group", $group{'name'}, \%in);
|
|
}
|
|
&redirect("");
|
|
|