SecurID-ACEdb

 view release on metacpan or  search on metacpan

ACEdb.xs  view on Meta::CPAN

	  if (strlen(tokenSerialNumber) > 12) tokenSerialNumber[12] = 0;
	  strcpy(sn+12-strlen(tokenSerialNumber), tokenSerialNumber);
	  RETVAL = Sd_EnableToken(sn, messageBuf, MAX_RESULT_MSG_SIZE) == API_OK;
	}
	OUTPUT:
	RETVAL

SV *
Sd_ListTokens()

     PPCODE:
	{
	  if (Sd_ListTokens(messageBuf, MAX_RESULT_MSG_SIZE) == API_OK) {
	    while (strcmp(messageBuf, "Done") != 0) {
	      EXTEND(sp, 1);
	      PUSHs(sv_2mortal(newSVpv(messageBuf, 0)));
	      if (Sd_ListTokens(messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
		strcpy(messageBuf, "Done");
	      }
	    }
	  }

ACEdb.xs  view on Meta::CPAN

	  RETVAL = Sd_DelLoginFromGroup(login, groupName,
					messageBuf, MAX_RESULT_MSG_SIZE) == API_OK;
	}
	OUTPUT:
	RETVAL

SV *
Sd__ListGroupMembership(tokenSerialNumber)
     char * tokenSerialNumber

	PPCODE:
	{
	  char sn[13] = "000000000000";
	  if (strlen(tokenSerialNumber) > 12) tokenSerialNumber[12] = 0;
	  strcpy(sn+12-strlen(tokenSerialNumber), tokenSerialNumber);
	  if (Sd_ListGroupMembership(sn, messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));

ACEdb.xs  view on Meta::CPAN

	      PUSHs(sv_2mortal(newSVpv(messageBuf, 0)));
	      if (Sd_ListGroupMembership(sn, messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
		strcpy(messageBuf, "Done");
	      }
	    }
	  }
	}

SV *
Sd__ListGroups()
	PPCODE:
	{
	  if (Sd_ListGroups(messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));
	    while (strcmp(messageBuf, "Done") != 0) {
	      EXTEND(sp, 1);
	      PUSHs(sv_2mortal(newSVpv(messageBuf, 0)));

ACEdb.xs  view on Meta::CPAN

	  RETVAL = Sd_DelLoginFromClient(login, clientName, 
					 messageBuf, MAX_RESULT_MSG_SIZE) == API_OK;
	}
	OUTPUT:
	RETVAL

SV *
Sd__ListClientActivations(tokenSerialNumber)
     char * tokenSerialNumber;

	PPCODE:
	{
	  char sn[13] = "000000000000";
	  if (strlen(tokenSerialNumber) > 12) tokenSerialNumber[12] = 0;
	  strcpy(sn+12-strlen(tokenSerialNumber), tokenSerialNumber);
	  if (Sd_ListClientActivations(sn, messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));

ACEdb.xs  view on Meta::CPAN

		strcpy(messageBuf, "Done");
	      }
	    }
	  }
	}

SV *
Sd__ListClientsForGroup(group)
     char *group;

	PPCODE:
	{
	  if (Sd_ListClientsForGroup(group, messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));
	    while (strcmp(messageBuf, "Done") != 0) {
	      EXTEND(sp, 1);
	      PUSHs(sv_2mortal(newSVpv(messageBuf, 0)));
	      if (Sd_ListClientsForGroup(group, messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
		strcpy(messageBuf, "Done");
	      }
	    }
	  }
	}

SV *
Sd__ListClients()
	PPCODE:
	{
	  if (Sd_ListClients(messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));
	    while (strcmp(messageBuf, "Done") != 0) {
	      EXTEND(sp, 1);
	      PUSHs(sv_2mortal(newSVpv(messageBuf, 0)));

ACEdb.xs  view on Meta::CPAN

	}
	OUTPUT:
	RETVAL

SV *
Sd__ListHistory(days, tokenSerialNumber, filterOpt)
     char * days;
     char * tokenSerialNumber;
     char * filterOpt;

     PPCODE:
	{
	  char sn[13] = "000000000000";
	  if (strcmp(tokenSerialNumber, "help") == 0) {
	    strcpy(sn, "help");
	  } else {
	    if (strlen(tokenSerialNumber) > 12) tokenSerialNumber[12] = 0;
	    strcpy(sn+12-strlen(tokenSerialNumber), tokenSerialNumber);
	  } 
	  if (Sd_ListHistory(days, sn, "", filterOpt, 
			     messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {

ACEdb.xs  view on Meta::CPAN

	      }
	    }
	  }
	}

SV *
Sd__MonitorHistory(outfile, dashC)
     char *outfile;
     char *dashC;

     PPCODE:
	{
	  if (Sd_MonitorHistory(outfile, dashC,
			     messageBuf, MAX_RESULT_MSG_SIZE) != API_OK) {
	    EXTEND(sp, 1);
	    PUSHs(&sv_undef);
	  } else {
	    EXTEND(sp, 1);
	    PUSHs(sv_2mortal(newSViv(1)));
	    while (strcmp(messageBuf, "Done") != 0) {
	      EXTEND(sp, 1);