view release on metacpan or  search on metacpan

Login/Login.xs  view on Meta::CPAN

    sec_login_get_pwent(login_context, (sec_login_passwd_t *)&pwd, &status);

    iniHV;
    hv_store(hv, "name", 4, newSVpv(pwd->pw_name,0),0);
    hv_store(hv, "passwd", 6, newSVpv(pwd->pw_passwd,0),0);
    hv_store(hv, "gecos", 5, newSVpv(pwd->pw_gecos,0),0);    
    hv_store(hv, "dir", 3, newSVpv(pwd->pw_dir,0),0);
    hv_store(hv, "shell", 5, newSVpv(pwd->pw_shell,0),0);
    hv_store(hv, "uid", 3, newSViv(pwd->pw_uid),0);
    hv_store(hv, "gid", 3, newSViv(pwd->pw_gid),0);
    /*
#ifdef something...
    hv_store(hv, "class", 5, newSVpv(pwd->pw_class,0),0);
    hv_store(hv, "change", 6, newSViv(pwd->pw_change),0);
    hv_store(hv, "expire", 6, newSViv(pwd->pw_expire),0);
#endif
    */

    XPUSHs(newRV((SV*)hv)); 
    DCESTATUS;

login_base/login_base.xs  view on Meta::CPAN

	if (strEQ(name, "proxy_cred"))
#ifdef sec_login_proxy_cred
	    return sec_login_proxy_cred;
#else
	    goto not_there;
#endif
	break;
    case 'q':
	break;
    case 'r':
	if (strEQ(name, "remote_gid"))
#ifdef sec_login_remote_gid
	    return sec_login_remote_gid;
#else
	    goto not_there;
#endif
	if (strEQ(name, "remote_uid"))
#ifdef sec_login_remote_uid
	    return sec_login_remote_uid;
#else
	    goto not_there;
#endif
	break;