Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	5.15 KB	-rw-r--r--	2026-07-17 21:17
acl-lib.pl	68.57 KB	-rwxr-xr-x	2026-07-17 21:17
acl_security.pl	2.33 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	2.64 KB	-rwxr-xr-x	2026-07-17 21:17
cert_form.cgi	1.53 KB	-rwxr-xr-x	2026-07-17 21:22
cert_issue.cgi	1.71 KB	-rwxr-xr-x	2026-07-17 21:22
cert_output.cgi	461 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	761 B	-rwxr-xr-x	2026-07-17 21:17
config	61 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	42 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	42 B	-rw-r--r--	2026-07-17 21:17
config-macos	42 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	42 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	46 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	51 B	-rw-r--r--	2026-07-17 21:17
config.info	258 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	385 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	397 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	295 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	265 B	-rw-r--r--	2026-07-17 21:17
config.info.da	259 B	-rw-r--r--	2026-07-17 21:17
config.info.de	273 B	-rw-r--r--	2026-07-17 21:17
config.info.es	265 B	-rw-r--r--	2026-07-17 21:17
config.info.eu	298 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	394 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	308 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	353 B	-rw-r--r--	2026-07-17 21:17
config.info.it	279 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	319 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	233 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	248 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	268 B	-rw-r--r--	2026-07-17 21:17
config.info.no	260 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	270 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	271 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	439 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	278 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	53 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	309 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	303 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	47 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	146 B	-rw-r--r--	2026-07-17 21:17
convert.cgi	3.81 KB	-rwxr-xr-x	2026-07-17 21:22
convert_form.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	226 B	-rw-r--r--	2026-07-17 21:17
delete_group.cgi	1.37 KB	-rwxr-xr-x	2026-07-17 21:22
delete_groups.cgi	1.47 KB	-rwxr-xr-x	2026-07-17 21:22
delete_session.cgi	501 B	-rwxr-xr-x	2026-07-17 21:22
delete_user.cgi	684 B	-rwxr-xr-x	2026-07-17 21:22
delete_users.cgi	2.95 KB	-rwxr-xr-x	2026-07-17 21:22
edit_acl.cgi	2.5 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	4.4 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pass.cgi	1.83 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sql.cgi	3.79 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sync.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
edit_unix.cgi	3.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	15.29 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	336 B	-rwxr-xr-x	2026-07-17 21:17
forgot_form.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
forgot_send.cgi	2.71 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	8.52 KB	-rwxr-xr-x	2026-07-17 21:22
list_sessions.cgi	2.48 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	2.14 KB	-rwxr-xr-x	2026-07-17 21:17
makedn.cgi	1.77 KB	-rwxr-xr-x	2026-07-17 21:22
maketables.cgi	1.24 KB	-rwxr-xr-x	2026-07-17 21:22
md5-lib.pl	7.73 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	187 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	43 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	192 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	28 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.da	23 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.de	146 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	253 B	-rw-r--r--	2026-07-17 21:17
module.info.es	125 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	159 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	238 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	150 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	28 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	147 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	30 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.it	22 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	137 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	26 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.no	23 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	113 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	133 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	40 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	190 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	29 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	26 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	32 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	246 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	106 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	28 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	112 B	-rw-r--r--	2026-07-17 21:17
negativeacl	13 B	-rw-r--r--	2026-07-17 21:17
openssl.cnf	6.02 KB	-rw-r--r--	2026-07-17 21:17
postinstall.pl	1012 B	-rwxr-xr-x	2026-07-17 21:17
prefs.info	22 B	-rw-r--r--	2026-07-17 21:17
save_acl.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_group.cgi	3.77 KB	-rwxr-xr-x	2026-07-17 21:22
save_pass.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_sql.cgi	3.4 KB	-rwxr-xr-x	2026-07-17 21:22
save_sync.cgi	746 B	-rwxr-xr-x	2026-07-17 21:22
save_twofactor.cgi	2.74 KB	-rwxr-xr-x	2026-07-17 21:22
save_unix.cgi	2.24 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	11.52 KB	-rwxr-xr-x	2026-07-17 21:22
schema.cgi	628 B	-rwxr-xr-x	2026-07-17 21:22
switch.cgi	742 B	-rwxr-xr-x	2026-07-17 21:22
system_info.pl	2.59 KB	-rw-r--r--	2026-07-17 21:17
test_twofactor.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
twofactor.pl	876 B	-rwxr-xr-x	2026-07-17 21:22
twofactor_form.cgi	2.03 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	3.12 KB	-rwxr-xr-x	2026-07-17 21:17
webmin.schema	1.34 KB	-rw-r--r--	2026-07-17 21:17

Rename

#!/usr/bin/perl
# save_group.cgi
# Create, modify or delete a webmin group

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';    ## no critic
our (%in, %text, %config, %access, $config_directory);
&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;
	}

my (%group, $old);
if ($in{'old'}) {
	# Get the original group
	$old = &get_group($in{'old'});
	$old || &error($text{'gedit_egone'});
	$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'}) {
	my $clash = &get_group($in{'name'});
	$clash && &error(&text('gsave_edup', $in{'name'}));
	}
$in{'desc'} !~ /:/ || &error($text{'gsave_edesc'});

# Find the current parent group
my $oldgroup;
if ($in{'old'}) {
	foreach my $g (&list_groups()) {
		if (&indexof('@'.$in{'old'}, @{$g->{'members'}}) >= 0) {
			$oldgroup = $g;
			}
		}
	}

my $newgroup;
if (defined($in{'group'})) {
	# Check if group is allowed
	if ($access{'gassign'} ne '*') {
		my @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
	$newgroup = &get_group($in{'group'});
	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 ($newgroup) {
			push(@{$newgroup->{'members'}}, '@'.$in{'name'});
			&modify_group($in{'group'}, $newgroup);
			}
		}
	}

# Work out group modules
my @mods = split(/\0/, $in{'mod'});

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

if ($newgroup) {
	# Add modules from parent group to list
	my @ownmods;
	foreach my $m (@mods) {
		push(@ownmods, $m)
			if (&indexof($m, @{$newgroup->{'modules'}}) < 0);
		}
	@mods = &unique(@mods, @{$newgroup->{'modules'}});
	$group{'ownmods'} = \@ownmods;

# Copy ACL files for parent group
	my $name = $in{'old'} ? $in{'old'} : $in{'name'};
	&copy_group_acl_files($in{'group'}, $name,
			      [ @{$newgroup->{'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
	my @glist = &list_groups();
	my @ulist = &list_users();
	&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");
	my %uaccess;
	&foreign_call("", "acl_security_save", \%uaccess, \%in);
	my $aclfile = "$config_directory/$in{'name'}.gacl";
	&lock_file($aclfile);
	&save_group_module_acl(\%uaccess, $in{'name'}, "", 1);
	&set_ownership_permissions(undef, undef, 0640, $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("");