[- use strict; use PVE::I18N; use PVE::HTMLForm; use PVE::Config; use PVE::ConfigServer; use PVE::HTMLUtils; -] [- use strict; sub html_table_line { my ($v1, $v2, $v3, $v4) = @_; $v1 = " " if !$v1; $v2 = " " if !$v2; $v3 = " " if !$v3; $v4 = " " if !$v4; my $html = ''; $html .= "$v1$v2"; $html .= "$v3$v4\n"; return $html; } my $out = ''; my $form = PVE::HTMLForm->new (\%fdat); my $conn = PVE::ConfigClient::connect (); 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; my $html = ""; $html .= html_table_line (__("Date") . ':' , PVE::HTMLForm::viewonly_element ($date), __("Time") . ':' , $form->create_element ("Time", "rotime")); $html .= html_table_line (__("Timezone") . ':' , $form->create_element ("timezone", "dropdown", $tz, \@timezone)); #$form->add_cfg_element('time', "ntpserver", "text", $fdat{ntpserver}, __("NTP Server")); #$form->add_cfg_element('time', "timezone", "dropdown", $fdat{timezone}, __("Timezone"), \@timezone); $html .= "

"; $html .= $form->create_cmdbutton ('save'); $out .= PVE::HTMLUtils::create_statusframe (undef, "NTP Server settings", undef, $html); $out .= $form->create_footer(); print OUT $out; -]