#!/usr/local/bin/perl # edit_ext.cgi # Display a form for creating or editing an external ACL type require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); &ReadParse(); $conf = &get_config(); if ($in{'new'}) { &ui_print_header(undef, $text{'ext_title1'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'ext_title2'}, "", undef, 0, 0, 0, &restart_button()); $ext = $conf->[$in{'index'}]; $ea = &parse_external($ext); } print "
\n"; &ui_print_footer("edit_acl.cgi?mode=external", $text{'acl_return'});