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.66 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	8.69 KB	-rwxr-xr-x	2026-07-17 21:17
aix-lib.pl	1.24 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	749 B	-rwxr-xr-x	2026-07-17 21:17
batch_exec.cgi	17.2 KB	-rwxr-xr-x	2026-07-17 21:22
batch_form.cgi	2.42 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	477 B	-rwxr-xr-x	2026-07-17 21:17
config-aix	719 B	-rw-r--r--	2026-07-17 21:17
config-cobalt-linux	726 B	-rw-r--r--	2026-07-17 21:17
config-coherent-linux	673 B	-rw-r--r--	2026-07-17 21:17
config-corel-linux	681 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	681 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	700 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	693 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	653 B	-rw-r--r--	2026-07-17 21:17
config-hpux	595 B	-rw-r--r--	2026-07-17 21:17
config-irix	761 B	-rw-r--r--	2026-07-17 21:17
config-macos	597 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	678 B	-rw-r--r--	2026-07-17 21:17
config-msc-linux	673 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	639 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	703 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	731 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	652 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	673 B	-rw-r--r--	2026-07-17 21:17
config-openserver	857 B	-rw-r--r--	2026-07-17 21:17
config-osf1	595 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	681 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-15.0-ALL	675 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-ALL-14.9	673 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	679 B	-rw-r--r--	2026-07-17 21:17
config-sol-linux	673 B	-rw-r--r--	2026-07-17 21:17
config-solaris	647 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	693 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux-9.0-ALL	731 B	-rw-r--r--	2026-07-17 21:17
config-trustix-linux	673 B	-rw-r--r--	2026-07-17 21:17
config-turbo-linux	693 B	-rw-r--r--	2026-07-17 21:17
config-united-linux	693 B	-rw-r--r--	2026-07-17 21:17
config-unixware	611 B	-rw-r--r--	2026-07-17 21:17
config.info	4.07 KB	-rw-r--r--	2026-07-17 21:17
config.info.bg	7.87 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	4.82 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	4.21 KB	-rw-r--r--	2026-07-17 21:17
config.info.da	3.7 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	4.65 KB	-rw-r--r--	2026-07-17 21:17
config.info.es	4.34 KB	-rw-r--r--	2026-07-17 21:17
config.info.fa	6.04 KB	-rw-r--r--	2026-07-17 21:17
config.info.fr	2.77 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	4.96 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	4.61 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	4.12 KB	-rw-r--r--	2026-07-17 21:17
config.info.pl	3.01 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	4.36 KB	-rw-r--r--	2026-07-17 21:17
config.info.ru	4.61 KB	-rw-r--r--	2026-07-17 21:17
config.info.sv	1.06 KB	-rw-r--r--	2026-07-17 21:17
config.info.tr	3.69 KB	-rw-r--r--	2026-07-17 21:17
config.info.uk	4.58 KB	-rw-r--r--	2026-07-17 21:17
config.info.zh	961 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	909 B	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	256 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	369 B	-rw-r--r--	2026-07-17 21:17
delete_group.cgi	2.18 KB	-rwxr-xr-x	2026-07-17 21:22
delete_user.cgi	4.69 KB	-rwxr-xr-x	2026-07-17 21:22
edit_group.cgi	4.97 KB	-rwxr-xr-x	2026-07-17 21:22
edit_user.cgi	19.19 KB	-rwxr-xr-x	2026-07-17 21:22
export_exec.cgi	2.9 KB	-rwxr-xr-x	2026-07-17 21:22
export_form.cgi	1.77 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	2.02 KB	-rwxr-xr-x	2026-07-17 21:17
gbatch_exec.cgi	8.03 KB	-rwxr-xr-x	2026-07-17 21:22
gbatch_form.cgi	1.59 KB	-rwxr-xr-x	2026-07-17 21:22
gexport_exec.cgi	1.73 KB	-rwxr-xr-x	2026-07-17 21:22
gexport_form.cgi	1.26 KB	-rwxr-xr-x	2026-07-17 21:22
help.html	6.79 KB	-rw-r--r--	2026-07-17 21:17
hpux-lib.pl	1.1 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	7.46 KB	-rwxr-xr-x	2026-07-17 21:22
irix-lib.pl	1.17 KB	-rwxr-xr-x	2026-07-17 21:17
linux-lib.pl	5.19 KB	-rwxr-xr-x	2026-07-17 21:17
list_logins.cgi	1.82 KB	-rwxr-xr-x	2026-07-17 21:22
list_who.cgi	945 B	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.68 KB	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	3.29 KB	-rwxr-xr-x	2026-07-17 21:17
mass_delete_group.cgi	2.44 KB	-rwxr-xr-x	2026-07-17 21:22
mass_delete_user.cgi	7.74 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	557 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	173 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	34 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	228 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	117 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	27 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	30 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	134 B	-rw-r--r--	2026-07-17 21:17
module.info.da	27 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.de	133 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	25 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	258 B	-rw-r--r--	2026-07-17 21:17
module.info.es	26 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	136 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	175 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	220 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	156 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	32 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	37 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	129 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	39 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	175 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	29 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	124 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	26 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.no	27 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	122 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	31 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	30 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	124 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	30 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	49 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	208 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	177 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	31 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	128 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	31 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	147 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	247 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	109 B	-rw-r--r--	2026-07-17 21:17
my_group_chooser.cgi	6.9 KB	-rwxr-xr-x	2026-07-17 21:22
my_user_chooser.cgi	6.56 KB	-rwxr-xr-x	2026-07-17 21:22
netbsd-lib.pl	2.02 KB	-rwxr-xr-x	2026-07-17 21:17
openbsd-lib.pl	2.02 KB	-rwxr-xr-x	2026-07-17 21:17
openserver-lib.pl	1.26 KB	-rwxr-xr-x	2026-07-17 21:17
osf1-lib.pl	1.09 KB	-rwxr-xr-x	2026-07-17 21:17
prefs.info	134 B	-rw-r--r--	2026-07-17 21:17
rbac-mapping	190 B	-rw-r--r--	2026-07-17 21:17
save_group.cgi	4.81 KB	-rwxr-xr-x	2026-07-17 21:22
save_user.cgi	20.83 KB	-rwxr-xr-x	2026-07-17 21:22
search_group.cgi	991 B	-rwxr-xr-x	2026-07-17 21:22
search_user.cgi	1.33 KB	-rwxr-xr-x	2026-07-17 21:22
solaris-lib.pl	1.86 KB	-rwxr-xr-x	2026-07-17 21:17
unixware-lib.pl	1.21 KB	-rwxr-xr-x	2026-07-17 21:17
user-lib.pl	84.21 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl
# save_group.cgi
# Saves or creates a new group

require './user-lib.pl';
use Time::Local;
&error_setup($text{'gsave_err'});
&ReadParse();

if ($in{'delete'}) {
	# Redirect to deletion page
	&redirect("delete_group.cgi?group=".&urlize($in{'old'}));
	return;
	}
elsif ($in{'clone'}) {
	&redirect("edit_group.cgi?clone=".&urlize($in{'old'}));
	return;
	}

# Build list of used GIDs
&build_group_used(\%gused);

# Strip out \n characters in inputs
$in{'group'} =~ s/\r|\n//g;
$in{'pass'} =~ s/\r|\n//g;
$in{'encpass'} =~ s/\r|\n//g;
$in{'gid'} =~ s/\r|\n//g;

&lock_user_files();
@glist = &list_groups();
if ($in{'old'} ne "") {
	# get old group
	@glist = &list_groups();
	($ginfo_hash) = grep { $_->{'group'} eq $in{'old'} } @glist;
	$ginfo_hash || &error($text{'gedit_egone'});
	%ogroup = %$ginfo_hash;
	$group{'group'} = $ogroup{'group'};
	&can_edit_group(\%access, \%ogroup) || &error($text{'gsave_eedit'});
	}
else {
	# check group name
	$access{'gcreate'}==1 || &error($text{'gsave_ecreate'});
	$in{'group'} =~ /^[^:\t]+$/ ||
		&error(&text('gsave_ebadname', $in{'group'}));
	$err = &check_username_restrictions($in{'group'});
	&error($err) if ($err);
	&my_getgrnam($in{'group'}) &&
		&error(&text('gsave_einuse', $in{'group'}));
	$group{'group'} = $in{'group'};
	}

# Validate and save inputs
if (!$in{'gid_def'} || $in{'old'} ne '') {
	# Only do GID checks if not automatic
	$in{'gid'} =~ /^[0-9]+$/ || &error(&text('gsave_egid', $in{'gid'}));
	!$access{'lowgid'} || $in{'gid'} >= $access{'lowgid'} ||
		&error(&text('usave_elowgid', $access{'lowgid'}));
	!$access{'higid'} || $in{'gid'} <= $access{'higid'} ||
		&error(&text('usave_ehigid', $access{'higid'}));
	if (!$access{'ggid'} && %ogroup && $ogroup{'gid'} != $in{'gid'}) {
		&error($text{'gsave_eggid'});
		}
	if (!$access{'gmultiple'}) {
		foreach $og (@glist) {
			if ($og->{'gid'} == $in{'gid'} &&
			    $og->{'group'} ne $ogroup{'group'}) {
				&error(&text('usave_egidused',
					     $og->{'group'}, $in{'gid'}));
				}
			}
		}
	}
elsif ( $in{'gid_def'} eq '1' ) {
	# Can assign GID here
	$in{'gid'} = int($config{'base_gid'} > $access{'lowgid'} ?
			 $config{'base_gid'} : $access{'lowgid'});
	while($gused{$in{'gid'}}) {
		$in{'gid'}++;
		}
	if ($access{'higid'} && $in{'gid'} > $access{'higid'}) {
		# Out of GIDs!
		&error($text{'gsave_eallgid'});
		}
	}

elsif ( $in{'gid_def'} eq '2' ) {
	# Can calculate GID here
        if ( $config{'gid_calc'} ) {
            $in{'gid'} = &mkgid($in{'group'});
        } else {
            $in{'gid'} = &berkeley_cksum($in{'group'});
        }
        &error("Unable to calculate GID, invalid group name specified") if ( $in{'gid'} lt 0 );

while($used{$in{'gid'}}) {
		$in{'gid'}++;
		}
	if ($access{'higid'} && $in{'gid'} > $access{'higid'}) {
		# Out of GIDS!
		&error($text{'gsave_eallgid'});
		}
	}

@mems = split(/\r?\n/, $in{'members'});
$group{'members'} = join(',', @mems);
$group{'gid'} = $in{'gid'};

$salt = chr(int(rand(26))+65) . chr(int(rand(26))+65);
if ($in{'passmode'} == 0) { $group{'pass'} = ""; }
elsif ($in{'passmode'} == 1) { $group{'pass'} = $in{'encpass'}; }
elsif ($in{'passmode'} == 2) { $group{'pass'} = &unix_crypt($in{'pass'}, $salt); }

if (%ogroup) {
	# Force defaults for save options if necessary
	$in{'chgid'} = !$access{'chgid'} if ($access{'chgid'} != 1);
	$in{'others'} = !$access{'mothers'} if ($access{'mothers'} != 1);

# Run the pre-change command
	&set_group_envs(\%group, 'MODIFY_GROUP');
	$merr = &making_changes();
	&error(&text('usave_emaking', "<tt>$merr</tt>")) if (defined($merr));

if ($group{'gid'} != $ogroup{'gid'} && $in{'chgid'}) {
		# Change GID on files if needed
		if ($in{'chgid'} == 1) {
			# Do all the home directories of users in this group
			&change_all_home_groups($ogroup{'gid'}, $group{'gid'},
					        \@mems);
			}
		else {
			# Do all files in this group from the root dir
			&recursive_change("/", -1, $ogroup{'gid'},
					       -1, $group{'gid'});
			}
		}

# Save the group
	&modify_group(\%ogroup, \%group);
	}
else {
	# Force defaults for save options if necessary
	$in{'others'} = !$access{'cothers'} if ($access{'cothers'} != 1);

# Creating a new group
	&set_group_envs(\%group, 'CREATE_GROUP');
	$merr = &making_changes();
	&error(&text('usave_emaking', "<tt>$merr</tt>")) if (defined($merr));

&create_group(\%group);
	}
&made_changes();
&unlock_user_files();

# Run other module's scripts
if ($in{'others'}) {
	local $error_must_die = 1;
	eval {
		if (%ogroup) {
			&other_modules("useradmin_modify_group",
				       \%group, \%ogroup);
			}
		else {
			&other_modules("useradmin_create_group", \%group);
			}
		};
	$others_err = $@;
	}

delete($in{'pass'});
delete($in{'encpass'});
&webmin_log(%ogroup ? 'modify' : 'create', 'group', $group{'group'}, \%in);

# Bounce back to the list, if successful
&error(&text('gsave_eothers', $others_err)) if ($others_err);
&redirect("index.cgi?mode=groups");