#!/usr/local/bin/perl # always.cgi # A form for editing or creating http_access directives require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); &ReadParse(); $conf = &get_config(); if (!defined($in{'index'})) { &ui_print_header(undef, $text{'always_create'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'always_edit'}, "", undef, 0, 0, 0, &restart_button()); @always = @{$conf->[$in{'index'}]->{'values'}}; } print "
\n"; &ui_print_footer("edit_acl.cgi", $text{'ahttp_return'});