save_user.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_user.cgi
# Save, create or delete a proxy user

require './squid-lib.pl';
&ReadParse();
$conf = &get_config();
$file = &find_config("proxy_auth", $conf)->{'values'}->[0];
@users = &list_auth_users($file);

$user = $users[$in{'index'}];
if ($in{'delete'}) {
	&replace_file_line($file, $user->{'line'});
	}
else {
	$whatfailed = "Failed to save user";
	$in{'user'} =~ /^[^:\s]+$/ || &error("Invalid or missing username");
	$salt = substr(time(), -2);
	if ($in{'new'}) {
		open(FILE, ">>$file");
		print FILE $in{'user'},":",crypt($in{'pass'}, $salt),"\n";
		close(FILE);
		}
	else {
		$pass = $in{'pass_def'} ? $user->{'pass'}
					: crypt($in{'pass'}, $salt);
		&replace_file_line($file, $user->{'line'},
				   "$in{'user'}:$pass\n");
		}
	}
&redirect("edit_auth.cgi");