squid/save_nuser.cgi

   1 #!/usr/local/bin/perl
   2 # save_nuser.cgi
   3 # Save, create or delete a proxy user
   4
   5 require './squid-lib.pl';
   6 if ($config{'crypt_conf'} == 1) {
   7         eval "use MD5";
   8         if ($@) {
   9                 &error(&text('eauth_nomd5', $module_name));
  10                 }
  11         }
  12
  13 $access{'proxyauth'} || &error($text{'eauth_ecannot'});
  14 &ReadParse();
  15 $conf = &get_config();
  16 $file = &get_auth_file($conf);
  17 &lock_file($file);
  18 @users = &list_auth_users($file);
  19
  20 $user = $users[$in{'index'}];
  21 if ($in{'delete'}) {
  22         &replace_file_line($file, $user->{'line'});
  23         }
  24 else {
  25         $whatfailed = $text{'suser_ftsu'};
  26         $in{'user'} =~ /^[^:\s]+$/ || &error($text{'suser_emsg1'});
  27         local ($same) = grep { $_->{'user'} eq $in{'user'} } @users;
  28         local $cmt = $in{'enabled'} ? "" : "#";
  29         if ($in{'new'}) {
  30                 !$same || &error($text{'suser_etaken'});
  31                 $pass = &encryptpwd($in{'pass'}, $salt);
  32                 &open_tempfile(FILE,">>$file");
  33                 &print_tempfile(FILE, "$cmt$in{'user'}:$pass\n");
  34                 &close_tempfile(FILE);
  35                 }
  36         else {
  37                 !$same || $same->{'user'} eq $user->{'user'} ||
  38                          &error($text{'suser_etaken'});
  39                 $pass = $in{'pass_def'} ? $user->{'pass'}
  40                                         : &encryptpwd($in{'pass'}, $salt);
  41                 &replace_file_line($file, $user->{'line'},
  42                                    "$cmt$in{'user'}:$pass\n");
  43                 }
  44         }
  45 &unlock_file($file);
  46 &webmin_log($in{'delete'} ? 'delete' : $in{'new'} ? 'create' : 'modify',
  47             'user', $in{'user'} ? $in{'user'} : $user->{'user'});
  48 &redirect("edit_nauth.cgi");
  49
  50 sub encryptpwd {
  51   if ($config{'crypt_conf'}) {
  52     my $pwd = $_[0];
  53     my $encryptpwd = new MD5;
  54     $encryptpwd->add($pwd);
  55     $pwd = encode_base64($encryptpwd->hexdigest());
  56     chomp($pwd);
  57     $pwd = "\$$pwd\$";
  58     return $pwd;
  59     }
  60     else {
  61       $salt = substr(time(), -2);
  62       my $pwd = &unix_crypt($_[0], $_[1]);
  63       return $pwd;
  64       }
  65   }