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 : edit_group.cgi

#!/usr/bin/perl
# edit_group.cgi
# Display a form for editing an existing group

require './cluster-useradmin-lib.pl';
&ReadParse();

@hosts = &list_useradmin_hosts();
@servers = &list_servers();
if ($in{'host'} ne '') {
	($host) = grep { $_->{'id'} == $in{'host'} } @hosts;
	local ($g) = grep { $_->{'group'} eq $in{'group'} } @{$host->{'groups'}};
	%ginfo = %$g;
	}
else {
	foreach $h (@hosts) {
		local ($g) = grep { $_->{'group'} eq $in{'group'} }
				  @{$h->{'groups'}};
		if ($g) {
			$host = $h;
			%ginfo = %$g;
			last;
			}
		}
	}
($serv) = grep { $_->{'id'} == $host->{'id'} } @servers;
$desc = &text('gedit_host', $serv->{'desc'} ?
		$serv->{'desc'} : $serv->{'host'});
&ui_print_header($desc, $text{'gedit_title'}, "");

print "<form action=\"save_group.cgi\" method=post>\n";
print "<input type=hidden name=group value=\"$in{'group'}\">\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'gedit_details'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td valign=top><b>$text{'gedit_group'}</b></td>\n";
print "<td valign=top><font size=3><i>$ginfo{'group'}</i></font></td>\n";

print "<td valign=top><b>$text{'gedit_gid'}</b></td>\n";
printf "<td><input type=radio name=gid_def value=1 checked> %s (%s)\n",
	$text{'uedit_leave'}, $ginfo{'gid'};
printf "<input type=radio name=gid_def value=0> %s\n",
	$text{'gedit_set'};
print "<input name=gid size=10></td> </tr>\n";

print "<tr> <td valign=top><b>$text{'pass'}</b></td>\n";
printf "<td><input type=radio name=passmode value=-1 checked> %s (%s)\n",
	$text{'uedit_leave'}, $ginfo{'pass'} ? $ginfo{'pass'}
					     : $text{'uedit_none'};
print "<input type=radio name=passmode value=0> $text{'none2'}<br>\n";
print "<input type=radio name=passmode value=1> $text{'encrypted'}\n";
print "<input name=encpass size=13><br>\n";
print "<input type=radio name=passmode value=2> $text{'clear'}\n";
print "<input name=pass size=15></td>\n";

print "<td valign=top><b>$text{'gedit_members'}</b></td> <td>\n";
printf "<input type=radio name=members_def value=0 checked> %s (%s)<br>\n",
	$text{'uedit_leave'}, $ginfo{'members'} ? $ginfo{'members'}
						: $text{'uedit_none'};
printf "<input type=radio name=members_def value=1> %s\n", $text{'gedit_add'};
print "<input name=membersadd size=20> ",
	&user_chooser_button("membersadd", 1),"<br>\n";
printf "<input type=radio name=members_def value=2> %s\n", $text{'gedit_del'};
print "<input name=membersdel size=20> ",
	&user_chooser_button("membersdel", 1),"</td> </tr>\n";

print "</table></td> </tr></table><p>\n";

print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'onsave'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'chgid'}</b></td>\n";
print "<td><input type=radio name=chgid value=0 checked> $text{'no'}</td>\n";
print "<td><input type=radio name=chgid value=1> $text{'gedit_homedirs'}</td>\n";
print "<td><input type=radio name=chgid value=2> $text{'gedit_allfiles'}</td> </tr>\n";

print "<tr> <td><b>$text{'uedit_servs'}</b></td>\n";
print "<td><input type=radio name=servs value=1> $text{'uedit_mall'}</td>\n";
print "<td colspan=2><input type=radio name=servs value=0 checked> $text{'uedit_mthis'}</td> </tr>\n";

print "<tr> <td><b>$text{'gedit_mothers'}</b></td>\n";
print "<td><input type=radio name=others value=1 checked> $text{'yes'}</td>\n";
print "<td colspan=2><input type=radio name=others value=0> $text{'no'}</td> </tr>\n";

print "</table></td> </tr></table><p>\n";

print "<table width=100%>\n";
print "<tr> <td><input type=submit value=\"$text{'save'}\"></td>\n";

# Find the servers this group is on
foreach $h (@hosts) {
	local ($og) = grep { $_->{'group'} eq $in{'group'} } @{$h->{'groups'}};
	if ($og) {
		local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
		push(@icons, &get_webprefix() ?
			(&get_webprefix()."/servers/images/".$s->{'type'}.".svg") :
			("../servers/images/".$s->{'type'}.".svg"));
		push(@links, "edit_host.cgi?id=$h->{'id'}");
		push(@titles, $s->{'desc'} ? $s->{'desc'} : $s->{'host'});
		}
	}
if (@icons < @hosts) {
	# Offer to create on all servers
	print "</form><form action=\"sync.cgi\">\n";
	print "<input type=hidden name=server value=-1>\n";
	print "<input type=hidden name=users_mode value=0>\n";
	print "<input type=hidden name=groups_mode value=2>\n";
	print "<input type=hidden name=gsel value='$ginfo{'group'}'>\n";
	print "<td align=middle><input type=submit ",
	      "value=\"$text{'uedit_sync'}\"></td>\n";
	}

print "</tr></table></form><p><form action=\"delete_group.cgi\">\n";
print "<input type=hidden name=group value=\"$ginfo{'group'}\">\n";
print "<input type=submit value=\"$text{'delete'}\">\n";
print "</form><p>\n";

print &ui_hr();
print &ui_subheading($text{'uedit_hosts'});
if ($config{'table_mode'}) {
	# Show as table
	print &ui_columns_start([ $text{'index_thost'},
				  $text{'index_tdesc'},
				  $text{'index_ttype'} ]);
	foreach $h (@hosts) {
		local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
		next if (!$s);
		local ($type) = grep { $_->[0] eq $s->{'type'} }
					@servers::server_types;
		local ($link) = $config{'conf_host_links'} ?
			&ui_link("edit_host.cgi?id=$h->{'id'}",($s->{'host'} || &get_system_hostname())) :
			($s->{'host'} || &get_system_hostname());
		print &ui_columns_row([
			$link,
			$s->{'desc'},
			$type->[1],
			]);
		}
	print &ui_columns_end();
	}
else {
	# Show as icons
	&icons_table(\@links, \@titles, \@icons);
	print "<br>";
	}

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

${this.title}

Code Editor : edit_group.cgi