#!/usr/local/bin/perl # http_access.cgi # A form for editing or creating a proxy 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{'ahttp_header'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'ahttp_header1'}, "", undef, 0, 0, 0, &restart_button()); @http = @{$conf->[$in{'index'}]->{'values'}}; } print "
\n"; &ui_print_footer("edit_acl.cgi?mode=http", $text{'ahttp_return'}, "", $text{'index_return'});