Viewing file:  save_plan.cgi (3.75 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Create, update or delete a plan
require './virtual-server-lib.pl';
&ReadParse();
$canplans = &can_edit_plans();
$canplans || &error($text{'plans_ecannot'});
&error_setup($text{'plan_err'});
# Just redirect to edit form in clone mode
if ($in{'clone'}) {
&redirect("edit_plan.cgi?new=1&clone=".&urlize($in{'id'}));
return;
}
# Get the plan being edited
if (!$in{'new'}) {
@plans = &list_editable_plans();
($plan) = grep { $_->{'id'} eq $in{'id'} } @plans;
$plan || &error($text{'plan_ecannot'});
}
else {
$plan = { };
if ($canplans == 1) {
$plan->{'owner'} = $base_remote_user;
}
}
if ($in{'delete'}) {
# Just remove this plan
&delete_plan($plan);
&webmin_log("delete", "plan", $plan->{'id'}, $plan);
}
else {
# Validate and store inputs
$in{'name'} =~ /\S/ || &error($text{'plan_ename'});
if ($in{'new'} || lc($plan->{'name'}) ne lc($in{'name'})) {
($clash) = grep { lc($_->{'name'}) eq lc($in{'name'}) }
&list_plans();
$clash && &error($text{'plan_eclash'});
}
$plan->{'name'} = $in{'name'};
# Save quota limits
if ($in{'quota_def'} == 1) {
$plan->{'quota'} = undef;
}
else {
$in{'quota'} =~ /^[0-9\.]+$/ || &error($text{'tmpl_equota'});
$plan->{'quota'} = "a_parse("quota", "home");
}
if ($in{'uquota_def'} == 1) {
$plan->{'uquota'} = undef;
}
else {
$in{'uquota'} =~ /^[0-9\.]+$/ || &error($text{'tmpl_euquota'});
$plan->{'uquota'} = "a_parse("uquota", "home");
}
# Save limits on various objects
foreach my $l (@plan_maxes) {
if ($in{$l."limit_def"}) {
$plan->{$l.'limit'} = undef;
}
elsif ($l eq "bw") {
$plan->{'bwlimit'} = &parse_bandwidth("bwlimit",
$text{'tmpl_e'.$l.'limit'}, 1);
}
else {
$in{$l.'limit'} =~ /^\d+$/ ||
&error($text{'tmpl_e'.$l.'limit'});
$plan->{$l.'limit'} = $in{$l.'limit'};
}
}
# Save no database name and no rename
foreach my $n (@plan_restrictions) {
$plan->{$n} = $in{$n};
}
# Save feature limits
if ($in{'featurelimits_def'} == 1) {
# Default
$plan->{'featurelimits'} = undef;
}
else {
# Explicitly selected
#$in{'featurelimits'} || &error($text{'tmpl_efeaturelimits'});
$plan->{'featurelimits'} =
join(" ", split(/\0/, $in{'featurelimits'})) || "none";
}
# Save capability limits
if ($in{'capabilities_def'} == 1) {
# Default
$plan->{'capabilities'} = undef;
}
else {
# Explicitly selected
$plan->{'capabilities'} =
join(" ", split(/\0/, $in{'capabilities'}));
}
# Save allowed scripts
if (defined(&list_scripts)) {
if ($in{'scripts_def'}) {
$plan->{'scripts'} = undef;
}
else {
$plan->{'scripts'} =
join(' ', split(/\r?\n/, $in{'scripts'}));
}
}
# Save resellers it is visible to
if (defined($in{'resellers_def'})) {
if ($in{'resellers_def'} == 1) {
$plan->{'resellers'} = undef;
}
elsif ($in{'resellers_def'} == 2) {
$plan->{'resellers'} = 'none';
}
else {
$plan->{'resellers'} =
join(' ', split(/\0/, $in{'resellers'}));
$plan->{'resellers'} ||
&error($text{'plan_eresellers'});
}
}
elsif ($canplans == 1 && $in{'new'}) {
# Reseller plans are granted to themselves only
$plan->{'resellers'} = $plan->{'owner'};
}
# Save the plan object
&save_plan($plan);
if (!$in{'new'} && $in{'apply'}) {
# Apply to all domains on the plan
&set_all_null_print();
foreach my $d (&get_domain_by("plan", $plan->{'id'})) {
next if ($d->{'parent'});
local $oldd = { %$d };
&set_limits_from_plan($d, $plan);
&set_featurelimits_from_plan($d, $plan);
&set_capabilities_from_plan($d, $plan);
foreach $f (&list_ordered_features($d)) {
&call_feature_func($f, $d, $oldd);
}
&save_domain($d);
}
&run_post_actions();
}
&webmin_log($in{'new'} ? 'create' : 'modify', 'plan',
$plan->{'id'}, $plan);
}
&redirect("edit_newplan.cgi");
|