#!/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(&get_auth_file($conf)); %user = %{$users[$in{'index'}]}; } print "
\n"; &ui_print_footer("edit_nauth.cgi", $text{'euser_return'}, "", $text{'index_return'});