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

require './user-lib.pl';

# Show header with password DB type
$pft = &passfiles_type();
$pftmsg = &text('index_pft', $text{'index_pft'.$pft} || $pft);
&ui_print_header($pftmsg, $text{'index_title'}, "", "intro", 1, 1, 0,
		 &help_search_link("passwd group shadow gshadow", "man"));

$formno = 0;
&ReadParse();

@quarters = ( "width=25%", "width=25%", "width=25%", "width=25%" );

# Get the user and group lists
@allulist = &list_users();
@ulist = &list_allowed_users(\%access, \@allulist);
@allglist = &list_groups();
@glist = &list_allowed_groups(\%access, \@allglist);
foreach $g (@allglist) {
	$usedgid{$g->{'gid'}} = $g;
	}

# Start of tabs, based on what can be edited
@tabs = ( );
if (@ulist || $access{'ucreate'}) {
	push(@tabs, [ "users", $text{'index_users'},
		      "index.cgi?mode=users" ]);
	$can_users = 1;
	}
if (@glist || $access{'gcreate'}) {
	push(@tabs, [ "groups", $text{'index_groups'},
		      "index.cgi?mode=groups" ]);
	$can_groups = 1;
	}
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || $tabs[0]->[0], 1);

# Start of users tab
if ($can_users) {
	print &ui_tabs_start_tab("mode", "users");
	}

if ($config{'display_mode'} != 1 &&
 @ulist > $config{'display_max'}) {
	# Display advanced search form
	print "$text{'index_toomany'}\n";
	print &ui_form_start("search_user.cgi");
	print &ui_table_start($text{'index_usheader'}, undef, 2);

# Field to search
	print &ui_table_row($text{'index_find'},
		&ui_select("field", "userreal",
			   [ [ "userreal", $text{'index_userreal'} ],
			     [ "user", $text{'user'} ],
			     [ "real", $text{'real'} ],
			     [ "shell", $text{'shell'} ],
			     [ "home", $text{'home'} ],
			     [ "uid", $text{'uid'} ],
			     [ "group", $text{'group'} ],
			     [ "gid", $text{'gid'} ] ])." ".
		&ui_select("match", 4, $match_modes));

# Text
	print &ui_table_row($text{'index_ftext'},
		&ui_textbox("what", undef, 50));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'find'} ] ]);
	$formno++;
	}
elsif (@ulist) {
	# Display a table of all users
	@ulist = &sort_users(\@ulist, $config{'sort_mode'});
	if ($config{'display_mode'} == 2) {
		# Show usernames under groups
		foreach $u (@ulist) {
			push(@{$ug{$u->{'gid'}}}, $u);
			}
		@table = ( );
		foreach $g (sort { $usedgid{$a}->{'group'} cmp
				 $usedgid{$b}->{'group'} } keys %ug) {
			@grid = map { &user_link($_) } @{$ug{$g}};
			push(@table, [ &html_escape($usedgid{$g}->{'group'}),
			 &ui_grid_table(\@grid, 4, 100, \@quarters) ]);
			}
		print &ui_columns_table(
			[ $text{'index_ugroup'}, $text{'index_users'} ],
			100,
			\@table,
			);
		}
	elsif ($config{'display_mode'} == 1) {
		# Show names, real names, home dirs and shells
		@b = &get_user_buttons();
		@left = grep { !/batch_form|export_form/ } @b;
		@right = grep { /batch_form|export_form/ } @b;
		&users_table(\@ulist, $formno++, 0, 0, \@left, \@right);
		$no_user_buttons = 1;
		}
	else {
		# Just show names
		@grid = map { &user_link($_) } @ulist;
		print &ui_grid_table(\@grid, 4, 100, \@quarters,
			undef, $text{'index_users'});
		}
	}
elsif ($access{'ucreate'}) {
	if (@allulist) {
		print "$text{'index_notusers'}. \n";
		}
	else {
		print "$text{'index_notusers2'}. \n";
		}
	}
&show_user_buttons() if (!$no_user_buttons);

# End of users tab
if ($can_users) {
	print &ui_tabs_end_tab("mode", "users");
	}

# Start of groups tab
if ($can_groups) {
	print &ui_tabs_start_tab("mode", "groups");
	}

if ($config{'display_mode'} != 1 &&
 @glist > $config{'display_max'}) {
	# Display group search form
	print "$text{'index_gtoomany'}\n";
	print &ui_form_start("search_group.cgi");
	print &ui_table_start($text{'index_gsheader'}, undef, 2);

# Field to search
	print &ui_table_row($text{'index_gfind'},
		&ui_select("field", "group",
			   [ [ "group", $text{'gedit_group'} ],
			     [ "members", $text{'gedit_members'} ],
			     [ "gedit_gid", $text{'gedit_gid'} ] ])." ".
		&ui_select("match", 4, $match_modes));

# Text
	print &ui_table_row($text{'index_ftext'},
		&ui_textbox("what", undef, 50));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'find'} ] ]);
	$formno++;
	}
elsif (@glist) {
	@glist = &sort_groups(\@glist, $config{'sort_mode'});
	if ($config{'display_mode'} == 1) {
		# Display group name, ID and members
		@b = &get_group_buttons();
		@left = grep { !/gbatch_form|gexport_form/ } @b;
		@right = grep { /gbatch_form|gexport_form/ } @b;
		&groups_table(\@glist, $formno++, 0, \@left, \@right);
		$no_group_buttons = 1;
		}
	else {
		# Just display group names
		@grid = map { &group_link($_) } @glist;
		print &ui_grid_table(\@grid, 4, 100, \@quarters,
			undef, $text{'index_groups'});
		}
	}
elsif ($access{'gcreate'} == 1) {
	if (@allglist) {
		print "$text{'index_notgroups'}. \n";
		}
	else {
		print "$text{'index_notgroups2'}. \n";
		}
	}
&show_group_buttons() if (!$no_group_buttons);

# End of groups tab
if ($can_groups) {
	print &ui_tabs_end_tab("mode", "groups");
	}
print &ui_tabs_end(1);

# Buttons to show recent logins and logged-in users
if ($access{'logins'}) {
	print &ui_hr();
	print &ui_buttons_start();

# Show recent logins
	print &ui_buttons_row(
		"list_logins.cgi",
		$text{'index_logins'},
		$text{'index_loginsdesc'},
		undef,
		&ui_radio("username_def", 1,
		  [ [ 1, $text{'index_loginsall'} ],
		    [ 0, $text{'index_loginsuser'}." ".
			 &ui_user_textbox("username", undef, $formno) ] ]));

# Show currently logged in user
	if (defined(&logged_in_users)) {
		print &ui_buttons_row(
			"list_who.cgi",
			$text{'index_who'},
			$text{'index_whodesc'},
			);
		}

print &ui_buttons_end();
	}

&ui_print_footer("/", $text{'index'});
 
sub get_user_buttons
{
local @rv;
if ($access{'ucreate'}) {
	local $cancreate;
	if ($access{'hiuid'} && !$access{'umultiple'}) {
		foreach $u (@allulist) {
			$useduid{$u->{'uid'}}++;
			}
		for($i=int($access{'lowuid'}); $i<=$access{'hiuid'}; $i++) {
			if (!$useduid{$i}) {
				$cancreate = 1;
				last;
				}
			}
		}
	else { $cancreate = 1; }
	if ($cancreate) {
		push(@rv, &ui_link("edit_user.cgi", $text{'index_createuser'}) );
		}
	else {
		push(@rv, $text{'index_nomoreusers'});
		}
	}
push(@rv, &ui_link("batch_form.cgi", $text{'index_batch'}) )
	if ($access{'batch'});
push(@rv, &ui_link("export_form.cgi", $text{'index_export'}) )
	if ($access{'export'});
return @rv;
}

sub show_user_buttons
{
local @b = &get_user_buttons();
local @left = grep { !/batch_form|export_form/ } @b;
local @right = grep { /batch_form|export_form/ } @b;
local @grid = ( &ui_links_row(\@left), &ui_links_row(\@right) );
print &ui_grid_table(\@grid, 2, 100, [ "align=left", "align=right" ]);
}

sub get_group_buttons
{
local @rv;
if ($access{'gcreate'} == 1) {
	local $cancreate;
	if ($access{'higid'} && !$access{'gmultiple'}) {
		for($i=int($access{'lowgid'}); $i<=$access{'higid'}; $i++) {
			if (!$usedgid{$i}) {
				$cancreate = 1;
				last;
				}
			}
		}
	else { $cancreate = 1; }
	if ($cancreate) {
		push(@rv, &ui_link("edit_group.cgi", $text{'index_creategroup'}) );
		}
	else {
		push(@rv, $text{'index_nomoregroups'});
		}
	}
push(@rv, &ui_link("gbatch_form.cgi", $text{'index_batch'}) )
	if ($access{'batch'});
push(@rv, &ui_link("gexport_form.cgi", $text{'index_export'}) )
	if ($access{'export'});
return @rv;
}

sub show_group_buttons
{
local @b = &get_group_buttons();
local @left = grep { !/gbatch_form|gexport_form/ } @b;
local @right = grep { /gbatch_form|gexport_form/ } @b;
local @grid = ( &ui_links_row(\@left), &ui_links_row(\@right) );
print &ui_grid_table(\@grid, 2, 100, [ "align=left", "align=right" ]);
}