require 'htpasswd-file-lib.pl'; # acl_security_form(&options) # Output HTML for editing security options for the passwd module sub acl_security_form { print " $text{'acl_repeat'} \n"; printf " $text{'yes'}\n", $_[0]->{'repeat'} ? "checked" : ""; printf " $text{'no'}\n", $_[0]->{'repeat'} ? "" : "checked"; print "$text{'acl_create'} \n"; printf " $text{'yes'}\n", $_[0]->{'create'} ? "checked" : ""; printf " $text{'no'} \n", $_[0]->{'create'} ? "" : "checked"; print " $text{'acl_rename'} \n"; printf " $text{'yes'}\n", $_[0]->{'rename'} ? "checked" : ""; printf " $text{'no'}\n", $_[0]->{'rename'} ? "" : "checked"; print "$text{'acl_delete'} \n"; printf " $text{'yes'}\n", $_[0]->{'delete'} ? "checked" : ""; printf " $text{'no'} \n", $_[0]->{'delete'} ? "" : "checked"; print " $text{'acl_enable'} \n"; printf " $text{'yes'}\n", $_[0]->{'enable'} ? "checked" : ""; printf " $text{'no'}\n", $_[0]->{'enable'} ? "" : "checked"; print "$text{'acl_sync'} \n"; printf " $text{'yes'}\n", $_[0]->{'sync'} ? "checked" : ""; printf " $text{'no'} \n", $_[0]->{'sync'} ? "" : "checked"; print " $text{'acl_single'} \n"; printf " $text{'yes'}\n", $_[0]->{'single'} ? "checked" : ""; printf " $text{'no'}\n", $_[0]->{'single'} ? "" : "checked"; print "\n"; } # acl_security_save(&options) # Parse the form for security options for the bind8 module sub acl_security_save { $_[0]->{'repeat'} = $in{'repeat'}; $_[0]->{'create'} = $in{'create'}; $_[0]->{'rename'} = $in{'rename'}; $_[0]->{'delete'} = $in{'delete'}; $_[0]->{'enable'} = $in{'enable'}; $_[0]->{'sync'} = $in{'sync'}; $_[0]->{'single'} = $in{'single'}; }