########################################################################
# Method:       add_principal
# Use:          adds a principal
# Note:         assumes that &tc has already cleared this operation
# Created:      07/28/1998 MLN
########################################################################

sub add_principal
{

        local($principal) = $in{"principal"};
        local($passwd) = $in{"passwd"};
        local($epasswd) = $in{"epasswd"};

	# we prefer the encrypted passwd over plaintext passwd, but will 
	# encrypt the plain one if thats all we have
	# if we have neither, a null passwd goes in

	if ($epasswd) {
		$use = $epasswd;
	} elsif ($passwd) {
		$use = crypt($passwd,"salt");
	} else {
		$use = "";
	}

        open (P,">>$principal_file");
        print P "$principal:$use\n";
        close (P);

        &http_header("text/plain");
        print "add_principal: principal $principal added\n";

        &log("add_principal", "OK","principal $principal added");

}

1;