#!/usr/local/bin/perl # edit_auth.cgi # Display authentication options and list of proxy users require './squid-lib.pl'; $access{'proxyauth'} || &error($text{'eauth_ecannot'}); &ui_print_header(undef, $text{'eauth_header'}, "", undef, 0, 0, 0, &restart_button()); $conf = &get_config(); print "
\n"; if ($authfile) { print &ui_hr(); print $text{'eauth_msgaccess'}; print "\n\n";
@users = &list_auth_users($authfile);
if (@users) {
print "$text{'eauth_addpuser'}
\n";
print "
$text{'eauth_pusers'} | ||
|
\n"; } print "$text{'eauth_addpuser'}
\n"; } &ui_print_footer("", $text{'eauth_return'});