time/acl_security.pl

   1
   2 require 'time-lib.pl';
   3
   4 sub acl_security_form
   5 {
   6     print(
   7         "<tr>",
   8             "<td><b>", $text{ 'acl_sys' }, "</b></td>",
   9             "<td><input type=radio name=sysdate value=0 ", $_[0] -> { 'sysdate' } == 0 ? "checked" : "", ">", $text{ 'acl_yes' }, " <input type=radio name=sysdate value=1 ", $_[0] -> { 'sysdate' } == 1 ? "checked" : "", ">", $text{ 'acl_no' },
  10         "</tr><tr>",
  11             "<td><b>", $text{ 'acl_hw' }, "</b></td>",
  12             "<td><input type=radio name=hwdate value=0 ", $_[0] -> { 'hwdate' } == 0 ? "checked" : "", ">", $text{ 'acl_yes' }, " <input type=radio name=hwdate value=1 ", $_[0] -> { 'hwdate' } == 1 ? "checked" : "", ">", $text{ 'acl_no' },
  13         "</tr><tr>",
  14             "<td><b>", $text{ 'acl_timezone' }, "</b></td>",
  15             "<td><input type=radio name=timezone value=1 ", $_[0] -> { 'timezone' } == 1 ? "checked" : "", ">", $text{ 'acl_yes' }, " <input type=radio name=timezone value=0 ", $_[0] -> { 'timezone' } == 0 ? "checked" : "", ">", $text{ 'acl_no' },
  16         "</tr><tr>",
  17             "<td><b>", $text{ 'acl_ntp' }, "</b></td>",
  18             "<td><input type=radio name=ntp value=1 ", $_[0] -> { 'ntp' } == 1 ? "checked" : "", ">", $text{ 'acl_yes' }, " <input type=radio name=ntp value=0 ", $_[0] -> { 'ntp' } == 0 ? "checked" : "", ">", $text{ 'acl_no' },
  19         "</tr>\n");
  20 }
  21
  22 sub acl_security_save
  23 {
  24     $_[0] -> { 'sysdate' } = $in{ 'sysdate' };
  25     $_[0] -> { 'hwdate' } = $in{ 'hwdate' };
  26     $_[0] -> { 'timezone' } = $in{ 'timezone' };
  27     $_[0] -> { 'ntp' } = $in{ 'ntp' };
  28 }