[- use strict; use Proxmox::Form; use Proxmox::Utils; use Proxmox::Config::System; use Proxmox::ConfigServer; -] [- my $out = ""; $fdat{Date} = `date +"%A, %F"`; $fdat{Time} = `date +"%T"`; my $frm = Proxmox::Form->new (\%fdat); my $system_cfg = $fdat{__system_config}; my $cctime = $system_cfg->can_change_time (); my @timezone = sort $system_cfg->zoneinfo(); $frm->add_element("Date", "rotext", "", __("Date")); $frm->add_element("Time", "rotime", "", __("Time")); $frm->add_element("ntp_sec", "section", undef, __("NTP Server")); if ($cctime) { $frm->add_cfg_element('time', "ntpserver", "text", $fdat{ntpserver}, __("NTP Server")); } $frm->add_cfg_element('time', "timezone", "dropdown", $fdat{timezone}, __("Timezone"), \@timezone); $frm->add_element("m3","hidden"); if ($frm->submit==0) { $frm->load_cfg ($system_cfg); } else { if ($udat{AM} eq 'w') { $frm->save_cfg ($system_cfg); my $conn = Proxmox::ConfigClient::connect (); $conn->rewrite_config_time (); $conn->service_cmd ('ntpd', 'restart') if $cctime; # reload page to update time/date display my $url = $req_rec->uri; #$out .= "TEST "; } else { $udat{popup_error} = Proxmox::Utils::msg ('nowr'); } } $out .= $frm->out_form; print OUT $out; -]