Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	273 B	-rw-r--r--
add.cgi	2.09 KB	-rwxr-xr-x
cluster-useradmin-lib.pl	5.51 KB	-rwxr-xr-x
config	150 B	-rw-r--r--
config.info	566 B	-rw-r--r--
config.info.ca	655 B	-rw-r--r--
config.info.cs	79 B	-rw-r--r--
config.info.de	657 B	-rw-r--r--
config.info.es	78 B	-rw-r--r--
config.info.fr	758 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms	131 B	-rw-r--r--
config.info.nl	129 B	-rw-r--r--
config.info.no	137 B	-rw-r--r--
config.info.pl	121 B	-rw-r--r--
create_group.cgi	3.32 KB	-rwxr-xr-x
create_user.cgi	9.72 KB	-rwxr-xr-x
delete_group.cgi	3.61 KB	-rwxr-xr-x
delete_host.cgi	257 B	-rwxr-xr-x
delete_user.cgi	5.22 KB	-rwxr-xr-x
edit_group.cgi	5.39 KB	-rwxr-xr-x
edit_host.cgi	1.96 KB	-rwxr-xr-x
edit_user.cgi	17.68 KB	-rwxr-xr-x
group_form.cgi	2.29 KB	-rwxr-xr-x
index.cgi	4.98 KB	-rwxr-xr-x
log_parser.pl	542 B	-rwxr-xr-x
module.info	387 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	259 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	392 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	489 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	487 B	-rw-r--r--
module.info.ca	265 B	-rw-r--r--
module.info.ca.auto	29 B	-rw-r--r--
module.info.cs	40 B	-rw-r--r--
module.info.cs.auto	247 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	249 B	-rw-r--r--
module.info.de	147 B	-rw-r--r--
module.info.de.auto	24 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	521 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.auto	228 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	275 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	406 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	291 B	-rw-r--r--
module.info.fr	44 B	-rw-r--r--
module.info.fr.auto	260 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	316 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	261 B	-rw-r--r--
module.info.hu	31 B	-rw-r--r--
module.info.hu.auto	285 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	253 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	361 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	310 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	298 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	274 B	-rw-r--r--
module.info.ms	247 B	-rw-r--r--
module.info.ms.auto	25 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	282 B	-rw-r--r--
module.info.nl	40 B	-rw-r--r--
module.info.nl.auto	242 B	-rw-r--r--
module.info.no	36 B	-rw-r--r--
module.info.no.auto	225 B	-rw-r--r--
module.info.pl	240 B	-rw-r--r--
module.info.pl.auto	29 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	282 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	291 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	301 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	477 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	305 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	266 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	265 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	597 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	291 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	456 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	468 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	287 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	244 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	253 B	-rw-r--r--
prefs.info	28 B	-rw-r--r--
refresh.cgi	2.31 KB	-rwxr-xr-x
save_group.cgi	4.65 KB	-rwxr-xr-x
save_user.cgi	12.76 KB	-rwxr-xr-x
search_group.cgi	1.69 KB	-rwxr-xr-x
search_user.cgi	1.73 KB	-rwxr-xr-x
sync.cgi	4.92 KB	-rwxr-xr-x
sync_form.cgi	1.75 KB	-rwxr-xr-x
user_form.cgi	5.66 KB	-rwxr-xr-x

Code Editor : user_form.cgi

#!/usr/bin/perl
# user_form.cgi
# Display a form for creating a new user

require './cluster-useradmin-lib.pl';
use Time::Local;
&ReadParse();
&foreign_require("useradmin", "user-lib.pl");

&ui_print_header(undef, $text{'uedit_title2'}, "");
@hosts = &list_useradmin_hosts();
@servers = &list_servers();

# build list of used shells and uids
foreach $h (@hosts) {
	foreach $u (@{$h->{'users'}}) {
		push(@shlist, $u->{'shell'}) if ($u->{'shell'});
		$used{$u->{'uid'}}++;
		}
	foreach $g (@{$h->{'groups'}}) {
		push(@glist, $g) if (!$donegroup{$g->{'group'}}++);
		}
	}
open(SHELLS, "</etc/shells");
while(<SHELLS>) {
	s/\r|\n//g;
	s/#.*$//;
	push(@shlist, $_) if (/\S/);
	}
close(SHELLS);

print &ui_form_start("create_user.cgi", "post");
print &ui_table_start($text{'uedit_details'}, "width=100%", 2);

# Username
print &ui_table_row($text{'user'},
	&ui_textbox("user", undef, 40));

# Find the first free UID above the base
$newuid = int($uconfig{'base_uid'});
while($used{$newuid}) {
	$newuid++;
	}
print &ui_table_row($text{'uid'},
	&ui_textbox("uid", $newuid, 10));

# Real name and possibly other fields
if ($uconfig{'extra_real'}) {
        print &ui_table_row($text{'real'},
                &ui_textbox("real", undef, 40));

print &ui_table_row($text{'office'},
		&ui_textbox("office", undef, 20));

print &ui_table_row($text{'workph'},
		&ui_textbox("workph", undef, 20));

print &ui_table_row($text{'homeph'},
		&ui_textbox("homeph", undef, 20));

print &ui_table_row($text{'extra'},
		&ui_textbox("extra", undef, 20));
	}
else {
	print &ui_table_row($text{'real'},
		&ui_textbox("real", undef, 40));
	}

# Home directory
print &ui_table_row($text{'home'},
	$uconfig{'home_base'} ?
		&ui_radio("home_base", 1,
			  [ [ 1, $text{'uedit_auto'} ],
			    [ 0, &ui_filebox("home", "", 40) ] ]) :
		&ui_filebox("home", "", 40));

# Login shell
@shlist = &unique(@shlist);
push(@shlist, [ "*", $text{'uedit_other'} ]);
print &ui_table_row($text{'shell'},
	&ui_select("shell", undef, \@shlist)." ".
	&ui_filebox("othersh", undef, 25));

# Password or locked account
$rp = $uconfig{'random_password'} ? &useradmin::generate_random_password() : "";
$pfield = $uconfig{'passwd_stars'} ? &ui_password("pass", $rp, 40)
				   : &ui_textbox("pass", $rp, 40);
print &ui_table_row($text{'pass'},
	&ui_radio_table("passmode", 1,
	    [ [ 0, $uconfig{'empty_mode'} ? $text{'none1'} : $text{'none2'} ],
	      [ 1, $text{'nologin'} ],
	      [ 3, $text{'clear'}, $pfield ],
	      [ 2, &ui_textbox("encpass", undef, 40) ] ]));

print &ui_table_end();

$pft = &foreign_call("useradmin", "passfiles_type");
if ($pft == 1 || $pft == 6) {
	# This is a BSD system.. a few extra password options are supported
	print &ui_table_start($text{'uedit_passopts'}, undef, 2);

print &ui_table_row($text{'change2'},
		&useradmin::date_input("", "", "", 'change')." ".
		&ui_textbox("changeh", "", 3).":".
		&ui_textbox("changemi", "", 3));

print &ui_table_row($text{'expire2'},
		&useradmin::date_input("", "", "", 'expire')." ".
		&ui_textbox("expireh", "", 3).":".
		&ui_textbox("expiremi", "", 3));

print &ui_table_row($text{'class'},
		&ui_textbox("class", "", 10));

print &ui_table_end();
	}
elsif ($pft == 2) {
	# System has a shadow password file as well.. which means it supports
	# password expiry and so on
	print &ui_table_start($text{'uedit_passopts'}, undef, 2);

print &ui_table_row($text{'expire'},
		&useradmin::date_input($eday, $emon, $eyear, 'expire'));

print &ui_table_row($text{'min'},
		&ui_textbox("min", undef, 5));

print &ui_table_row($text{'max'},
		&ui_textbox("max", undef, 5));

print &ui_table_row($text{'warn'},
		&ui_textbox("warn", undef, 5));

print &ui_table_row($text{'inactive'},
		&ui_textbox("inactive", undef, 5));

print &ui_table_end();
	}
elsif ($pft == 4) {
	# This is an AIX system
	print &ui_table_start($text{'uedit_passopts'}, undef, 2);

print &ui_table_row($text{'expire'},
		&useradmin::date_input("", "", "", 'expire')." ".
		&ui_textbox("expireh", undef, 3).":".
		&ui_textbox("expiremi", undef, 3));

print &ui_table_row($text{'min_weeks'},
		&ui_textbox("min", undef, 5));

print &ui_table_row($text{'max_weeks'},
		&ui_textbox("max", undef, 5));

print &ui_table_row($text{'warn'},
		&ui_textbox("warn", undef, 5));

print &ui_table_row($text{'flags'},
		&ui_checkbox("flags", "admin", $text{'uedit_admin'})." ".
		&ui_checkbox("flags", "admchg", $text{'uedit_admchg'})." ".
		&ui_checkbox("flags", "nocheck", $text{'uedit_nocheck'}));

print &ui_table_end();
	}

print &ui_table_start($text{'uedit_gmem'}, "width=100%", 2);

# Primary group
print &ui_table_row($text{'group'},
	&ui_group_textbox("gid", $uconfig{'default_group'}));

# Secondary groups
@glist = sort { $a->{'group'} cmp $b->{'group'} } @glist
	if ($uconfig{'sort_mode'});
print &ui_table_row($text{'uedit_2nd'},
	&ui_select("sgid", undef,
		[ map { [ $_->{'gid'}, $_->{'group'} ] } @glist ],
		5, 1));

print &ui_table_end();

print &ui_table_start($text{'uedit_oncreate'}, "width=100%", 2);

# Create home dir?
print &ui_table_row($text{'uedit_makehome'},
	&ui_yesno_radio("makehome", 1));

# Copy home dir files?
if ($uconfig{'user_files'} =~ /\S/) {
	print &ui_table_row($text{'uedit_copy'},
		&ui_yesno_radio("copy_files", 1));
	}

# Create home dir on all servers?
print &ui_table_row($text{'uedit_servs'},
	&ui_radio("servs", 0, [ [ 1, $text{'uedit_mall'} ],
			 	[ 0, $text{'uedit_mthis'} ] ]));

# Show other modules option
print &ui_table_row($text{'uedit_others'},
        &ui_yesno_radio("others", 1));

# Show selector for hosts to create on
print &ui_table_row($text{'uedit_servers'},
	&create_on_input());

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'create'} ] ]);

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

${this.title}

Code Editor : user_form.cgi