Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	5.15 KB	-rw-r--r--
acl-lib.pl	61.97 KB	-rwxr-xr-x
acl_security.pl	2.32 KB	-rwxr-xr-x
backup_config.pl	2.64 KB	-rwxr-xr-x
cert_form.cgi	1.48 KB	-rwxr-xr-x
cert_issue.cgi	1.69 KB	-rwxr-xr-x
cert_output.cgi	445 B	-rwxr-xr-x
cgi_args.pl	767 B	-rwxr-xr-x
config	61 B	-rw-r--r--
config-ALL-linux	42 B	-rw-r--r--
config-freebsd	42 B	-rw-r--r--
config-macos	42 B	-rw-r--r--
config-netbsd	42 B	-rw-r--r--
config-openbsd	42 B	-rw-r--r--
config-solaris-10-ALL	46 B	-rw-r--r--
config-syno-linux	51 B	-rw-r--r--
config.info	240 B	-rw-r--r--
config.info.ar	385 B	-rw-r--r--
config.info.bg	397 B	-rw-r--r--
config.info.ca	295 B	-rw-r--r--
config.info.cs	265 B	-rw-r--r--
config.info.da	259 B	-rw-r--r--
config.info.de	273 B	-rw-r--r--
config.info.es	265 B	-rw-r--r--
config.info.eu	298 B	-rw-r--r--
config.info.fa	394 B	-rw-r--r--
config.info.fr	308 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	353 B	-rw-r--r--
config.info.it	279 B	-rw-r--r--
config.info.ja	319 B	-rw-r--r--
config.info.ko	233 B	-rw-r--r--
config.info.ms	248 B	-rw-r--r--
config.info.nl	268 B	-rw-r--r--
config.info.no	260 B	-rw-r--r--
config.info.pl	270 B	-rw-r--r--
config.info.pt_BR	271 B	-rw-r--r--
config.info.ru	439 B	-rw-r--r--
config.info.sk	278 B	-rw-r--r--
config.info.sv	53 B	-rw-r--r--
config.info.tr	309 B	-rw-r--r--
config.info.uk	303 B	-rw-r--r--
config.info.zh	47 B	-rw-r--r--
config.info.zh_TW	146 B	-rw-r--r--
convert.cgi	3.79 KB	-rwxr-xr-x
convert_form.cgi	1.6 KB	-rwxr-xr-x
defaultacl	230 B	-rw-r--r--
delete_group.cgi	1.36 KB	-rwxr-xr-x
delete_groups.cgi	1.45 KB	-rwxr-xr-x
delete_session.cgi	485 B	-rwxr-xr-x
delete_user.cgi	668 B	-rwxr-xr-x
delete_users.cgi	2.93 KB	-rwxr-xr-x
edit_acl.cgi	2.75 KB	-rwxr-xr-x
edit_group.cgi	4.38 KB	-rwxr-xr-x
edit_pass.cgi	1.82 KB	-rwxr-xr-x
edit_rbac.cgi	951 B	-rwxr-xr-x
edit_sql.cgi	3.78 KB	-rwxr-xr-x
edit_sync.cgi	1.22 KB	-rwxr-xr-x
edit_unix.cgi	2.76 KB	-rwxr-xr-x
edit_user.cgi	13.6 KB	-rwxr-xr-x
feedback_files.pl	336 B	-rwxr-xr-x
index.cgi	8.29 KB	-rwxr-xr-x
list_sessions.cgi	2.39 KB	-rwxr-xr-x
log_parser.pl	1.78 KB	-rwxr-xr-x
makedn.cgi	1.75 KB	-rwxr-xr-x
maketables.cgi	1.23 KB	-rwxr-xr-x
md5-lib.pl	7.58 KB	-rwxr-xr-x
module.info	187 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	139 B	-rw-r--r--
module.info.ar	193 B	-rw-r--r--
module.info.ar.auto	19 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	271 B	-rw-r--r--
module.info.bg	43 B	-rw-r--r--
module.info.bg.auto	192 B	-rw-r--r--
module.info.ca	129 B	-rw-r--r--
module.info.ca.auto	19 B	-rw-r--r--
module.info.cs	28 B	-rw-r--r--
module.info.cs.auto	116 B	-rw-r--r--
module.info.da	23 B	-rw-r--r--
module.info.da.auto	115 B	-rw-r--r--
module.info.de	146 B	-rw-r--r--
module.info.de.auto	19 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	253 B	-rw-r--r--
module.info.es	125 B	-rw-r--r--
module.info.es.auto	24 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	159 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	238 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	150 B	-rw-r--r--
module.info.fr	28 B	-rw-r--r--
module.info.fr.auto	154 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	193 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	147 B	-rw-r--r--
module.info.hu	30 B	-rw-r--r--
module.info.hu.auto	152 B	-rw-r--r--
module.info.it	22 B	-rw-r--r--
module.info.it.auto	123 B	-rw-r--r--
module.info.ja	25 B	-rw-r--r--
module.info.ja.auto	137 B	-rw-r--r--
module.info.ko	25 B	-rw-r--r--
module.info.ko.auto	128 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	182 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	177 B	-rw-r--r--
module.info.ms	120 B	-rw-r--r--
module.info.ms.auto	19 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	166 B	-rw-r--r--
module.info.nl	26 B	-rw-r--r--
module.info.nl.auto	119 B	-rw-r--r--
module.info.no	23 B	-rw-r--r--
module.info.no.auto	113 B	-rw-r--r--
module.info.pl	133 B	-rw-r--r--
module.info.pl.auto	19 B	-rw-r--r--
module.info.pt	31 B	-rw-r--r--
module.info.pt.auto	126 B	-rw-r--r--
module.info.pt_BR	31 B	-rw-r--r--
module.info.pt_BR.auto	132 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	156 B	-rw-r--r--
module.info.ru	40 B	-rw-r--r--
module.info.ru.auto	190 B	-rw-r--r--
module.info.sk	29 B	-rw-r--r--
module.info.sk.auto	129 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	156 B	-rw-r--r--
module.info.sv	26 B	-rw-r--r--
module.info.sv.auto	122 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	248 B	-rw-r--r--
module.info.tr	32 B	-rw-r--r--
module.info.tr.auto	152 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	246 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	240 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	183 B	-rw-r--r--
module.info.zh	28 B	-rw-r--r--
module.info.zh.auto	106 B	-rw-r--r--
module.info.zh_TW	28 B	-rw-r--r--
module.info.zh_TW.auto	112 B	-rw-r--r--
negativeacl	13 B	-rw-r--r--
openssl.cnf	6.02 KB	-rw-r--r--
postinstall.pl	996 B	-rwxr-xr-x
prefs.info	22 B	-rw-r--r--
save_acl.cgi	2.85 KB	-rwxr-xr-x
save_group.cgi	3.76 KB	-rwxr-xr-x
save_pass.cgi	1.72 KB	-rwxr-xr-x
save_sql.cgi	3.38 KB	-rwxr-xr-x
save_sync.cgi	730 B	-rwxr-xr-x
save_twofactor.cgi	2.25 KB	-rwxr-xr-x
save_unix.cgi	2.2 KB	-rwxr-xr-x
save_user.cgi	11.22 KB	-rwxr-xr-x
schema.cgi	612 B	-rwxr-xr-x
switch.cgi	726 B	-rwxr-xr-x
system_info.pl	2.3 KB	-rw-r--r--
twofactor.pl	709 B	-rwxr-xr-x
twofactor_form.cgi	2.01 KB	-rwxr-xr-x
useradmin_update.pl	3.12 KB	-rwxr-xr-x
webmin.schema	1.34 KB	-rw-r--r--

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# List all webmin users

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';
our (%in, %text, %config, %access, $base_remote_user);
&ReadParse();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);

# Fetch user and group lists, if possible
my (@ulist, @glist, %ingroup);
eval {
	$main::error_must_die = 1;
	@glist = &list_groups();
	foreach my $g (@glist) {
		foreach my $gm (@{$g->{'members'}}) {
			$ingroup{$gm} = $g;
			}
		}
	@ulist = &list_users();
	};
if ($@) {
	print "",&text('index_eulist', "$@"),"\n";
	}

my $me;
foreach my $u (@ulist) {
	$me = $u if ($u->{'name'} eq $base_remote_user);
	}
my @mcan = $access{'mode'} == 1 ? @{$me->{'modules'}} :
	   $access{'mode'} == 2 ? split(/\s+/, $access{'mods'}) :
			          &list_modules();
my %mcan = map { $_, 1 } @mcan;

if ($config{'order'}) {
	@ulist = sort { $a->{'name'} cmp $b->{'name'} } @ulist;
	@glist = sort { $a->{'name'} cmp $b->{'name'} } @glist;
	}

my %modname;
foreach my $m (&list_module_infos()) {
	$modname{$m->{'dir'}} = $m->{'desc'};
	}
my @canulist = grep { &can_edit_user($_->{'name'}, \@glist) } @ulist;
my ($form, $shown_users);
my @gbut = @glist ? ( undef, [ 'joingroup', $text{'index_joingroup'},
		&ui_select("group", undef, [ map { $_->{'name'} } @glist ]) ] )
		 : ( );
if (!@canulist) {
	# If no users, only show section heading if can create
	if ($access{'create'}) {
		print &ui_subheading($text{'index_users'})
			if (!$config{'display'});
		print "$text{'index_nousers'}\n";
		print &ui_links_row([
			&ui_link("edit_user.cgi", $text{'index_create'}),
			&ui_link("edit_user.cgi?ssfe=1", $text{'index_screate'})
			]);
		$shown_users = 1;
		}
	}
elsif ($config{'display'}) {
	# Show as table of names
	print &ui_subheading($text{'index_users'});
	print &ui_form_start("delete_users.cgi", "post");
	&show_name_table(\@canulist, "edit_user.cgi",
			 $access{'create'} ? $text{'index_create'} : undef,
			 $text{'index_users'}, "user",
			 $access{'create'} ? $text{'index_screate'} : undef);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ],
			 @gbut ]);
	$shown_users = 1;
	$form++;
	}
else {
	# Show usernames and modules
	print &ui_subheading($text{'index_users'});
	my @rowlinks = ( );
	print &ui_form_start("delete_users.cgi", "post");
	push(@rowlinks, &select_all_link("d", $form),
		 &select_invert_link("d", $form));
	push(@rowlinks, ui_link("edit_user.cgi", $text{'index_create'}),
			ui_link("edit_user.cgi?safe=1", $text{'index_screate'}))
		if ($access{'create'});
	print &ui_links_row(\@rowlinks);

print &ui_columns_start([ $text{'index_user'},
				 $text{'index_modules'} ], 100);
	foreach my $u (@canulist) {
		my $smods;
		if ($ingroup{$u->{'name'}}) {
			# Is a member of a group
			$smods = &show_modules(
			 "user", $u->{'name'}, $u->{'ownmods'}, 0,
			 &text('index_modgroups',
				 "<tt>$ingroup{$u->{'name'}}->{'name'}</tt>"));
				 
			}
		else {
			# Is a stand-alone user
			$smods = &show_modules(
			 "user", $u->{'name'}, $u->{'modules'}, 1);
			}
		print &ui_columns_row([ &user_link($u, "edit_user.cgi", "user"),
					$smods ], [ "valign=top" ]);
		}
	print &ui_columns_end();
	print &ui_links_row(\@rowlinks);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ],
			 @gbut ]);
	$shown_users = 1;
	$form++;
	}
print "\n";

if ($shown_users && $access{'groups'}) {
	print &ui_hr();
	}

if ($access{'groups'}) {
	print &ui_subheading($text{'index_groups'});
	if (!@glist) {
		# No groups, so just show create link
		print "$text{'index_nogroups'}\n";
		print ui_link("edit_group.cgi", $text{'index_gcreate'}) . "\n";
		}
	elsif ($config{'display'}) {
		# Show just group names
		print &ui_form_start("delete_groups.cgi", "post");
		&show_name_table(\@glist, "edit_group.cgi",
				 $text{'index_gcreate'},
				 $text{'index_groups'}, "group");
		print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
		$form++;
		}
	else {
		# Show table of groups
		my @rowlinks = ( );
		print &ui_form_start("delete_groups.cgi", "post");
		push(@rowlinks, &select_all_link("d", $form),
			 &select_invert_link("d", $form));
		push(@rowlinks,
		 ui_link("edit_group.cgi", $text{'index_gcreate'}));
		print &ui_links_row(\@rowlinks);

print &ui_columns_start([ $text{'index_group'},
					 $text{'index_members'},
					 $text{'index_modules'} ], 100);
		foreach my $g (@glist) {
			my @cols;
			push(@cols, &user_link($g,"edit_group.cgi","group"));
			push(@cols, join(" ", @{$g->{'members'}}));
			if ($ingroup{'@'.$g->{'name'}}) {
				# Is a member of some other group
				push(@cols, &show_modules("group", $g->{'name'},
				 $g->{'ownmods'},0,
				 &text('index_modgroups',
					 "<tt>$ingroup{$g->{'name'}}->{'name'}</tt>")));
				}
			else {
				# Is a top-level group
				push(@cols, &show_modules("group", $g->{'name'},
					 $g->{'modules'}, 1));
				}
			print &ui_columns_row(\@cols);
			}
		print &ui_columns_end();
		print &ui_links_row(\@rowlinks);
		print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
		$form++;
		}
	}

my %miniserv;
my (@icons, @links, @titles);
&get_miniserv_config(\%miniserv);
if ($access{'sync'} && &foreign_check("useradmin")) {
	push(@icons, "images/convert.gif");
	push(@links, "convert_form.cgi");
	push(@titles, $text{'index_convert'});
	}
if ($access{'sync'} && $access{'create'} && $access{'delete'}) {
	push(@icons, "images/sync.gif");
	push(@links, "edit_sync.cgi");
	push(@titles, $text{'index_sync'});
	}
if ($access{'unix'} && $access{'create'} && $access{'delete'}) {
	push(@icons, "images/unix.gif");
	push(@links, "edit_unix.cgi");
	push(@titles, $text{'index_unix'});
	}
if ($access{'sessions'} && $miniserv{'session'}) {
	push(@icons, "images/sessions.gif");
	push(@links, "list_sessions.cgi");
	push(@titles, $text{'index_sessions'});
	}
if (uc($ENV{'HTTPS'}) eq "ON" && $miniserv{'ca'}) {
	push(@icons, "images/cert.gif");
	push(@links, "cert_form.cgi");
	push(@titles, $text{'index_cert'});
	}
push(@icons, "images/twofactor.gif");
push(@links, "twofactor_form.cgi");
push(@titles, $text{'index_twofactor'});
if ($access{'rbacenable'}) {
	push(@icons, "images/rbac.gif");
	push(@links, "edit_rbac.cgi");
	push(@titles, $text{'index_rbac'});
	}
if ($access{'pass'}) {
	push(@icons, "images/pass.gif");
	push(@links, "edit_pass.cgi");
	push(@titles, $text{'pass_title'});
	}
if ($access{'sql'}) {
	push(@icons, "images/sql.gif");
	push(@links, "edit_sql.cgi");
	push(@titles, $text{'sql_title'});
	}

if (@icons) {
	print &ui_hr();
	&icons_table(\@links, \@titles, \@icons);
	}

if ($in{'refresh'} && defined(&theme_post_change_modules)) {
	&theme_post_change_modules();
	}

&ui_print_footer("/", $text{'index'});

# show_modules(type, who, &mods, show-global, prefix)
sub show_modules
{
my ($type, $who, $mods, $global, $prefix) = @_;
$mods ||= [ ];
my $rv;
$rv .= $prefix." \n" if ($prefix);
my @grid;
foreach my $m (sort { $modname{$a} cmp $modname{$b} } @$mods) {
	if ($modname{$m}) {
		if ($mcan{$m} && $access{'acl'}) {
			push(@grid, ui_link("edit_acl.cgi?mod=" .
			 &urlize($m)."&$type=".&urlize($who),
			 $modname{$m}));
			}
		else {
			push(@grid, $modname{$m});
			}
		}
	}
$rv .= &ui_grid_table(\@grid, 3, 100,
	[ "width=33%", "width=33%", "width=33%" ]);
return $rv;
}

# show_name_table(&users|&groups, cgi, create-text, header-text, param,
# 		  safe-text)
sub show_name_table
{
my ($users, $cgi, $ctext, $htext, $param, $stext) = @_;

# Show table of users, and maybe create links
my @rowlinks = ( &select_all_link("d", $form),
		 &select_invert_link("d", $form) );
push(@rowlinks, ui_link($cgi, $ctext)) if ($ctext);
push(@rowlinks, ui_link($cgi."?safe=1", $stext)) if ($stext);
print &ui_links_row(\@rowlinks);
my @links;
for(my $i=0; $i<@$users; $i++) {
	push(@links, &user_link($users->[$i], $cgi, $param));
	}
print &ui_grid_table(\@links, 4, 100,
	[ "width=25%", "width=25%", "width=25%", "width=25%" ], undef, $htext);
print &ui_links_row(\@rowlinks);
}

# user_link(user, cgi, param)
sub user_link
{
my $lck = $_[0]->{'pass'} =~ /^\!/ ? 1 : 0;
my $ro = $_[0]->{'readonly'};
return &ui_checkbox("d", $_[0]->{'name'}, "", 0).
 ($lck ? "" : "").
 ($ro ? "" : "").
 ui_link("$_[1]?$_[2]=".&urlize($_[0]->{'name'}),
	 $_[0]->{'name'}).
 ($_[0]->{'twofactor_id'} ? "*" : "").
 ($ro ? "" : "").
 ($lck ? "" : "");
}

${this.title}

Code Editor : index.cgi