| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/squid/ |
Upload File : |
#!/usr/bin/perl
# save_nuser.cgi
# Save, create or delete a proxy user
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %access, $squid_version, %config, $module_name);
require './squid-lib.pl';
if ($config{'crypt_conf'} == 1) {
eval "use Digest::MD5";
if ($@) {
&error(&text('eauth_nomd5', $module_name));
}
}
$access{'proxyauth'} || &error($text{'eauth_ecannot'});
&ReadParse();
my $conf = &get_config();
my $file = &get_auth_file($conf);
&lock_file($file);
my @users = &list_auth_users($file);
my $user = $users[$in{'index'}];
if ($in{'delete'}) {
&replace_file_line($file, $user->{'line'});
}
else {
&error_setup($text{'suser_ftsu'});
$in{'user'} =~ /^[^:\s]+$/ || &error($text{'suser_emsg1'});
my ($same) = grep { $_->{'user'} eq $in{'user'} } @users;
my $cmt = $in{'enabled'} ? "" : "#";
if ($in{'new'}) {
!$same || &error($text{'suser_etaken'});
my $pass = &encryptpwd($in{'pass'}, undef);
my $fh = "FILE";
&open_tempfile($fh, ">>$file");
&print_tempfile($fh, "$cmt$in{'user'}:$pass\n");
&close_tempfile($fh);
}
else {
!$same || $same->{'user'} eq $user->{'user'} ||
&error($text{'suser_etaken'});
my $pass = $in{'pass_def'} ? $user->{'pass'}
: &encryptpwd($in{'pass'}, undef);
&replace_file_line($file, $user->{'line'},
"$cmt$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_nauth.cgi");
sub encryptpwd {
my ($pass, $salt) = @_;
if ($config{'crypt_conf'}) {
my $pwd = $_[0];
my $encryptpwd = new MD5;
$encryptpwd->add($pwd);
$pwd = encode_base64($encryptpwd->hexdigest());
chomp($pwd);
$pwd = "\$$pwd\$";
return $pwd;
}
else {
$salt ||= substr(time(), -2);
my $pwd = &unix_crypt($pass, $salt);
return $pwd;
}
}