diff --git a/squid/edit_auth.cgi b/squid/edit_auth.cgi deleted file mode 100755 index adb0adc23..000000000 --- a/squid/edit_auth.cgi +++ /dev/null @@ -1,66 +0,0 @@ -#!/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'}); - diff --git a/squid/edit_user.cgi b/squid/edit_user.cgi deleted file mode 100755 index 74ac089ee..000000000 --- a/squid/edit_user.cgi +++ /dev/null @@ -1,50 +0,0 @@ -#!/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'}); - diff --git a/squid/index.cgi b/squid/index.cgi index 52425257c..075b8a7ec 100755 --- a/squid/index.cgi +++ b/squid/index.cgi @@ -98,14 +98,13 @@ else { undef, undef, &text('index_version', $squid_version)); } +# Check if authentication is setup my $auth; -if ($squid_version < 2) { - $auth = 1; - } -else { +if ($squid_version >= 2) { my $file = &get_auth_file($conf); - $auth = 2 if ($file); + $auth = 1 if ($file); } + my $calamaris = &has_command($config{'calamaris'}); my $delay = $squid_version >= 2.3; my $authparam = $squid_version >= 2; @@ -126,8 +125,7 @@ my @otitles = ( 'portsnets', 'othercaches', 'musage', 'logging', my @olinks = ( "edit_ports.cgi", "edit_icp.cgi", "edit_mem.cgi", "edit_logs.cgi", "edit_cache.cgi", "edit_progs.cgi", "edit_acl.cgi", "edit_admin.cgi", - ( $auth == 1 ? ( "edit_auth.cgi" ) : - $auth == 2 ? ( "edit_nauth.cgi" ) : ( ) ), + ( $auth ? ( "edit_nauth.cgi" ) : ( ) ), ( $authparam ? ( "edit_authparam.cgi" ) : ( ) ), ( $delay ? ( 'edit_delay.cgi' ) : ( ) ), ( $headeracc ? ( 'list_headeracc.cgi' ) : ( ) ), diff --git a/squid/save_user.cgi b/squid/save_user.cgi deleted file mode 100755 index 198624477..000000000 --- a/squid/save_user.cgi +++ /dev/null @@ -1,41 +0,0 @@ -#!/usr/local/bin/perl -# save_user.cgi -# Save, create or delete a proxy user - -require './squid-lib.pl'; -$access{'proxyauth'} || &error($text{'eauth_ecannot'}); -&ReadParse(); -$conf = &get_config(); -$file = &find_config("proxy_auth", $conf)->{'values'}->[0]; -&lock_file($file); -@users = &list_auth_users($file); - -$user = $users[$in{'index'}]; -if ($in{'delete'}) { - &replace_file_line($file, $user->{'line'}); - } -else { - $whatfailed = $text{'suser_ftsu'}; - $in{'user'} =~ /^[^:\s]+$/ || &error($text{'suser_emsg1'}); - $salt = substr(time(), -2); - local ($same) = grep { $_->{'user'} eq $in{'user'} } @users; - if ($in{'new'}) { - !$same || &error($text{'suser_etaken'}); - &open_tempfile(FILE, ">>$file"); - &print_tempfile(FILE, $in{'user'},":",&unix_crypt($in{'pass'}, $salt),"\n"); - &close_tempfile(FILE); - } - else { - !$same || $same->{'user'} eq $user->{'user'} || - &error($text{'suser_etaken'}); - $pass = $in{'pass_def'} ? $user->{'pass'} - : &unix_crypt($in{'pass'}, $salt); - &replace_file_line($file, $user->{'line'}, - "$in{'user'}:$pass\n"); - } - } -&unlock_file($file); -&webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'modify', - 'user', $in{'user'} ? $in{'user'} : $user->{'user'}); -&redirect("edit_auth.cgi"); -