Gecko [ thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	6.18 KB	-rw-r--r--
acl_security.pl	7.55 KB	-rwxr-xr-x
batch_exec.cgi	15.72 KB	-rwxr-xr-x
batch_form.cgi	2.49 KB	-rwxr-xr-x
cgi_args.pl	501 B	-rwxr-xr-x
config	388 B	-rw-r--r--
config-ALL-linux	416 B	-rw-r--r--
config-coherent-linux	385 B	-rw-r--r--
config-debian-linux	406 B	-rw-r--r--
config-debian-linux-3.1	395 B	-rw-r--r--
config-debian-linux-4.0-ALL	388 B	-rw-r--r--
config-debian-squirrelmail-lin...	560 B	-rw-r--r--
config-macos	466 B	-rw-r--r--
config-mandrake-linux	385 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	394 B	-rw-r--r--
config-pardus-linux	397 B	-rw-r--r--
config-redhat-linux	385 B	-rw-r--r--
config-sol-linux	385 B	-rw-r--r--
config-suse-linux	394 B	-rw-r--r--
config-syno-linux	452 B	-rw-r--r--
config-trustix-linux	394 B	-rw-r--r--
config-united-linux	394 B	-rw-r--r--
config.info	5.65 KB	-rw-r--r--
config.info.ca	6 KB	-rw-r--r--
config.info.de	6.47 KB	-rw-r--r--
config.info.es	4.93 KB	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.nl	5.99 KB	-rw-r--r--
config.info.no	5.75 KB	-rw-r--r--
config.info.pt_BR	6.06 KB	-rw-r--r--
cpan_modules.pl	85 B	-rwxr-xr-x
defaultacl	318 B	-rw-r--r--
edit_group.cgi	4.17 KB	-rwxr-xr-x
edit_user.cgi	14.83 KB	-rwxr-xr-x
index.cgi	7.52 KB	-rwxr-xr-x
install_check.pl	612 B	-rwxr-xr-x
ldap-useradmin-lib.pl	33.47 KB	-rwxr-xr-x
log_parser.pl	1.55 KB	-rwxr-xr-x
mass_delete_group.cgi	2.04 KB	-rwxr-xr-x
mass_delete_user.cgi	7.17 KB	-rwxr-xr-x
module.info	261 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	172 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	234 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	320 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	270 B	-rw-r--r--
module.info.ca	169 B	-rw-r--r--
module.info.cs	35 B	-rw-r--r--
module.info.cs.auto	126 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	155 B	-rw-r--r--
module.info.de	174 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	347 B	-rw-r--r--
module.info.es	31 B	-rw-r--r--
module.info.es.auto	142 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	186 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	284 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	185 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	190 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	194 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	183 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	193 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	157 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	205 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	174 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	184 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	176 B	-rw-r--r--
module.info.ms	172 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	168 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.auto	142 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.auto	126 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	186 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	163 B	-rw-r--r--
module.info.pt_BR	38 B	-rw-r--r--
module.info.pt_BR.auto	134 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	184 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	279 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	192 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	185 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	166 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	303 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	194 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	289 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	295 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	206 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	130 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	136 B	-rw-r--r--
postinstall.pl	224 B	-rwxr-xr-x
prefs.info	50 B	-rw-r--r--
raw.cgi	967 B	-rwxr-xr-x
save_group.cgi	9.38 KB	-rwxr-xr-x
save_user.cgi	24.6 KB	-rwxr-xr-x
search_group.cgi	1.31 KB	-rwxr-xr-x
search_user.cgi	1.46 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# index.cgi
# List all LDAP users for editing

require './ldap-useradmin-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1);
&useradmin::load_theme_library();	# So that ui functions work
&ReadParse();

# Make sure the LDAP Perl module is installed, and if not offer to install
if (!$got_net_ldap) {
	local @needs;
	foreach $m ("Convert::ASN1", "Net::LDAP") {
		eval "use $m";
		push(@needs, $m) if ($@);
		}
	$missing = &html_escape(join(" ", @needs));
	print &text('index_eperl', "<tt>$missing</tt>",
		 "/cpan/download.cgi?source=3&cpan=$missing&mode=2&".
		 "return=/$module_name/&returndesc=".
		 &urlize($text{'index_return'})),"\n";
	print "$text{'index_eperl2'}\n";
	print "<pre>$net_ldap_error</pre>\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Try to login .. may fail
$ldap = &ldap_connect(1);
if (!ref($ldap)) {
	print &text('index_eldap', $ldap,
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Make sure we can get the schema
$schema = $ldap->schema();
if (!$schema) {
	print &text('index_eschema', '../ldap-server/'),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Make sure the LDAP bases are set or available
if (!&get_user_base() || !&get_group_base()) {
	print &text('index_ebase',
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

if ($config{'imap_host'}) {
	# Make sure the IMAP Perl module is installed, and if not offer
	# to install
	if (!$got_net_imap) {
		print &text('index_eperl', "<tt>Net::IMAP</tt>",
			 "/cpan/download.cgi?source=3&cpan=Net::IMAP&mode=2&".
			 "return=/$module_name/&returndesc=".
			 &urlize($text{'index_return'})),"\n";
		print "$text{'index_eperl2'}\n";
		print "<pre>$net_imap_error</pre>\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}

# Try to connect to the IMAP server
	$imap = &imap_connect(1);
	if (!ref($imap)) {
		print &text('index_eimap', $imap,
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}

# If using MD5, make sure needed perl modules or programs are installed
if ($config{'md5'} == 1) {
	# Check if MD5 perl module is installed, and offer to install
	&foreign_require("useradmin", "user-lib.pl");
	if ($err = &useradmin::check_md5()) {
		print &text('index_emd5',
			 "../config.cgi?$module_name",
			 "<tt>$err</tt>",
			 "../cpan/download.cgi?source=3&cpan=Digest::MD5&mode=2&return=/$module_name/&returndesc=".&urlize($text{'index_return'})),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}
elsif ($config{'md5'} == 3 || $config{'md5'} == 4) {
	# Check if slappasswd is installed
	if (!&has_command($config{'slappasswd'})) {
		print &text('index_eslappasswd',
			 "../config.cgi?$module_name",
			 "<tt>$config{'slappasswd'}</tt>"),"\n";
		&ui_print_footer("/", $text{'index'});
		exit;
		}
	}

# Count the number of users and groups
$base = &get_user_base();
$rv = $ldap->search(base => $base,
		    filter => &user_filter(),
		    sizelimit => $mconfig{'display_max'}+1);
$ucount = $rv->count;
$base = &get_group_base();
$rv = $ldap->search(base => $base,
		    filter => &group_filter(),
		    sizelimit => $mconfig{'display_max'}+1);
$gcount = $rv->count;

# Get the list of users and groups
if ($ucount <= $mconfig{'display_max'}) {
	@allulist = &list_users();
	@ulist = &useradmin::list_allowed_users(\%access, \@allulist);
	}
if ($gcount <= $mconfig{'display_max'}) {
	@allglist = &list_groups();
	@glist = &useradmin::list_allowed_groups(\%access, \@allglist);
	}

# Start of tabs, based on what can be edited
@tabs = ( );
if ($ucount || $access{'ucreate'}) {
        push(@tabs, [ "users", $text{'index_users'},
                      "index.cgi?mode=users" ]);
        $can_users = 1;
	}
if ($gcount || $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");
        }

# Build links for adding users
@links = ( );
if ($access{'ucreate'}) {
	push(@links,
	 &ui_link("edit_user.cgi?new=1",$text{'index_uadd'}));
	}
if ($access{'batch'}) {
	push(@links, 
	 "<a href=\"batch_form.cgi\">$text{'index_batch'}</a>");
	}

$form = 0;
if ($ucount > $mconfig{'display_max'}) {
	# Show user 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", "uid",
                           [ [ "uid", $text{'user'} ],
                             [ "cn", $text{'real'} ],
                             [ "loginShell", $text{'shell'} ],
                             [ "homeDirectory", $text{'home'} ],
                             [ "uidNumber", $text{'uid'} ],
                             [ "gidNumber", $text{'gid'} ] ])." ".
                &ui_select("match", 1, $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++;
	print &ui_links_row(\@links);
	}
elsif (@ulist) {
	# Show table of all users
	@ulist = &useradmin::sort_users(\@ulist, $mconfig{'sort_mode'});
	@left = grep { !/batch_form|export_form/ } @links;
	@right = grep { /batch_form|export_form/ } @links;
	&useradmin::users_table(\@ulist, $form++, 1, 0, \@left, \@right);
	}
elsif ($access{'ucreate'}) {
	# No users
	$base = &get_user_base();
	print "",&text('index_unone', "<tt>$base</tt>"),"\n";
	print &ui_links_row(\@links);
	}

# 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");
        }

# Create group links
@links = ( );
if ($access{'gcreate'}) {
	push(@links, &ui_link("edit_group.cgi?new=1",$text{'index_gadd'}));
	}

if ($gcount > $mconfig{'display_max'}) {
	# Show 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", "cn",
                           [ [ "cn", $text{'gedit_group'} ],
                             [ "memberUid", $text{'gedit_members'} ],
                             [ "gidNumber", $text{'gedit_gid'} ] ])." ".
                &ui_select("match", 1, $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'} ] ]);
	print &ui_links_row(\@links);
	}
elsif (@glist) {
	# Show table of all groups
	@glist = &useradmin::sort_groups(\@glist, $mconfig{'sort_mode'});
	&useradmin::groups_table(\@glist, $form++, 0, \@links);
	}
elsif ($access{'gcreate'} || !@allglist) {
	# Show none message
	$base = &get_group_base();
	print "",&text('index_gnone', "<tt>$base</tt>"),"\n";
	print &ui_links_row(\@links);
	}

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

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

${this.title}

Code Editor : index.cgi