PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show all extra admins for a virtual server
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
$d || &error($text{'edit_egone'});
&can_edit_domain($d) || &error($text{'edit_ecannot'});
&can_edit_admins($d) || &error($text{'admins_ecannot'});
&ui_print_header(&domain_in($d), $text{'admins_title'}, "");
@links = ( &select_all_link("d"),
&select_invert_link("d"),
"<a href='edit_admin.cgi?dom=$in{'dom'}&new=1'>$text{'admins_add'}</a>" );
# Make table data
@admins = &list_extra_admins($d);
foreach $a (sort { $a->{'name'} cmp $b->{'name'} } @admins) {
if (!$a->{'doms'}) {
$domsdesc = $text{'admins_domsall'};
}
else {
@doms = grep { $_ } map { &get_domain($_) }
split(/\s+/, $a->{'doms'});
@dnames = map { &show_domain_name($_) } @doms;
$domsdesc = @dnames > 3 ?
join(", ", @dnames[0..2]).", ".&text('admins_more',
@dnames - 3) :
join(", ", @dnames);
}
push(@table, [
{ 'type' => 'checkbox', 'name' => 'd',
'value' => $a->{'name'} },
"<a href='edit_admin.cgi?dom=$in{'dom'}&name=".
&urlize($a->{'name'})."'>".$a->{'name'}."</a>",
$a->{'desc'},
$domsdesc,
]);
}
# Render the table
print &ui_form_columns_table(
"delete_admins.cgi",
[ [ "delete", $text{'admins_delete'} ] ],
1,
[ [ "edit_admin.cgi?dom=$in{'dom'}&new=1", $text{'admins_add'} ] ],
[ [ "dom", $in{'dom'} ] ],
[ "", $text{'admins_name'}, $text{'admins_desc'},
$text{'admins_doms'} ],
100,
\@table,
undef,
0,
undef,
$text{'admins_none'},
);
&ui_print_footer(&domain_footer_link($d),
"", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`