#!/usr/local/bin/perl # Show access control options require './frox-lib.pl'; &ui_print_header(undef, $text{'acl_title'}, ""); $conf = &get_config(); print &ui_form_start("save_acl.cgi", "post"); print &ui_table_start($text{'acl_header'}, "width=100%", 4); print &config_opt_textbox($conf, "Timeout", 5); print &config_opt_textbox($conf, "MaxForks", 5); print &config_opt_textbox($conf, "MaxForksPerHost", 5); print &config_opt_textbox($conf, "MaxTransferRate", 5, 1, $text{'acl_bps'}); print &config_yesno($conf, "DoNTP", undef, undef, "no"); print &ui_table_row("", ""); print &config_opt_textbox($conf, "NTPAddress", 30, 3, $text{'acl_same'}); print &ui_table_hr(); @acl = &find("ACL", $conf); $table = "
$text{'acl_action'} | ". "$text{'acl_src'} | ". "$text{'acl_dest'} | ". "$text{'acl_ports'} | ". "
".&ui_select("action_$i", $a->{'words'}->[0], [ [ "", " " ], [ "Allow", $text{'acl_allow'} ], [ "Deny", $text{'acl_deny'} ] ]). " | \n"; $table .= "".&ui_opt_textbox("src_$i", $a->{'words'}->[1] eq "*" ? "" : $a->{'words'}->[1], 20, $text{'acl_any'})." | \n"; $table .= "".&ui_opt_textbox("dest_$i", $a->{'words'}->[3] eq "*" ? "" : $a->{'words'}->[3], 20, $text{'acl_any'})." | \n"; $table .= "".&ui_opt_textbox("ports_$i", $a->{'words'}->[4] eq "*" ? "" : $a->{'words'}->[4], 10, $text{'acl_any'})." | \n"; $table .= "