#!/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 = &quota_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'} : '',
			 [ [ '', "&lt;$text{'plans_nodef'}&gt;" ],
			   map { [ $_->{'id'}, $_->{'name'} ] } @aplans ]);
	print &ui_submit($text{'plans_savedef'});
	print &ui_form_end();
	}

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