#include "php.h"
#include "php_session.h"
#include "mod_user.h"
ps_module ps_mod_user = {
PS_MOD_SID(user)
};
#define SESS_ZVAL_LONG(val, a) \
{ \
MAKE_STD_ZVAL(a); \
ZVAL_LONG(a, val); \
}
#define SESS_ZVAL_STRING(vl, a) \
{ \
char *__vl = vl; \
SESS_ZVAL_STRINGN(__vl, strlen(__vl), a); \
}
#define SESS_ZVAL_STRINGN(vl, ln, a) \
{ \
MAKE_STD_ZVAL(a); \
ZVAL_STRINGL(a, vl, ln, 1); \
}
static zval *ps_call_handler(zval *func, int argc, zval **argv TSRMLS_DC)
{
int i;
zval *retval = NULL;
MAKE_STD_ZVAL(retval);
if (call_user_function(EG(function_table), NULL, func, retval, argc, argv TSRMLS_CC) == FAILURE) {
zval_ptr_dtor(&retval);
retval = NULL;
}
for (i = 0; i < argc; i++) {
zval_ptr_dtor(&argv[i]);
}
return retval;
}
#define STDVARS \
zval *retval = NULL; \
int ret = FAILURE
#define PSF(a) PS(mod_user_names).name.ps_##a
#define FINISH \
if (retval) { \
convert_to_long(retval); \
ret = Z_LVAL_P(retval); \
zval_ptr_dtor(&retval); \
} \
return ret
PS_OPEN_FUNC(user)
{
zval *args[2];
STDVARS;
if (PSF(open) == NULL) {
php_error_docref(NULL TSRMLS_CC, E_WARNING,
"user session functions not defined");
return FAILURE;
}
SESS_ZVAL_STRING((char*)save_path, args[0]);
SESS_ZVAL_STRING((char*)session_name, args[1]);
retval = ps_call_handler(PSF(open), 2, args TSRMLS_CC);
PS(mod_user_implemented) = 1;
FINISH;
}
PS_CLOSE_FUNC(user)
{
zend_bool bailout = 0;
STDVARS;
if (!PS(mod_user_implemented)) {
return SUCCESS;
}
zend_try {
retval = ps_call_handler(PSF(close), 0, NULL TSRMLS_CC);
} zend_catch {
bailout = 1;
} zend_end_try();
PS(mod_user_implemented) = 0;
if (bailout) {
if (retval) {
zval_ptr_dtor(&retval);
}
zend_bailout();
}
FINISH;
}
PS_READ_FUNC(user)
{
zval *args[1];
STDVARS;
SESS_ZVAL_STRING((char*)key, args[0]);
retval = ps_call_handler(PSF(read), 1, args TSRMLS_CC);
if (retval) {
if (Z_TYPE_P(retval) == IS_STRING) {
*val = estrndup(Z_STRVAL_P(retval), Z_STRLEN_P(retval));
*vallen = Z_STRLEN_P(retval);
ret = SUCCESS;
}
zval_ptr_dtor(&retval);
}
return ret;
}
PS_WRITE_FUNC(user)
{
zval *args[2];
STDVARS;
SESS_ZVAL_STRING((char*)key, args[0]);
SESS_ZVAL_STRINGN((char*)val, vallen, args[1]);
retval = ps_call_handler(PSF(write), 2, args TSRMLS_CC);
FINISH;
}
PS_DESTROY_FUNC(user)
{
zval *args[1];
STDVARS;
SESS_ZVAL_STRING((char*)key, args[0]);
retval = ps_call_handler(PSF(destroy), 1, args TSRMLS_CC);
FINISH;
}
PS_GC_FUNC(user)
{
zval *args[1];
STDVARS;
SESS_ZVAL_LONG(maxlifetime, args[0]);
retval = ps_call_handler(PSF(gc), 1, args TSRMLS_CC);
FINISH;
}
PS_CREATE_SID_FUNC(user)
{
if (PSF(create_sid) != NULL) {
char *id = NULL;
zval *retval = NULL;
retval = ps_call_handler(PSF(create_sid), 0, NULL TSRMLS_CC);
if (retval) {
if (Z_TYPE_P(retval) == IS_STRING) {
id = estrndup(Z_STRVAL_P(retval), Z_STRLEN_P(retval));
}
zval_ptr_dtor(&retval);
}
else {
php_error_docref(NULL TSRMLS_CC, E_ERROR, "No session id returned by function");
return NULL;
}
if (!id) {
php_error_docref(NULL TSRMLS_CC, E_ERROR, "Session id must be a string");
return NULL;
}
return id;
}
return php_session_create_id(mod_data, newlen TSRMLS_CC);
}