#!/usr/local/bin/perl # A form for editing or creating a header access control rule require './squid-lib.pl'; $access{'headeracc'} || &error($text{'header_ecannot'}); &ReadParse(); $conf = &get_config(); if (!defined($in{'index'})) { &ui_print_header(undef, $text{'header_create_'.$in{'type'}} || $text{'header_create'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'header_edit_'.$in{'type'}} || $text{'header_edit'}, "", undef, 0, 0, 0, &restart_button()); @v = @{$conf->[$in{'index'}]->{'values'}}; } print "
\n"; &ui_print_footer("list_headeracc.cgi", $text{'header_return'}, "", $text{'index_return'});