#!/usr/local/bin/perl # pool_access.cgi # A form for editing or creating delay pool ACL require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); &ReadParse(); $conf = &get_config(); if (!defined($in{'index'})) { &ui_print_header(undef, $text{'apool_header'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'apool_header1'}, "", undef, 0, 0, 0, &restart_button()); @delay = @{$conf->[$in{'index'}]->{'values'}}; } print "
\n"; &ui_print_footer("edit_pool.cgi?idx=$in{'idx'}", $text{'pool_return'}, "", $text{'index_return'});