pptp-server/acl_security.pl

   1
   2 require 'pptp-server-lib.pl';
   3 @acl_options = ("conf", "options", "secrets", "conns", "stop", "apply");
   4
   5 # acl_security_form(&options)
   6 # Output HTML for editing security options for the pptp-server module
   7 sub acl_security_form
   8 {
   9 foreach my $a (@acl_options) {
  10         print &ui_table_row($text{'acl_'.$a},
  11                 &ui_yesno_radio($a, $_[0]->{$a}));
  12         }
  13 }
  14
  15 # acl_security_save(&options)
  16 # Parse the form for security options for the pptp-server module
  17 sub acl_security_save
  18 {
  19 foreach my $a (@acl_options) {
  20         $_[0]->{$a} = $in{$a};
  21         }
  22 }