#!/usr/local/bin/perl # icp_access.cgi # A form for editing or creating an ICP access restriction require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); &ReadParse(); $conf = &get_config(); if (!defined($in{'index'})) { &ui_print_header(undef, $text{'aicp_header'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'aicp_header1'}, "", undef, 0, 0, 0, &restart_button()); @icp = @{$conf->[$in{'index'}]->{'values'}}; } print "
\n"; &ui_print_footer("edit_acl.cgi?mode=icp", $text{'aicp_return'}, "", $text{'index_return'});