Viewing file:  edit_newplan.cgi (1.96 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/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 = ( );
$defplan = &get_default_plan(1);
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'} || $plan->{'id'})).
($defplan && $defplan->{'id'} == $plan->{'id'} ?
&vui_inline_label('plans_default', 1) : ""));
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
@aplans = &list_available_plans();
print &ui_form_columns_table(
"delete_plans.cgi",
[ [ "delete", $text{'plans_delete'} ],
@aplans ? ( [ "default", $text{'plans_setdefault'} ] ) : ( ),
],
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'});
&ui_print_footer("", $text{'index_return'});
|