mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
30 lines
687 B
Perl
Executable File
30 lines
687 B
Perl
Executable File
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
require 'time-lib.pl';
|
|
our (%text);
|
|
|
|
sub acl_security_form
|
|
{
|
|
my ($o) = @_;
|
|
print &ui_table_row($text{'acl_sys'},
|
|
&ui_yesno_radio("sysdate", $o->{'sysdate'}, 0, 1));
|
|
print &ui_table_row($text{'acl_hw'},
|
|
&ui_yesno_radio("hwdate", $o->{'hwdate'}, 0, 1));
|
|
print &ui_table_row($text{'acl_timezone'},
|
|
&ui_yesno_radio("timezone", $o->{'timezone'}));
|
|
print &ui_table_row($text{'acl_ntp'},
|
|
&ui_yesno_radio("ntp", $o->{'ntp'}));
|
|
}
|
|
|
|
sub acl_security_save
|
|
{
|
|
my ($o, $in) = @_;
|
|
$o->{'sysdate'} = $in->{'sysdate'};
|
|
$o->{'hwdate'} = $in->{'hwdate'};
|
|
$o->{'timezone'} = $in->{'timezone'};
|
|
$o->{'ntp'} = $in->{'ntp'};
|
|
}
|