#!/usr/local/bin/perl # edit_user.cgi # A form for adding or editing a squid user require './squid-lib.pl'; $access{'proxyauth'} || &error($text{'eauth_ecannot'}); &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'euser_header'}, ""); } else { &ui_print_header(undef, $text{'euser_header1'}, ""); $conf = &get_config(); @users = &list_auth_users( &find_config("proxy_auth", $conf)->{'values'}->[0]); %user = %{$users[$in{'index'}]}; } print "
\n"; &ui_print_footer("edit_auth.cgi", $text{'euser_return'}, "", $text{'index_return'});