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
# edit_group.cgi
# Display a form for editing or creating a group

require './user-lib.pl';
&ReadParse();
@glist = &list_groups();

# Get group and show page header
$n = $in{'group'};
if ($n eq "") {
	$access{'gcreate'} == 1 || &error($text{'gedit_ecreate'});
	&ui_print_header(undef, $text{'gedit_title2'}, "", "create_group");
	if ($in{'clone'} ne '') {
		($clone_hash) = grep { $_->{'group'} eq $in{'clone'} } @glist;
		$clone_hash || &error($text{'ugdit_egone'});
		%group = %$clone_hash;
		&can_edit_user(\%access, \%group) ||
			&error($text{'gedit_eedit'});
		$group{'group'} = '';
		}
	}
else {
	($ginfo_hash) = grep { $_->{'group'} eq $n } @glist;
	$ginfo_hash || &error($text{'gedit_egone'});
	%group = %$ginfo_hash;
	&can_edit_group(\%access, \%group) ||
		&error($text{'gedit_eedit'});
	&ui_print_header(undef, $text{'gedit_title'}, "", "edit_group");
	}
@ulist = &list_users();

&build_group_used(\%gused);

# Start of form
print &ui_form_start("save_group.cgi", "post");
print &ui_hidden("old", $n) if ($n ne "");
print &ui_table_start($text{'gedit_details'}, "width=100%", 2, [ "width=30%" ]);

# Group name
print &ui_table_row(&hlink($text{'gedit_group'}, "ggroup"),
	$n eq "" ? &ui_textbox("group", undef, 20)
		 : "<tt>".&html_escape($group{'group'})."</tt>");

# Group ID
if ($n ne "") {
	# Existing group, just show field to edit
	$gidfield = &ui_textbox("gid", $group{'gid'}, 10);
	}
else {
	# Work out which GID modes are available
	@gidmodes = ( );
	$defgid = &allocate_gid(\%gused);
	if ($access{'autogid'}) {
		push(@gidmodes, [ 1, $text{'gedit_gid_def'} ]);
		}
	if ($access{'calcgid'}) {
		push(@gidmodes, [ 2, $text{'gedit_gid_calc'} ]);
		}
	if ($access{'usergid'}) {
		push(@gidmodes, [ 0, &ui_textbox("gid", $defgid, 10) ]);
		}
	if (@gidmodes == 1) {
		$gidfield = &ui_hidden("gid_def", $gidmodes[0]->[0]).
			    $gidmodes[0]->[1];
		}
	else {
		$gidfield = &ui_radio("gid_def", $config{'gid_mode'},
				      \@gidmodes);
		}
	}
print &ui_table_row(&hlink($text{'gedit_gid'}, "ggid"), $gidfield);

# Group password (rarely used, but..)
print &ui_table_row(&hlink($text{'pass'}, "gpasswd"),
	&ui_radio_table("passmode", $group{'pass'} eq "" ? 0 : 1,
		[ [ 0, $text{'none2'} ],
		  [ 1, $text{'encrypted'},
		       &ui_textbox("encpass", $group{'pass'}, 20) ],
		  [ 2, $text{'clear'},
		       &ui_textbox("pass", undef, 15) ] ]));

# Member chooser
@ulist = &sort_users(\@ulist, $config{'sort_mode'});
if ($config{'membox'} == 0) {
	# Nicer left/right chooser
	print &ui_table_row(&hlink($text{'gedit_members'}, "gmembers"),
		&ui_multi_select("members",
			[ map { [ $_, $_ ] }
			      sort { lc($a) cmp lc($b) }
				   split(/,/ , &html_escape($group{'members'})) ],
			[ map { [ $_->{'user'}, &html_escape($_->{'user'}) ] } @ulist ],
			10, 1, 0,
			$text{'gedit_allu'}, $text{'gedit_selu'}, 150));
	}
else {
	# Text box
	print &ui_table_row(&hlink($text{'gedit_members'}, "gmembers"),
		&ui_textarea("members",
			     join("\n", split(/,/ , $group{'members'})),
			     5, 30));
	}

# Primary members (read-only)
if ($n ne "") {
	@upri = grep { $_->{'gid'} == $group{'gid'} } @ulist;
	if (@upri) {
		@uprilinks = ( );
		foreach $u (@upri) {
			if (&can_edit_user(\%access, $u)) {
				push(@uprilinks, &ui_link("edit_user.cgi?".
				  "user=$u->{'user'}", &html_escape($u->{'user'}) ) );
				}
			else {
				push(@uprilinks, $u->{'user'});
				}
			}
		$upri = &ui_links_row(\@uprilinks);
		}
	else {
		$upri = $text{'gedit_prinone'};
		}
	print &ui_table_row(&hlink($text{'gedit_pri'}, "gpri"), $upri, 3);
	}

print &ui_table_end();

# Section for on-change and on-create events
if ($n ne "") {
	if ($access{'chgid'} == 1 || $access{'mothers'} == 1) {
		print &ui_table_start($text{'onsave'}, "width=100%", 2,
				      [ "width=30%" ]);

# Change file GIDs on save
		if ($access{'chgid'} == 1) {
			print &ui_table_row(
				&hlink($text{'chgid'}, "gchgid"),
				&ui_radio("chgid", 0,
				  [ [ 0, $text{'no'} ],
				    [ 1, $text{'gedit_homedirs'} ],
				    [ 2, $text{'gedit_allfiles'} ] ]));
			}

# Update in other modules?
		if ($access{'mothers'} == 1) {
			print &ui_table_row(
				&hlink($text{'gedit_mothers'}, "others"),
				&ui_radio("others", $config{'default_other'},
					  [ [ 1, $text{'yes'} ],
					    [ 0, $text{'no'} ] ]));
			}

print &ui_table_end();
		}
	}
else {
	if ($access{'cothers'} == 1) {
		print &ui_table_start($text{'uedit_oncreate'}, "width=100%", 2,
				      [ "width=30%" ]);

# Create in other modules?
		print &ui_table_row(
			&hlink($text{'gedit_cothers'}, "others"),
			&ui_radio("others", $config{'default_other'},
				  [ [ 1, $text{'yes'} ],
				    [ 0, $text{'no'} ] ]));

print &ui_table_end();
		}
	}

# Save/delete/create buttons
if ($n ne "") {
	print &ui_form_end([
		[ undef, $text{'save'} ],
		$access{'gcreate'} ? ( [ 'clone', $text{'gedit_clone'} ] ) : (),
		$access{'gdelete'} ? ( [ 'delete', $text{'delete'} ] ) : (),
		]);
	}
else {
	print &ui_form_end([ [ undef, $text{'create'} ] ]);
	}

&ui_print_footer("index.cgi?mode=groups", $text{'index_return'});