mirror of
https://github.com/webmin/webmin.git
synced 2025-08-22 18:11:38 +00:00
107 lines
3.3 KiB
Perl
107 lines
3.3 KiB
Perl
#!/usr/local/bin/perl
|
|
# Show the details of one access control rule
|
|
|
|
require './ldap-server-lib.pl';
|
|
&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
|
|
$access{'acl'} || &error($text{'acl_ecannot'});
|
|
&ReadParse();
|
|
|
|
# Page header
|
|
$conf = &get_config();
|
|
@access = &find("access", $conf);
|
|
if ($in{'new'}) {
|
|
&ui_print_header(undef, $text{'eacl_title1'}, "", "eacl");
|
|
$p = { 'what' => '*',
|
|
'by' => [ ] };
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'eacl_title2'}, "", "eacl");
|
|
$acl = $access[$in{'idx'}];
|
|
$p = &parse_ldap_access($acl);
|
|
}
|
|
|
|
# Form header
|
|
print &ui_form_start("acl_save.cgi", "post");
|
|
print &ui_hidden("new", $in{'new'});
|
|
print &ui_hidden("idx", $in{'idx'});
|
|
print &ui_table_start($text{'eacl_header'}, undef, 2);
|
|
|
|
# Granting to what object
|
|
$what = $p->{'what'} eq '*' ? 1 : 0;
|
|
if ($p->{'what'} =~ /^dn(\.([^=]+))?=(.*)$/i) {
|
|
$dn = $3;
|
|
$style = $2;
|
|
}
|
|
print &ui_table_row($text{'eacl_what'},
|
|
&ui_radio_table("what", $what,
|
|
[ [ 1, $text{'eacl_what1'} ],
|
|
[ 0, $text{'eacl_what0'},
|
|
&ui_textbox("what_dn", $dn, 30)." ".
|
|
$text{'eacl_mtype'}." ".
|
|
&ui_select("what_style", $style,
|
|
[ [ '', $text{'default'} ],
|
|
map { [ $_, $text{'eacl_'.$_} ] }
|
|
@acl_dn_styles ]) ] ])."\n".
|
|
&ui_checkbox("filter_on", 1, $text{'eacl_filter'}, $p->{'filter'})." ".
|
|
&ui_textbox("filter", $p->{'filter'}, 40)."<br>\n".
|
|
&ui_checkbox("attrs_on", 1, $text{'eacl_attrs'}, $p->{'attrs'})." ".
|
|
&ui_textbox("attrs", $p->{'attrs'}, 40) );
|
|
|
|
# Access rights table
|
|
@tds = ( "width=40% nowrap", "width=30%", "width=30%" );
|
|
$wtable = &ui_columns_start([ $text{'eacl_who'},
|
|
$text{'eacl_access'},
|
|
$text{'eacl_control'} ], 100, 0, \@tds);
|
|
$i = 0;
|
|
foreach $b (@{$p->{'by'}}, { }, { }, { }) {
|
|
$kwho = $b->{'who'} eq 'self' || $b->{'who'} eq 'users' ||
|
|
$b->{'who'} eq 'anonymous' || $b->{'who'} eq '*' ||
|
|
$b->{'who'} eq '';
|
|
$kacc = !$b->{'access'} ? 'read' :
|
|
&indexof($b->{'access'}, @acl_access_levels) >= 0 ?
|
|
$b->{'access'} : undef;
|
|
$wtable .= &ui_columns_row([
|
|
# Who are we granting?
|
|
&ui_select("wmode_$i",
|
|
$kwho ? $b->{'who'} : 'other',
|
|
[ [ '', " " ],
|
|
[ '*', $text{'eacl_every'} ],
|
|
[ 'self', $text{'eacl_self'} ],
|
|
[ 'users', $text{'eacl_users'} ],
|
|
[ 'anonymous', $text{'eacl_anonymous'} ],
|
|
[ 'other', $text{'eacl_other'} ] ],
|
|
1, 0, 0, 0,
|
|
"style='width:45%' onChange='form.who_$i.disabled = (form.wmode_$i.value != \"other\")'").
|
|
&ui_textbox("who_$i", $kwho ? "" : $b->{'who'}, 30,
|
|
$kwho, undef, "style='width:45%'"),
|
|
|
|
# What access level? Show textbox if complex
|
|
$kacc ? &ui_select("access_$i", $kacc,
|
|
[ map { [ $_, $text{'access_l'.$_} ] }
|
|
@acl_access_levels ], 1, 0, 0, 0,
|
|
"style='width:90%'")
|
|
: &ui_textbox("access_$i", $b->{'access'}, 20,
|
|
0, undef, "style='width:90%'"),
|
|
|
|
# Additional attrs
|
|
&ui_textbox("control_$i", join(" ", @{$b->{'control'}}), 30,
|
|
0, undef, "style='width:90%'"),
|
|
], \@tds);
|
|
# XXX http://www.openldap.org/faq/data/cache/452.html
|
|
$i++;
|
|
}
|
|
$wtable .= &ui_columns_end();
|
|
print &ui_table_row(undef, $wtable, 2);
|
|
|
|
# Form and page end
|
|
print &ui_table_end();
|
|
if ($in{'new'}) {
|
|
print &ui_form_end([ [ undef, $text{'create'} ] ]);
|
|
}
|
|
else {
|
|
print &ui_form_end([ [ undef, $text{'save'} ],
|
|
[ 'delete', $text{'delete'} ] ]);
|
|
}
|
|
&ui_print_footer("edit_acl.cgi", $text{'acl_return'});
|
|
|