PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a list of all plans the current user owns
require './virtual-server-lib.pl';
$canplans = &can_edit_plans();
$canplans || &error($text{'plans_ecannot'});
&ui_print_header(undef, $text{'plans_title'}, "", "plans");
# Get plans and make the table
$bsize = "a_bsize("home");
@plans = &list_editable_plans();
@table = ( );
foreach $plan (@plans) {
local @cols;
push(@cols, { 'type' => 'checkbox', 'name' => 'd',
'value' => $plan->{'id'} });
push(@cols, ui_link("edit_plan.cgi?id=$plan->{'id'}'",
&html_escape($plan->{'name'})));
if ($canplans == 2) {
push(@cols, $plan->{'owner'} ||
"<i>$text{'plans_noresel'}</i>");
}
push(@cols, $plan->{'quota'} ? &nice_size($plan->{'quota'}*$bsize)
: $text{'form_unlimit'});
push(@cols, $plan->{'bwlimit'} ? &nice_size($plan->{'bwlimit'})
: $text{'form_unlimit'});
push(@cols, $plan->{'domslimit'} eq '' ? $text{'form_unlimit'}
: $plan->{'domslimit'});
push(@cols, $plan->{'mailboxlimit'} eq '' ? $text{'form_unlimit'}
: $plan->{'mailboxlimit'});
push(@cols, $plan->{'aliaslimit'} eq '' ? $text{'form_unlimit'}
: $plan->{'aliaslimit'});
push(@table, \@cols);
}
# Show the table
print &ui_form_columns_table(
"delete_plans.cgi",
[ [ "delete", $text{'plans_delete'} ] ],
1,
[ [ "edit_plan.cgi?new=1", $text{'plans_add'} ] ],
undef,
[ "", $text{'plans_name'},
$canplans == 2 ? ( $text{'plans_resel'} ) : ( ),
$text{'plans_quota'}, $text{'plans_bw'},
$text{'plans_doms'}, $text{'plans_mailboxes'},
$text{'plans_aliases'} ],
100,
\@table,
undef,
0,
undef,
$canplans == 2 ? $text{'plans_none'} : $text{'plans_none2'});
# Show form for setting the default
@aplans = &list_available_plans();
if (@aplans) {
print &ui_hr();
$defplan = &get_default_plan(1);
print &ui_form_start("save_defplan.cgi");
print "<b>$text{'plans_setdef'}</b>\n";
print &ui_select("plan", $defplan ? $defplan->{'id'} : '',
[ [ '', "<$text{'plans_nodef'}>" ],
map { [ $_->{'id'}, $_->{'name'} ] } @aplans ]);
print &ui_submit($text{'plans_savedef'});
print &ui_form_end();
}
&ui_print_footer("", $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`