Function lua_do_action

modules/lua/sipapi.c:751–792

}

static int lua_do_action(lua_State *L, struct sip_msg* msg,
  struct action *act, const cmd_export_t *cmd, int *retval)
{
  void* cmdp[MAX_CMD_PARAMS];
  pv_value_t tmp_vals[MAX_CMD_PARAMS];
  int i;
  const struct cmd_param *param;
  gparam_p gp;

  if (fix_cmd(cmd->params, act->elem) < 0) {
    LM_ERR("Failed to fix command <%s>\n", cmd->name);
    return luaL_error(L, "failed to fix command");
  }

  if (get_cmd_fixups(msg, cmd->params, act->elem, cmdp, tmp_vals) < 0) {
    LM_ERR("Failed to get fixups for command <%s>\n", cmd->name);
    return luaL_error(L, "failed to get fixups for command");
  }

  *retval = cmd->function(msg,
    cmdp[0],cmdp[1],cmdp[2],
    cmdp[3],cmdp[4],cmdp[5],
    cmdp[6],cmdp[7]);

  for (param=cmd->params, i=1; param->flags; param++, i++) {
    gp = (gparam_p)act->elem[i].u.data;
    if (!gp)
      continue;

    if (param->free_fixup && param->free_fixup(&cmdp[i-1]) < 0) {
      LM_ERR("Failed to free fixup for param [%d]\n", i);
      return luaL_error(L, "failed to free fixups");
    }

    if (param->flags & CMD_PARAM_REGEX && gp->type != GPARAM_TYPE_PVS) {
      regfree((regex_t*)cmdp[i-1]);
      pkg_free(cmdp[i-1]);
    }
  }

  return 1;
}

static int l_siplua_moduleFunc(lua_State *L)
{