[ Avaa Bypassed ]




Upload:

Command:

www-data@18.188.66.142: ~ $
#!/usr/bin/perl
# edit_user.cgi
# Display details of an existing user for changing

require './cluster-webmin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'user_title2'}, "");

@hosts = &list_webmin_hosts();
@mods = &all_modules(\@hosts);
@themes = &all_themes(\@hosts);
@wgroups = &all_groups(\@hosts);
@servers = &list_servers();
if ($in{'host'} ne '') {
	($host) = grep { $_->{'id'} == $in{'host'} } @hosts;
	($user) = grep { $_->{'name'} eq $in{'user'} } @{$host->{'users'}};
	}
else {
	foreach $h (@hosts) {
		local ($u) = grep { $_->{'name'} eq $in{'user'} } @{$h->{'users'}};
		if ($u) {
			$host = $h;
			$user = $u;
			last;
			}
		}
	}
($serv) = grep { $_->{'id'} == $host->{'id'} } @servers;
foreach $h (@hosts) {
	local ($u) = grep { $_->{'name'} eq $in{'user'} } @{$h->{'users'}};
	if ($u) {
		push(@got, grep { $_->{'id'} == $h->{'id'} } @servers);
		}
	}

print "<form action=save_user.cgi method=post>\n";
print "<input type=hidden name=old value=\"$in{'user'}\">\n";
print "<input type=hidden name=host value=\"$host->{'id'}\">\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",&text('user_header2', &server_name($serv)),
      "</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td><b>$text{'user_name'}</b></td>\n";
printf "<td><input name=name size=15 value='%s'></td> </tr>\n",
	$user->{'name'};

foreach $g (@{$host->{'groups'}}) {
	if (&indexof($user->{'name'}, @{$g->{'members'}}) >= 0) {
		$group = $g;
		last;
		}
	}
print "<tr> <td><b>$text{'user_group'}</b></td> <td>\n";
printf "<input type=radio name=group_def value=1 checked> %s (%s)\n",
	$text{'user_leave'}, $group ? $group->{'name'} : $text{'user_nogroup2'};
printf "<input type=radio name=group_def value=0> %s\n",
	$text{'user_set'};
print "<select name=group>\n";
print "<option selected value=''>$text{'user_nogroup'}</option>\n";
foreach $g (@wgroups) {
	print "<option>$g->{'name'}</option>\n";
	}
print "</select></td> </tr>\n";

print "<tr> <td><b>$text{'user_pass'}</b></td> <td>\n";
print "<select name=pass_def>\n";
print "<option value=1 checked>$text{'user_leave'}</option>\n";
print "<option value=0>$text{'user_set'} ..</option>\n";
print "<option value=3>$text{'user_unix'}</option>\n";
print "<option value=4>$text{'user_lock'}</option>\n";
print "<option value=5>$text{'user_extauth'}</option>\n";
print "</select><input type=password name=pass size=25></td> </tr>\n";

@langs = &list_languages();
my $ulang = safe_language($user->{'lang'});
%langdesc = map { $_->{'lang'}, $_->{'desc'} } @langs;
print "<tr> <td><b>$text{'user_lang'}</b></td> <td>\n";
printf "<input type=radio name=lang_def value=1 checked> %s (%s)\n",
	$text{'user_leave'}, $ulang ? $langdesc{$ulang}
					     : $text{'user_default'};
printf "<input type=radio name=lang_def value=0> %s\n",
	$text{'user_set'};
print "<select name=lang>\n";
print "<option value='' selected>$text{'user_default'}</option>\n";
foreach $l (@langs) {
	printf "<option value=%s>%s</option>\n",
		$l->{'lang'},
		$l->{'desc'};
	}
print "</select></td> </tr>\n";

%themedesc = map { $_->{'dir'}, $_->{'desc'} } @themes;
print "<tr> <td><b>$text{'user_theme'}</b></td> <td>\n";
printf "<input type=radio name=theme_def value=1 checked> %s (%s)\n",
	$text{'user_leave'},
	$user->{'theme'} ? $themedesc{$user->{'theme'}} :
	!defined($user->{'theme'}) ? $text{'user_default'} : $text{'user_themedef'};
printf "<input type=radio name=theme_def value=0> %s\n",
	$text{'user_set'};
print "<select name=theme>\n";
print "<option value=webmin selected>$text{'user_default'}</option>\n";
foreach $t ( { 'desc' => $text{'user_themedef'} }, @themes) {
	printf "<option value='%s'>%s</option>\n", $t->{'dir'}, $t->{'desc'};
	}
print "</select></td> </tr>\n";

print "<tr> <td valign=top><b>$text{'user_notabs'}</b></td>\n";
print "<td>",ui_radio("notabs", int($user->{'notabs'}),
                          [ [ 1, $text{'yes'} ],
                            [ 2, $text{'no'} ],
                            [ 0, $text{'default'} ] ]),"</td> </tr>\n";

print "<tr> <td valign=top><b>$text{'user_ips'}</b></td>\n";
print "<td>\n";
print "<input name=ipmode type=radio value=-1 checked> $text{'user_leave'}\n";
if ($user->{'allow'}) {
	print "($text{'user_allow2'} $user->{'allow'})\n";
	}
elsif ($user->{'deny'}) {
	print "($text{'user_deny2'} $user->{'deny'})\n";
	}
else {
	print "($text{'user_allowall'})\n";
	}
print "<table cellpadding=0 cellspacing=0><tr><td valign=top>\n";
print "<input name=ipmode type=radio value=0> $text{'user_allips'}<br>\n";
print "<input name=ipmode type=radio value=1> $text{'user_allow'}<br>\n";
print "<input name=ipmode type=radio value=2> $text{'user_deny'}</td>\n";
print "<td><textarea name=ips rows=4 cols=30></textarea></td>\n";
print "</td> </tr></table> </tr>\n";

$mp = int((scalar(@mods)+2)/3);
@umods = $group ? @{$user->{'ownmods'}} : @{$user->{'modules'}};
map { $umods{$_}++ } @umods;
print "<tr> <td valign=top><b>$text{'user_mods'}</b><br>",
      "$text{'user_groupmods'}</td> <td nowrap>\n";
print "<input type=radio name=mods_def value=1 checked> ",
	&text('user_mleave', scalar(@umods)),"<br>\n";
print "<input type=radio name=mods_def value=2> $text{'user_modsel'}\n";
print "<input type=radio name=mods_def value=3> $text{'user_modadd'}\n";
print "<input type=radio name=mods_def value=0> $text{'user_moddel'}\n";
print "<br>\n";
print "<select name=mods1 size=$mp multiple>\n";
for($i=0; $i<$mp; $i++) {
	printf "<option value=%s %s>%s</option>\n",
		$mods[$i]->{'dir'}, $umods{$mods[$i]->{'dir'}} ? "selected" : "",
		$mods[$i]->{'desc'};
	}
print "</select>\n";
print "<select name=mods2 size=$mp multiple>\n";
for($i=$mp; $i<$mp*2; $i++) {
	printf "<option value=%s %s>%s</option>\n",
		$mods[$i]->{'dir'}, $umods{$mods[$i]->{'dir'}} ? "selected" : "",
		$mods[$i]->{'desc'};
	}
print "</select>\n";
print "<select name=mods3 size=$mp multiple>\n";
for($i=$mp*2; $i<@mods; $i++) {
	printf "<option value=%s %s>%s</option>\n",
		$mods[$i]->{'dir'}, $umods{$mods[$i]->{'dir'}} ? "selected" : "",
		$mods[$i]->{'desc'};
	}
print "</select>\n";

print "<br>\n";
print "<a href='' onClick='for(i=0; i<document.forms[0].mods1.options.length; i++) { document.forms[0].mods1.options[i].selected = true; } for(i=0; i<document.forms[0].mods2.options.length; i++) { document.forms[0].mods2.options[i].selected = true; } for(i=0; i<document.forms[0].mods3.options.length; i++) { document.forms[0].mods3.options[i].selected = true; } return false'>$text{'user_sall'}</a>&nbsp;\n";
print "<a href='' onClick='for(i=0; i<document.forms[0].mods1.options.length; i++) { document.forms[0].mods1.options[i].selected = false; } for(i=0; i<document.forms[0].mods2.options.length; i++) { document.forms[0].mods2.options[i].selected = false; } for(i=0; i<document.forms[0].mods3.options.length; i++) { document.forms[0].mods3.options[i].selected = false; } return false'>$text{'user_snone'}</a>&nbsp;\n";
print "<a href='' onClick='for(i=0; i<document.forms[0].mods1.options.length; i++) { document.forms[0].mods1.options[i].selected = !document.forms[0].mods1.options[i].selected; } for(i=0; i<document.forms[0].mods2.options.length; i++) { document.forms[0].mods2.options[i].selected = !document.forms[0].mods2.options[i].selected; } for(i=0; i<document.forms[0].mods3.options.length; i++) { document.forms[0].mods3.options[i].selected = !document.forms[0].mods3.options[i].selected; } return false'>$text{'user_sinvert'}</a><br>\n";

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

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

%mdesc = map { $_->{'dir'}, $_->{'desc'} } @mods;
foreach $h (@hosts) {
	local %ingroup;
	foreach $g (@{$h->{'groups'}}) {
		map { $ingroup{$_}++ } @{$g->{'members'}};
		}
	local ($u) = grep { $_->{'name'} eq $in{'user'} } @{$h->{'users'}};
	next if (!$u);
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = &server_name($s);
	$sel .= "<option value='$h->{'id'},'>".&text('user_aclhg', $d)."</option>\n"
		if (!$ingroup{$in{'user'}});
	foreach $m (@{$h->{'modules'}}) {
		local @um = $ingroup{$in{'user'}} ? @{$u->{'ownmods'}}
						  : @{$u->{'modules'}};
		next if (&indexof($m->{'dir'}, @um) < 0);
		$sel .= "<option value='$h->{'id'},$m->{'dir'}'>".
			&text('user_aclh', $m->{'desc'}, $d)."</option>\n";
		}
	}
if ($sel) {
	print "<form action=edit_acl.cgi><td align=center>\n";
	print "<input type=hidden name=user value='$in{'user'}'>\n";
	print "<input type=submit value='$text{'user_acl'}'>\n";
	print "<select name=modhost>\n";
	print $sel;
	print "</select></td></form>\n";
	}

print "<form action=delete_user.cgi>\n";
print "<input type=hidden name=user value=\"$in{'user'}\">\n";
print "<td align=right><input type=submit value='$text{'delete'}'></td></form>\n";
print "</tr></table>\n";

# Show hosts with the user
print &ui_hr();
print &ui_subheading($text{'user_hosts'});
@icons = map { "/servers/images/$_->{'type'}.svg" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
@titles = map { &server_name($_) } @got;
&icons_table(\@links, \@titles, \@icons);

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


Filemanager

Name Type Size Permission Actions
help Folder 0755
images Folder 0755
lang Folder 0755
CHANGELOG File 1.05 KB 0644
add.cgi File 2.48 KB 0755
cluster-webmin-lib.pl File 7.29 KB 0755
config File 25 B 0644
config.info File 108 B 0644
config.info.ca File 137 B 0644
config.info.cs File 79 B 0644
config.info.de File 125 B 0644
config.info.es File 75 B 0644
config.info.fr File 134 B 0644
config.info.hr File 0 B 0644
config.info.hu File 0 B 0644
config.info.ms File 131 B 0644
config.info.nl File 131 B 0644
config.info.no File 127 B 0644
config.info.pl File 122 B 0644
create_group.cgi File 3.11 KB 0755
create_user.cgi File 3.95 KB 0755
delete_group.cgi File 3.22 KB 0755
delete_host.cgi File 248 B 0755
delete_mod.cgi File 4.17 KB 0755
delete_user.cgi File 2.15 KB 0755
edit_acl.cgi File 3.94 KB 0755
edit_config.cgi File 2.13 KB 0755
edit_group.cgi File 6.35 KB 0755
edit_host.cgi File 4.46 KB 0755
edit_mod.cgi File 7 KB 0755
edit_user.cgi File 8.96 KB 0755
group_form.cgi File 2.98 KB 0755
index.cgi File 9.46 KB 0755
install.cgi File 7.68 KB 0755
module.info File 227 B 0644
module.info.af File 0 B 0644
module.info.af.auto File 185 B 0644
module.info.ar File 0 B 0644
module.info.ar.auto File 279 B 0644
module.info.be File 0 B 0644
module.info.be.auto File 304 B 0644
module.info.bg File 0 B 0644
module.info.bg.auto File 306 B 0644
module.info.ca File 178 B 0644
module.info.ca.auto File 23 B 0644
module.info.cs File 33 B 0644
module.info.cs.auto File 158 B 0644
module.info.da File 0 B 0644
module.info.da.auto File 192 B 0644
module.info.de File 160 B 0644
module.info.de.auto File 23 B 0644
module.info.el File 0 B 0644
module.info.el.auto File 345 B 0644
module.info.es File 36 B 0644
module.info.es.auto File 162 B 0644
module.info.eu File 0 B 0644
module.info.eu.auto File 191 B 0644
module.info.fa File 0 B 0644
module.info.fa.auto File 256 B 0644
module.info.fi File 0 B 0644
module.info.fi.auto File 190 B 0644
module.info.fr File 35 B 0644
module.info.fr.auto File 183 B 0644
module.info.he File 0 B 0644
module.info.he.auto File 240 B 0644
module.info.hr File 0 B 0644
module.info.hr.auto File 193 B 0644
module.info.hu File 33 B 0644
module.info.hu.auto File 185 B 0644
module.info.it File 0 B 0644
module.info.it.auto File 183 B 0644
module.info.ja File 0 B 0644
module.info.ja.auto File 256 B 0644
module.info.ko File 0 B 0644
module.info.ko.auto File 195 B 0644
module.info.lt File 0 B 0644
module.info.lt.auto File 206 B 0644
module.info.lv File 0 B 0644
module.info.lv.auto File 197 B 0644
module.info.ms File 151 B 0644
module.info.ms.auto File 23 B 0644
module.info.mt File 0 B 0644
module.info.mt.auto File 188 B 0644
module.info.nl File 33 B 0644
module.info.nl.auto File 155 B 0644
module.info.no File 32 B 0644
module.info.no.auto File 153 B 0644
module.info.pl File 168 B 0644
module.info.pl.auto File 23 B 0644
module.info.pt File 0 B 0644
module.info.pt.auto File 196 B 0644
module.info.pt_BR File 0 B 0644
module.info.pt_BR.auto File 205 B 0644
module.info.ro File 0 B 0644
module.info.ro.auto File 189 B 0644
module.info.ru File 0 B 0644
module.info.ru.auto File 320 B 0644
module.info.sk File 0 B 0644
module.info.sk.auto File 199 B 0644
module.info.sl File 0 B 0644
module.info.sl.auto File 186 B 0644
module.info.sv File 0 B 0644
module.info.sv.auto File 186 B 0644
module.info.th File 0 B 0644
module.info.th.auto File 403 B 0644
module.info.tr File 0 B 0644
module.info.tr.auto File 204 B 0644
module.info.uk File 0 B 0644
module.info.uk.auto File 328 B 0644
module.info.ur File 0 B 0644
module.info.ur.auto File 287 B 0644
module.info.vi File 0 B 0644
module.info.vi.auto File 215 B 0644
module.info.zh File 0 B 0644
module.info.zh.auto File 160 B 0644
module.info.zh_TW File 0 B 0644
module.info.zh_TW.auto File 169 B 0644
prefs.info File 28 B 0644
refresh.cgi File 4.08 KB 0755
save_acl.cgi File 3.33 KB 0755
save_config.cgi File 1.33 KB 0755
save_group.cgi File 4.54 KB 0755
save_user.cgi File 5.24 KB 0755
sync.cgi File 4 KB 0755
sync_form.cgi File 1.8 KB 0755
update.cgi File 4.1 KB 0755
upgrade.cgi File 15.26 KB 0755
user_form.cgi File 4.5 KB 0755