[! use strict; use PVE::pvecfg; use PVE::I18N; use PVE::ConfigServer; use PVE::HTMLTable; use PVE::Config; use PVE::Cluster; use PVE::HTMLForm; use PVE::HTMLUtils; use PVE::HTMLGrid; !] [- use strict; my $out = ''; my $form = PVE::HTMLForm->new (\%fdat); my $html; my $cinfo = $fdat{__cinfo}; my $veid = $fdat{veid}; my $cid = $fdat{cid}; if ($form->action eq 'save') { eval { check_write_mode ($udat{AM}); my $conn = PVE::ConfigClient::connect ($udat{auth_cookie}); my $settings = {}; if ($fdat{quota}) { $settings->{quotatime} = $fdat{grace}; $settings->{quotaugidlimit} = $fdat{maxugids}; } else { $settings->{quotatime} = 0; $settings->{quotaugidlimit} = 0; } $settings->{cpuunits} = $fdat{cpuunits}; check_range (__("CPU Units"), $fdat{cpuunits}, 8, 500000); $conn->vmconfig_set ($cid, $veid, 'openvz', $settings)->result; }; $udat{popup_error} = $@ if $@; } my $vminfo = PVE::Cluster::load_vmconfig ($cinfo, $cid, $veid, 'openvz', $udat{auth_cookie}); my $status = $vminfo->{vzlist}->{"VEID_$veid"}->{status}; my $vmconf = $vminfo->{config}; my $ni = $vminfo->{ni}; my $cpuunits = defined ($fdat{cpuunits}) ? $fdat{cpuunits} : $vmconf->{cpuunits}->{value} || 1000; my $quota = defined ($fdat{quota}) ? $fdat{quota} : int ($vmconf->{quotaugidlimit}->{value}) > 0; my $maxugids = defined ($fdat{maxugids}) ? $fdat{maxugids} : $vmconf->{quotaugidlimit}->{value} || 500; my $grace = defined ($fdat{grace}) ? $fdat{grace} : $vmconf->{quotatime}->{value} || 0; my $grid = PVE::HTMLGrid->new ('fw1', 'fw2'); $grid->add_row (__("CPU Units") . ':', $form->create_element ('cpuunits', 'number', $cpuunits)); $grid->add_row (__("Enable User Quotas") . ':', $form->create_element ('quota', 'dynamicbool', $quota)); if ($quota) { $grid->add_row (__("Maximum user/group IDs") . ':', $form->create_element ('maxugids', 'number', $maxugids)); $grid->add_row (__("Grace period (seconds)") . ':', $form->create_element ('grace', 'number', $grace)); } my $html = $grid->html(); $html .= '
'; $html .= $form->create_cmdbutton ('save'); $out .= $form->create_header(); $out .= PVE::HTMLUtils::create_statusframe (undef, __("Options"), undef, $html); $out .= $form->create_footer(); print OUT $out; -]