[-
use strict;
use PVE::I18N;
use PVE::HTMLForm;
use PVE::Config;
use PVE::ConfigServer;
use PVE::HTMLUtils;
use PVE::HTMLGrid;
-]
[-
use strict;
my $out = '';
my $form = PVE::HTMLForm->new (\%fdat);
my $grid = PVE::HTMLGrid->new ('fw1', 'fw2', 'fw3:right', 'fw4');
my $conn = PVE::ConfigClient::connect ($udat{auth_cookie});
if ($form->action eq 'save') {
eval {
check_write_mode ($udat{AM});
$conn->set_config_data ('timezone', $fdat{timezone});
};
$udat{popup_error} = $@ if $@;
}
my $date = `date +"%A, %F"`;
$fdat{Time} = `date +"%T"`;
$out .= $form->create_header();
my @timezone = PVE::Config::zoneinfo();
my $tz = $conn->get_config_data ('timezone')->result;
$grid->add_row (__("Date") . ':' , $form->create_element(undef, 'viewonly', $date),
__("Time") . ':' , $form->create_element("Time", "rotime"));
$grid->add_row (__("Timezone") . ':' ,
$form->create_element ("timezone", "dropdown", $tz, \@timezone));
my $html = $grid->html();
$html .= $form->create_cmdbutton ('save');
$out .= PVE::HTMLUtils::create_statusframe (undef, __("NTP Server settings"), undef, $html);
$out .= $form->create_footer();
print OUT $out;
-]