view release on metacpan or  search on metacpan

NISplusTied.xs  view on Meta::CPAN

# /*#############################################################*/

MODULE = Net::NISplusTied		PACKAGE = Net::NISplusTied		

# /***************************************************************/

void
nismatch (query, table)
	char* query
	char* table
	PPCODE:

        nis_result *en, *tb;
        nis_object *noTable, *noEntry;
	int i, j;
	HV *hash; AV *array;

	en = nis_list (query, EXPAND_NAME, 0, 0);
	tb = nis_lookup (table, EXPAND_NAME);

	if (! en) croak ("+++ ""nis_list"" failed in nismatch (en)");

NISplusTied.xs  view on Meta::CPAN

	nis_freeresult (en);
	nis_freeresult (tb);

# /*****************************************************************/

void
nismodify (query, table, values)
	char* query
	char* table
	SV* values
	PPCODE:

	nis_result *en, *tb, *rc;
	nis_object *noTable, *noEntry;
	SV *i, *j;  SV** iSV;

	en = nis_list (query, EXPAND_NAME, 0, 0);
	tb = nis_lookup (table, EXPAND_NAME);

	if (! en) croak ("+++ nis_list returned NULL in en");
	if (! tb) croak ("+++ nis_list returned NULL in tb");

NISplusTied.xs  view on Meta::CPAN

	}

	nis_freeresult (tb);
	nis_freeresult (en);

# /*****************************************************************/

void
nisremove (q)
	char* q
	PPCODE:

	nis_result *rc;

	rc = nis_remove_entry (q, NULL, REM_MULTIPLE || EXPAND_NAME);

	if (! rc)
		croak ("+++ nis_remove returned NULL in rc");

	XPUSHs (sv_2mortal (newSVpv (nis_sperrno (rc -> status), 0)));