view release on metacpan or  search on metacpan

Open62541.xs  view on Meta::CPAN

#ifdef HAVE_CRYPT_CHECKPASS

SV *
UA_ServerConfig_AccessControl_CryptNewhash(config, password, \
    pref = &PL_sv_undef)
	OPCUA_Open62541_ServerConfig	config
	SV *				password
	SV *				pref
    PREINIT:
	const char *passstr;
	const char *prefstr = NULL;
	char hash[_PASSWORD_LEN + 1];
    CODE:
	(void)config;
	if (!SvOK(password))
		CROAK("Undef password");
	passstr = SvPV_nolen(password);
	if (SvOK(pref))
		prefstr = SvPV_nolen(pref);
	if (crypt_newhash(passstr, prefstr, hash, _PASSWORD_LEN) != 0)
		CROAKE("crypt_newhash");
	RETVAL = newSVpv(hash, 0);
    OUTPUT:
	RETVAL

#endif /* HAVE_CRYPT_CHECKPASS */

#ifdef HAVE_UA_SERVERCONFIG_CUSTOMHOSTNAME

SV *