xoonips/AL/xnpal.cc

/*
        VPAL: Visiome Platform Abstract Layer
        
        zend_parse_parameters??hp4.1.0??綽?荀?
        .so???＜?ゃ?????????荀????????贋????舟??鴻????
        C++?с????extern "C"{}, BEGIN/END_EXTERN_C()??綽?荀???
*/


#include <stdio.h>
#include "criteria.h"
#include "common.h"
#include "commonal.h"
#include "session.h"
#include "group.h"
#include "account.h"
#include "vpal.h"

// for inet_aton
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>

// global variables
MYSQL *mysql = NULL;


/* declaration of functions to be exported */
extern "C" {
ZEND_FUNCTION(first_module         );
ZEND_FUNCTION(vp_initialize_db     );
ZEND_FUNCTION(vp_login_user        );
ZEND_FUNCTION(vp_logout_user       );
ZEND_FUNCTION(vp_create_session    );
ZEND_FUNCTION(vp_get_session       );
ZEND_FUNCTION(vp_is_activated      );
ZEND_FUNCTION(vp_activate          );
ZEND_FUNCTION(vp_get_account_count );
ZEND_FUNCTION(vp_delete_account    );
ZEND_FUNCTION(vp_get_account       );
ZEND_FUNCTION(vp_get_accounts      );
ZEND_FUNCTION(vp_insert_account    );
ZEND_FUNCTION(vp_update_account    );
ZEND_FUNCTION(vp_dump_uids         );
ZEND_FUNCTION(vp_get_group_count   );
ZEND_FUNCTION(vp_get_groups_by_uid );
ZEND_FUNCTION(vp_is_group_admin    );
ZEND_FUNCTION(vp_dump_gids         );
/*
ZEND_FUNCTION(vp_dump_group_admins );
ZEND_FUNCTION(vp_delete_member     );
ZEND_FUNCTION(vp_insert_member     );
ZEND_FUNCTION(vp_get_members       );
ZEND_FUNCTION(vp_delete_group      );
ZEND_FUNCTION(vp_insert_group      );
ZEND_FUNCTION(vp_update_group      );
*/
ZEND_FUNCTION(vp_get_group         );
ZEND_FUNCTION(vp_get_groups        );
ZEND_FUNCTION(vp_is_moderator      );
ZEND_FUNCTION(vp_get_uid           );

ZEND_FUNCTION(vp_test_criteria     );
ZEND_FUNCTION(vp_test_uids         );
};
/* compiled function list so Zend knows what's in this module */
zend_function_entry vpalmod_functions[] =
{
    ZEND_FE(first_module         ,NULL)
    ZEND_FE(vp_initialize_db     ,NULL)
    ZEND_FE(vp_login_user        ,NULL)
    ZEND_FE(vp_logout_user       ,NULL)
    ZEND_FE(vp_create_session    ,NULL)
    ZEND_FE(vp_get_session       ,NULL)
    ZEND_FE(vp_is_activated      ,NULL)
    ZEND_FE(vp_activate          ,NULL)
    ZEND_FE(vp_get_account_count ,NULL)
    ZEND_FE(vp_delete_account    ,NULL)
    ZEND_FE(vp_get_account       ,NULL)
    ZEND_FE(vp_get_accounts      ,NULL)
    ZEND_FE(vp_insert_account    ,NULL)
    ZEND_FE(vp_update_account    ,NULL)
    ZEND_FE(vp_dump_uids         ,NULL)
    ZEND_FE(vp_get_group_count   ,NULL)
    ZEND_FE(vp_get_groups_by_uid ,NULL)
    ZEND_FE(vp_is_group_admin    ,NULL)
    ZEND_FE(vp_dump_gids         ,NULL)
/*
    ZEND_FE(vp_dump_group_admins ,NULL)
    ZEND_FE(vp_delete_member     ,NULL)
    ZEND_FE(vp_insert_member     ,NULL)
    ZEND_FE(vp_get_members       ,NULL)
    ZEND_FE(vp_delete_group      ,NULL)
    ZEND_FE(vp_insert_group      ,NULL)
    ZEND_FE(vp_update_group      ,NULL)
*/    
    ZEND_FE(vp_get_group         ,NULL)
    ZEND_FE(vp_get_groups        ,NULL)
    ZEND_FE(vp_is_moderator      ,NULL)
    ZEND_FE(vp_get_uid           ,NULL)
    ZEND_FE(vp_test_criteria     ,NULL)
    ZEND_FE(vp_test_uids         ,NULL)
    {NULL, NULL, NULL}
};

/* compiled module information */
zend_module_entry vpalmod_module_entry =
{
    STANDARD_MODULE_HEADER,
    "Visiome Platform Abstract Layer",
    vpalmod_functions,
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL,
    NO_VERSION_YET,
    STANDARD_MODULE_PROPERTIES
};

/* implement standard "stub" routine to introduce ourselves to Zend */
#if COMPILE_DL_FIRST_MODULE
BEGIN_EXTERN_C()
ZEND_GET_MODULE(vpalmod)
END_EXTERN_C()
#endif

/* implement function that is meant to be made available to PHP */
ZEND_FUNCTION(first_module)
{
    long parameter;
//      if(ZEND_NUM_ARGS() != 2) WRONG_PARAM_COUNT;
    if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &parameter) == FAILURE) {
        return;
    }
        parameter++;
    RETURN_LONG(parameter);
}
/** zval????C????絖?????緇?????
  */
char *getZvalString( zval **p ){
        convert_to_string_ex(p);
        return Z_STRVAL_PP(p); //(**p).value.str.val;
}

/** zval????int??緇?????
  */
int getZvalInt( zval **p ){
        convert_to_long_ex(p);
        return Z_LVAL_PP(p); // (int)(**p).value.lval;
}

// keylen????鮎??0????????
static void print_hash_key( int res, const char *key, uint keyLen, ulong index ){
        zend_printf( "print_hash_key : key=0x%08x keylen=%08d index=%08d<br>  ", key, keyLen, index );
        if ( res == HASH_KEY_IS_STRING ){
                char *p = new char[keyLen+1];
                memcpy( p, key, keyLen );
                p[keyLen] = 0;
                zend_printf( "  key is string[%s]<br>\n", p );
        }
        else {
                zend_printf( "  key is integer[%d]<br>\n", index );
        }
}


/** zval**????criteria_t?????????????????????鴻??????紊掩??????getResult()!=RES_OK
  * criteria : 
    array( 'start'=>0, 'rows'=>10, 
       'orders'=>array(
        array('name'=>'id','order'=>'0'),
        array('name'=>'timestamp','name'=>'1'), ...)
    ); ??????就???ｆ?渇????
  */
class zCriteria_t : public criteria {
private:
        result_t result;
public:
        // pz: array('name'=>'timestamp','name'=>'1')
        // ????????orderby??篏???????申????
        void setOrder( zval *pz ){
                char *column = 0;
                order_t order = (order_t)0;
                
                HashPosition pos;
                zval **ppzTmp = 0;
                int res2;
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                print_hash_key( keyType, key, keyLen, index );
                                if ( strncasecmp( key, "column", keyLen ) == 0 && keyLen == 7 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        column = getZvalString(ppzTmp);
//                                      zend_printf( "column=%s<br>\n", column );
                                }
                                else if ( strncasecmp( key, "order", keyLen ) == 0 && keyLen == 6 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        order = (order_t)getZvalInt(ppzTmp);
//                                      zend_printf( "order=%d<br>\n", order );
                                }
                        }
                        
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                if ( column ){
                        orderby *o = new orderby( column, order );
                        addOrderBy( o );
                }
                
                result = RES_OK;
        }
        
        // pz: array( array('column'=>'hoge','order'=>'1'), array('column'=>'huga','order'=>'2'), ...)
        void setOrders( zval *pz ){
                HashPosition pos;
                
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                
                zval **ppzTmp = 0;
                int res2;
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                print_hash_key( keyType, key, keyLen, index );
                                setOrder( *ppzTmp );
                        }
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                result = RES_OK;
        }
        
        void initialize( zval *pz ){
                HashPosition pos;
                zval **ppzTmp = 0;
                int res2;
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                print_hash_key( keyType, key, keyLen, index );
                                if ( strncasecmp( key, "start", keyLen ) == 0 && keyLen == 6 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        int tmp = getZvalInt(ppzTmp);
//                                      zend_printf( "start=%d<br>\n", tmp );
                                        setLimit( tmp, getLimitRows() );
                                }
                                else if ( strncasecmp( key, "rows", keyLen ) == 0 && keyLen == 5 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        int tmp = getZvalInt(ppzTmp);
//                                      zend_printf( "rows=%d<br>\n", tmp );
                                        setLimit( getLimitStart(), tmp );
                                }
                                else if ( strncasecmp( key, "orders", keyLen ) == 0 && keyLen == 7 ){
                                        setOrders( *ppzTmp );
                                }
                                else
                                        ;       // ignore unknown key
                        }
                        else
                                ; // ignore bad key
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                result = RES_OK;
        }
        zCriteria_t() : criteria(){ result = RES_ERROR; }
        zCriteria_t( zval *pz ) : criteria(){ initialize(pz); }
        zCriteria_t( zval **ppz ) : criteria() { initialize(*ppz); }
        result_t getResult(){ return result; };
        
        void dump(){
                zend_printf( "dumping zCriteria...<br>\n" );
                zend_printf( "result=%d<br>\n", (int)result );
                zend_printf( "start=%d, rows=%d<br>\n", getLimitStart(), getLimitRows() );
                const orderby *p = headOrderBy();
                while ( p ){
                        zend_printf( "column=%s, order=%d<br>\n", p->getColumn(), p->getOrder() );
                        p = nextOrderBy();
                }
        }
};


class zAccount_t : public account {
private:
        result_t result;
public:
        void initialize(zval *pz){
                ; // todo
        }
        zAccount_t() : account(){ result = RES_ERROR; }
        zAccount_t( zval *pz ) : account(){ initialize(pz); }
        zAccount_t( zval **ppz ) : account() { initialize(*ppz); }
        result_t getResult(){ return result; };
};

/** zval**????(userid_t *puid,int uidLen)?????????????????????鴻??????紊掩??????getResult()!=RES_OK
    uids : array( '1', '3', '4', '6', ... ); ??????就??????
  */
class zUIDs_t {
private:
        result_t result;
        userid_t *pUID;
        int len;
public:
        zUIDs_t(){
                pUID = 0;
                len = 0;
                result = RES_ERROR;
        }
        
        zUIDs_t( zval *pza ){
                pUID = 0;
                len = 0;
                result = RES_ERROR;
                
                if ( Z_TYPE_P(pza) != IS_ARRAY ){
                        result = RES_ERROR;
                }
                else {
                        len = zend_hash_num_elements(Z_ARRVAL_P(pza));
                        if(len == 0) {
                                pUID = new userid_t[1];
                                result = RES_OK;
                        }
                        else {
                                /* php/ext/standard/string.c ? implode??????????????????
                                   zend_hash_*???????ャ?＜?潟???ｃ????????????????鐚?
                                */
                                zval         **tmp;
                                HashPosition   pos;
                                int i = 0;
                                pUID = new userid_t[len];
                                
                                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pza), &pos);
                                while (zend_hash_get_current_data_ex(Z_ARRVAL_P(pza), (void **) &tmp, &pos) == SUCCESS ) {
                                        SEPARATE_ZVAL(tmp); // zend.arguments.write-safety.html ????/span>
                                        convert_to_long_ex(tmp);
                                        if ( i < len )
                                                pUID[i++] = Z_LVAL_PP(tmp);
                                        zend_hash_move_forward_ex(Z_ARRVAL_P(pza), &pos);
                                }
                                len = i;
                                result = RES_OK;
                        }
                }
        }
        
        ~zUIDs_t(){
                if ( pUID ) delete[] pUID;
        }
        result_t getResult(){ return result; }
        userid_t *getPUID(){ return pUID; }
        int getLen(){ return len; }
        void dump(){
                zend_printf( "dumping zUIDs...<br>\n" );
                zend_printf( "result=%d<br>\n", (int)result );
                zend_printf( "len=%d<br>\n", len );
                for ( int i = 0; i < len; i++ ){
                        zend_printf( "pUID[%d] = %d<br>\n", i, pUID[i] );
                }
        }
};

/** uids_t ?? zval
  */
result_t uidsToZval( userid_t *pUID, int len, zval **ppz )
{
        zval *pz;
        
        // create new array
        MAKE_STD_ZVAL(pz);
        array_init(pz);
        
        // add UIDs
        for ( int i = 0; i < len; i++ ){
                add_next_index_long(pz, (long)(pUID[i]) );
        }
        
        // return array
        *ppz = pz;
        return RES_OK;
}
/** uids_t ?? zval
  */
result_t gidsToZval( groupid_t *pGID, int len, zval **ppz )
{
        zval *pz;
        
        // create new array
        MAKE_STD_ZVAL(pz);
        array_init(pz);
        
        // add GIDs
        for ( int i = 0; i < len; i++ ){
                add_next_index_long(pz, (long)(pGID[i]) );
        }
        
        // return array
        *ppz = pz;
        return RES_OK;
}

result_t accountToZval( const account_t *pAccount, zval *z )
{
    zend_hash_clean( z -> value.ht );
    
    if( add_assoc_long( z, "uid", pAccount -> getUID( ) ) != SUCCESS ){
        fprintf( stderr, "aaaaaaaaaaaaaaaa" );
        abort( );
    }
    add_assoc_string( z, "uname", ( char* )pAccount -> getUname( ), 1 );
    add_assoc_string( z, "name", ( char* )pAccount -> getName( ), 1 );
    add_assoc_string( z, "email", ( char* )pAccount -> getEmail( ), 1 );
    add_assoc_string( z, "url", ( char* )pAccount -> getURL( ), 1 );
    add_assoc_string( z, "user_avatar", ( char* )pAccount -> getUserAvatar( ), 1 );
    add_assoc_string( z, "user_icq", ( char* )pAccount -> getUserIcq( ), 1 );
    add_assoc_string( z, "user_from", ( char* )pAccount -> getUserFrom( ), 1 );
    add_assoc_string( z, "user_sig", ( char* )pAccount -> getUserSig( ), 1 );
    add_assoc_string( z, "actkey", ( char* )pAccount -> getActkey( ), 1 );
    add_assoc_string( z, "user_aim", ( char* )pAccount -> getUserAim( ), 1 );
    add_assoc_string( z, "user_yim", ( char* )pAccount -> getUserYim( ), 1 );
    add_assoc_string( z, "user_msnm", ( char* )pAccount -> getUserMsnm( ), 1 );
    add_assoc_string( z, "pass", ( char* )pAccount -> getPass( ), 1 );
    add_assoc_string( z, "theme", ( char* )pAccount -> getTheme( ), 1 );
    add_assoc_string( z, "umode", ( char* )pAccount -> getUmode( ), 1 );
    add_assoc_string( z, "user_occ", ( char* )pAccount -> getUserOcc( ), 1 );
    add_assoc_string( z, "bio", ( char* )pAccount -> getBio( ), 1 );
    add_assoc_string( z, "user_intrest", ( char* )pAccount -> getUserIntrest( ), 1 );
    add_assoc_double( z, "timezone_offset", pAccount -> getTimezoneOffset( ) );
    add_assoc_long( z, "attachsig", pAccount -> getAttachsig( ) );
    add_assoc_long( z, "last_login", pAccount -> getLastLogin( ) );
    add_assoc_long( z, "level", pAccount -> getLevel( ) );
    add_assoc_long( z, "notify_method", pAccount -> getNotifyMethod( ) );
    add_assoc_long( z, "notify_mode", pAccount -> getNotifyMode( ) );
    add_assoc_long( z, "posts", pAccount -> getPosts( ) );
    add_assoc_long( z, "rank", pAccount -> getRank( ) );
    add_assoc_long( z, "uorder", pAccount -> getUorder( ) );
    add_assoc_long( z, "user_mailok", pAccount -> getUserMailok( ) );
    add_assoc_long( z, "user_regdate", pAccount -> getUserRegdate( ) );
    add_assoc_long( z, "user_viewemail", pAccount -> getUserViewemail( ) );
    
    add_assoc_long( z, "activate", pAccount -> getActivate( ) );
    add_assoc_string( z, "address", ( char* )pAccount -> getAddress( ), 1 );
    add_assoc_string( z, "institute", ( char* )pAccount -> getInstitute( ), 1 );
    add_assoc_string( z, "tel", ( char* )pAccount -> getTel( ), 1 );
    add_assoc_string( z, "organization", ( char* )pAccount -> getOrganization( ), 1 );
    add_assoc_string( z, "country", ( char* )pAccount -> getCountry( ), 1 );
    add_assoc_string( z, "zipcode", ( char* )pAccount -> getZipcode( ), 1 );
    add_assoc_string( z, "fax", ( char* )pAccount -> getFax( ), 1 );
    add_assoc_string( z, "base_url", ( char* )pAccount -> getBaseURL( ), 1 );
    add_assoc_long( z, "notice_mail", pAccount -> getNoticeMail( ) );
    add_assoc_long( z, "notice_mail_since", pAccount -> getNoticeMailSince( ) );
        return RES_OK;
}

/** accounts ?? zval
  * accounts: ???????????????? 
    array( 
      array(
        'uid'=>100,
        'activate'=>1,
        'institute'=>'foo',
        'tel'=>'123-456-789',
        ...
      ), 
      ...
    )
  */
result_t accountsToZval( const account_t *pAccounts, int accountsLen, zval *z )
{
    zend_hash_clean( z -> value.ht );
    for( int i = 0; i < accountsLen; i++ ){
        zval *new_array;
        MAKE_STD_ZVAL(new_array);
        if(array_init(new_array) != SUCCESS){
            return RES_ERROR;
        }
        add_index_zval( z, i, new_array );
        accountToZval( &pAccounts[ i ], new_array );
    }
        return RES_OK;
}

/** groups ?? zval
  */
result_t groupsToZval( const group_t *pGroups, int groupsLen, zval *z )
{
    zend_hash_clean( z -> value.ht );
    for( int i = 0; i < groupsLen; i++ ){
        zval *new_array;
        MAKE_STD_ZVAL(new_array);
        if(array_init(new_array) != SUCCESS){
            return RES_ERROR;
        }
        add_index_zval( z, i, new_array );
        add_assoc_long( new_array, "gid",  pGroups[ i ].getGID( ) );
        add_assoc_string( new_array, "gname", ( char* )pGroups[ i ].getGname( ), 1 );
        add_assoc_string( new_array, "gdesc", ( char* )pGroups[ i ].getDesc( ), 1 );
    }
        return RES_OK;
}

/** group ?? zval
  */
result_t groupToZval( const group_t *pGroup, int groupLen, zval *z )
{
    zend_hash_clean( z -> value.ht );
    add_assoc_long( z, "gid",  pGroup -> getGID( ) );
    add_assoc_string( z, "gname", ( char* )pGroup -> getGname( ), 1 );
    add_assoc_string( z, "gdesc", ( char* )pGroup -> getDesc( ), 1 );
        return RES_OK;
}

// int vp_get_group( int sid, int gid, array group );
ZEND_FUNCTION(vp_get_group)
{
        long sid, gid;
        zval *zgroup;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lla",
                              &sid, &gid, &zgroup) == FAILURE) {
                return;
        }
        
        const group_t *pgroup;
        result_t result = getGroup( (sessionid_t)sid, (groupid_t)gid, &pgroup );
        if ( RES_OK == result ){
                //groupToZval( pgroup, zgroup );
                freeResult( pgroup );
        }
        
    RETURN_LONG(result);
}


// int vp_get_groups( int sid, array gids, array criteria, array groups );
ZEND_FUNCTION(vp_get_groups)
{
        result_t result;
        long sid, uid;
        zval *zcriteria;
        zval *zgids;
        zval *zgroups;
    zval **ppzTmp = 0;
    HashPosition pos;
    int res2;
    int gidsLen;
    const group_t* groups;
    int groupsLen;
    
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laaa",
                              &sid, &zgids, &zcriteria, &zgroups) == FAILURE) {
                return;
        }
        
    //gids???違???若??ID???潟???若????
    gidsLen = zend_hash_num_elements(Z_ARRVAL_P(zgids));
    groupid_t *gids = new groupid_t[ gidsLen ];
    zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(zgids), &pos);
    for( int i = 0; i < gidsLen; i++ ){
        if( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(zgids), (void **)&ppzTmp, &pos)) == SUCCESS ){
            SEPARATE_ZVAL(ppzTmp);
            convert_to_long_ex(ppzTmp);
            gids[ i ] = Z_LVAL_PP(ppzTmp);
        }
        zend_hash_move_forward_ex(Z_ARRVAL_P(zgids), &pos);
    }
    
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
        result = getGroups( (sessionid_t)sid, gids, gidsLen, &zcri, &groups, &groupsLen );
        if ( RES_OK == result ){
            delete[] gids;
            freeResult( groups );
        }
    }
    groupsToZval( groups, groupsLen, zgroups );
    RETURN_LONG(result);
}


// int vp_is_moderator(string uname)
ZEND_FUNCTION(vp_is_moderator)
{
        long vpSessionID;
        userid_t uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", 
                              &vpSessionID, &uid) == FAILURE) {
                return;
        }
        
        bool result = isModerator( (sessionid_t)vpSessionID, uid );
    RETURN_BOOL(result)
}

// int vp_get_uid(string uname)
ZEND_FUNCTION(vp_get_uid)
{
        char *uname;
        int unameLen;
        userid_t uid;
    
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", 
          &uname, &unameLen) == FAILURE) {
                return;
        }
        
        string strUname( uname, unameLen );
        result_t result = getUid( strUname.c_str(), &uid );
        if ( result == RES_OK ){
            RETURN_LONG((long)uid);
        }
        else {
                //zend_printf( "vpal_debug: vp_get_uid(%s): result=%d<br>\n", strUname.c_str(),(int)result );
                RETURN_FALSE
        }
}

/** session ?? zval
  */
result_t sessionToZval( const session_t *pSession, zval *z )
{
        string sessionID(unsignedIntToString(pSession->getSessionID()));
        add_assoc_string(z, "session_id", (char *)sessionID.c_str(), 1);
        
        string date(unsignedIntToString((unsigned int)pSession->getDate()));
        add_assoc_string(z, "date", (char *)date.c_str(), 1);
        
        string userID(unsignedIntToString((unsigned int)pSession->getUserID()));
        add_assoc_string(z, "user_id", (char *)userID.c_str(), 1);
        
        return RES_OK;
}

ZEND_FUNCTION(vp_test_criteria)
{
        zval *z;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", 
          &z) == FAILURE) {
                return;
        }
        zend_printf("zend_printf...<br>\n");
        zCriteria_t zcri(z);
        zcri.dump();
        RETURN_FALSE
}

ZEND_FUNCTION(vp_test_uids)
{
        zval *z;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", 
          &z) == FAILURE) {
                return;
        }
        zend_printf("zend_printf...<br>\n");
        zUIDs_t zuids(z);
        zuids.dump();
        RETURN_FALSE
}


/** DB??･膓????????≪??･膓?筝???･膓???????????????<br>
    int initialize_db( string host[, string user[, string password[, string dbname[, string prefix]]]] );
    @param host      ?ョ????????ユ????ULL
    @param user      DB?ョ????????若?九???????ユ????ULL
    @param password  DB?ョ????????鴻???若???????ユ????ULL
    @param dbname    DB?ョ?????B???????ユ????quot;"
    @param prefix    XOOPS DB ??refix??
    @return 0 success <br>
  */
ZEND_FUNCTION(vp_initialize_db)
{
        zval **parameters[5];
        char *host;
        char *user;
        char *password;
        char *dbname;
        char *prefix;

        /* get the number of arguments */
        int argNum = ZEND_NUM_ARGS();
        if (argNum > 5)
                WRONG_PARAM_COUNT;

        /* argument count is correct, now retrieve arguments */
        if(zend_get_parameters_array_ex(argNum, parameters) != SUCCESS)
                WRONG_PARAM_COUNT;

        if (argNum < 1) host = NULL;
        else            host = getZvalString( parameters[0] );
        
        if (argNum < 2) user = NULL;
        else            user = getZvalString( parameters[1] );
        
        if (argNum < 3) password = NULL;
        else            password = getZvalString( parameters[2] );
        
        if (argNum < 4) dbname = "";
        else            dbname = getZvalString( parameters[3] );
        
        if (argNum < 5) prefix = "";
        else            prefix = getZvalString( parameters[4] );
        
        result_t result = initializeDB( host, user, password, dbname, prefix );
        
        RETURN_LONG(result);
}

/** ???違?ゃ?潟??????<br>
    int vp_login_user(string uname, string password)
    @param uname      ???若?九??(xoops_users.uname)
    @param password   ???鴻???若??(md5(password)=xoops_users.pass)
    @return 0 success 
  */
ZEND_FUNCTION(vp_login_user)
{
        char *uname;
        int unameLen;
        char *passwd;
        int passwdLen;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss", 
          &uname, &unameLen, &passwd, &passwdLen) == FAILURE) {
                return;
        }
        
        sessionid_t vpSessionID;
        result_t result = loginUser( uname, passwd, &vpSessionID );
        if ( result == RES_OK ){
            RETURN_LONG((long)vpSessionID);
        }
        else {
                //zend_printf( "vpal_debug: vp_login_user(%s, %s): cannot login. result=%d<br>\n", strUname.c_str(), strPasswd.c_str(), (int)result );
                RETURN_FALSE
        }
}

/** ???違?≪??????????<br>
    void vp_logout_user(int vp_session_id)
    @param vp_session_id  vp??essionid
    @return ????
  */
ZEND_FUNCTION(vp_logout_user)
{
        long vpSessionID;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &vpSessionID) == FAILURE) {
                return;
        }
        logoutUser( (sessionid_t)vpSessionID );
        
    RETURN_NULL();
}

/** vp ? session id 篏???<br>
    int vp_create_session( string xoops_sess_id, int uid, string remote_host )
    @param xoops_sess_id  xoops??ession id
    @param uid  xoops ? uid (xoops_users.uid)
    @return FALSE篁ュ?: vp ? session id
    @return FALSE: 紊掩??
  */
ZEND_FUNCTION(vp_create_session)
{
        char *xoopsSessionID;
        int xoopsSessionIDLen;
        long uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl",
          &xoopsSessionID, &xoopsSessionIDLen, &uid) == FAILURE) {
                return;
        }
        
        sessionid_t vpSessionID = 0;
        result_t result = createSession( xoopsSessionID, (userid_t)uid, &vpSessionID );
        if ( result == RES_OK ){
                RETURN_LONG((long)vpSessionID);
        }
        else {
                RETURN_FALSE;
        }
}

/** vp ? session ???膣井???宴??緇???<br>
    int vp_get_session( int vp_session_id, array session_info )
    @param vp_session_id   vp ? session id
    @param session_info  腟?????????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_session)
{
        long vpSessionID;
        zval *sessionInfo;
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la",
          &vpSessionID, &sessionInfo) == FAILURE) {
                return;
        }
        const session_t *session = 0;
        result_t result = getSession( (sessionid_t)vpSessionID, &session );
        if ( result == RES_OK ){
                sessionToZval( session, sessionInfo );
                freeResult( session );
        }
        
        RETURN_LONG((long)result);
}

/** activate?倶?? ??緇?<br>
    bool vp_is_activated( int vp_session_id, int user_id )
    @param vp_session_id   vp ? session id
    @param user_id  xoops_users.uid
    @return 0 success
  */
ZEND_FUNCTION(vp_is_activated)
{
        long sid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &sid, &uid) == FAILURE) {
                return;
        }
        
        bool result = isActivated( (sessionid_t)sid, (userid_t)uid );
        
    RETURN_BOOL(result);
}

/** activate??????<br>
    bool vp_activate( int vp_session_id, bool activated )
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param activated  true:activate, false:inactivate
    @return 0 success
  */
ZEND_FUNCTION(vp_activate)
{
        long sid, uid;
        bool activated;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llb",
          &sid, &uid, &activated) == FAILURE) {
                return;
        }
        
        result_t result = activate( (sessionid_t)sid, (userid_t)uid, activated );
        
    RETURN_LONG(result);
}

/** vp???≪?????潟???違??緇?????<br>
    int vp_get_account_count( int vp_session_id )
    @param vp_session_id   vp ? session id
    @return 0 success
  */
ZEND_FUNCTION(vp_get_account_count)
{
        long sid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l",
          &sid) == FAILURE) {
                return;
        }
        
        long count = getAccountCount( (sessionid_t)sid );
        
    RETURN_LONG(count);
}

/** ?≪?????潟???????ゃ??????<br>
    bool vp_delete_account( int vp_session_id, int user_id )
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @return 0 success
  */
ZEND_FUNCTION(vp_delete_account)
{
        long sid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll",
          &sid, &uid) == FAILURE) {
                return;
        }
        
        result_t result = deleteAccount( (sessionid_t)sid, (userid_t)uid );
        
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴??緇?????<br>
    int vp_get_account( int vp_session_id, int user_id, array account_info )
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param account_info ?≪?????潟?????宴???????????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_account)
{
        long sid, uid;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lla",
          &sid, &uid, &zaccount) == FAILURE) {
        fprintf( stderr, "error occured " );
                return;
        }
        
        const account_t *paccount;
        result_t result = getAccount( (sessionid_t)sid, (userid_t)uid, &paccount );
        if ( RES_OK == result ){
                accountToZval( paccount, zaccount );
                freeResult( paccount );
        }
        
    RETURN_LONG(result);
}

/** ?＞散????眼?????≪?????潟???????宴??緇?????<br>
    int vp_get_accoutns( int sid, array uids, array criteria, array accounts );
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param account_info ?≪?????潟?????宴???????????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_accounts)
{
        result_t result;
        long sid;
        zval *zuids;
        zval *zcriteria;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laaa",
          &sid, &zuids, &zcriteria, &zaccount) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                zUIDs_t zUIDs(zuids);
                result = zUIDs.getResult();
                if ( RES_OK == result ){
                        const account_t *paccounts;
                        int accountLen;
                        result = getAccounts( (sessionid_t)sid, 
                                zUIDs.getPUID(), zUIDs.getLen(),
                                &zcri, &paccounts, &accountLen );
                        if ( RES_OK == result ){
                                accountsToZval( paccounts, accountLen, zaccount );
                                freeResult( paccounts );
                        }
                }
        }
        
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴??緇?????<br>
    int vp_insert_account( int sid, array account_info );
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param account_info ?≪?????潟?????宴???????????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_insert_account)
{
        result_t result;
        long sid;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la",
          &sid, &zaccount) == FAILURE) {
                return;
        }
        
        zAccount_t zacc(zaccount);
        result = zacc.getResult();
        if ( RES_OK == result ){
                result = insertAccount( (sessionid_t)sid, &zacc );
        }
        
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴???贋?違??????<br>
    int vp_update_account( int sid, array account );
    @param vp_session_id   vp ? session id
    @param account_info ?吾??莨若???鴻???≪?????潟?????宴??茵????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_update_account)
{
        result_t result;
        long sid;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la",
          &sid, &zaccount) == FAILURE) {
                return;
        }
        
        zAccount_t zacc(zaccount);
        result = zacc.getResult();
        if ( RES_OK == result ){
                result = updateAccount( (sessionid_t)sid, &zacc );
        }
        
    RETURN_LONG(result);
}

/** ?＞散???????≪?????潟????id???荀с??緇?????<br>
    int vp_dump_uids( int vp_session_id, array criteria, array uids );
    @param vp_session_id   vp ? session id
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param uids uid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_dump_uids)
{
        result_t result;
        long sid;
        zval *zcriteria;
        zval *zuids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laa",
          &sid, &zcriteria, &zuids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                userid_t *puid;
                int uidLen;
                result = dumpUids( (sessionid_t)sid, &zcri, &puid, &uidLen );
                if ( RES_OK == result ){
                        uidsToZval( puid, uidLen, &zuids );
                        freeResult( puid );
                }
        }
        
    RETURN_LONG(result);
}

/** VP???違???若?????違??緇???<br>
    int vp_get_group_count( int sid );
    @param vp_session_id   vp ? session id
    @return ?違???若????/span>
  */
ZEND_FUNCTION(vp_get_group_count)
{
        result_t result;
        long sid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l",
          &sid) == FAILURE) {
                return;
        }
        
        int count = getGroupCount( (sessionid_t)sid );
        
    RETURN_LONG(count);
}

/** uid?ф??絎????????若?吟??絮????違???若???с?????ゆ?＞散????眼?????違???若????id??緇???<br>
    int vp_get_group_by_uid( int sid, int uid, array criteria, array gids );
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param gids gid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_groups_by_uid)
{
        result_t result;
        long sid, uid;
        zval *zcriteria;
        zval *zgids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llaa",
          &sid, &uid, &zcriteria, &zgids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                groupid_t *pgids;
                int gidLen;
                result = getGroupsByUid( (sessionid_t)sid, (userid_t)uid, &zcri, &pgids, &gidLen );
                if ( RES_OK == result ){
                        gidsToZval( pgids, gidLen, &zgids );
                        freeResult( pgids );
                }
        }
        
    RETURN_LONG(result);
}


/** uid?ф??絎????????若?吟??gid?ф??絎??????違???若?????違???若??膊∞??????????????緇???<br>
    int vp_is_group_admin( int sid, int gid, int uid );
    @param vp_session_id   vp ? session id
    @param group_id  VP???違???若??ID
    @param user_id   xoops_users.uid
    @return true: ?違???若??膊∞?????с??????
    @return false: ?違???若??膊∞?????с???????????????????若?с??????
  */
ZEND_FUNCTION(vp_is_group_admin)
{
        result_t result;
        long sid, gid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lll",
          &sid, &gid, &uid) == FAILURE) {
                return;
        }
        
        bool b  = isGroupAdmin( (sessionid_t)sid, (groupid_t)gid, (userid_t)uid );
        
    RETURN_BOOL(b);
}

/** ?＞散????眼?????違???若????id???荀с??緇?????<br>
    int vp_dump_gids( int sid, array criteria, array gids );
    @param vp_session_id   vp ? session id
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param gids gid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_dump_gids)
{
        result_t result;
        long sid;
        zval *zcriteria;
        zval *zgids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laa",
          &sid, &zcriteria, &zgids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                groupid_t *pgid;
                int gidLen;
                result = dumpGids( (sessionid_t)sid, &zcri, &pgid, &gidLen );
                if ( RES_OK == result ){
                        gidsToZval( pgid, gidLen, &zgids );
                        freeResult( pgid );
                }
        }
        
    RETURN_LONG(result);
}