diff options
Diffstat (limited to 'ext/mcal/php3_mcal.c')
| -rw-r--r-- | ext/mcal/php3_mcal.c | 955 |
1 files changed, 955 insertions, 0 deletions
diff --git a/ext/mcal/php3_mcal.c b/ext/mcal/php3_mcal.c new file mode 100644 index 0000000000..ff22aa4fac --- /dev/null +++ b/ext/mcal/php3_mcal.c @@ -0,0 +1,955 @@ +/* + +----------------------------------------------------------------------+ + | PHP HTML Embedded Scripting Language Version 3.0 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997-1999 PHP Development Team (See Credits file) | + +----------------------------------------------------------------------+ + | This program is free software; you can redistribute it and/or modify | + | it under the terms of one of the following licenses: | + | | + | A) the GNU General Public License as published by the Free Software | + | Foundation; either version 2 of the License, or (at your option) | + | any later version. | + | | + | B) the PHP License as published by the PHP Development Team and | + | included in the distribution in the file: LICENSE | + | | + | This program is distributed in the hope that it will be useful, | + | but WITHOUT ANY WARRANTY; without even the implied warranty of | + | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | + | GNU General Public License for more details. | + | | + | You should have received a copy of both licenses referred to here. | + | If you did not, or have any questions about PHP licensing, please | + | contact core@php.net. | + +----------------------------------------------------------------------+ + | Authors: | + | Mark Musone <musone@chek.com> | + +----------------------------------------------------------------------+ + */ + +#define MCAL1 + +#ifdef ERROR +#undef ERROR +#endif + +#include "php.h" + +#if COMPILE_DL +#include "dl/phpdl.h" +#endif + +#if HAVE_MCAL + +#include <time.h> +#include <stdio.h> +#include <ctype.h> +#include <signal.h> +#include <stdarg.h> +#include "mcal.h" +#include "php3_mcal.h" +#include "modules.h" +#if (WIN32|WINNT) +#include "winsock.h" +#endif +CALSTREAM *cal_open(); +CALSTREAM *cal_close_it (); +CALSTREAM *cal_close_full (); + + +typedef struct php3_mcal_le_struct { + CALSTREAM *mcal_stream; + long flags; +} pils; + + +typedef struct cal_list +{ +u_int32_t uid; +struct cal_list *next; +} cal_list_t; + +static cal_list_t *g_cal_list=NULL; +static cal_list_t *g_cal_list_end=NULL; +/* + * this array should be set up as: + * {"PHPScriptFunctionName",dllFunctionName,1} + */ + +function_entry mcal_functions[] = { + {"mcal_open", php3_mcal_open, NULL}, + {"mcal_popen", php3_mcal_popen, NULL}, + {"mcal_reopen", php3_mcal_reopen, NULL}, + {"mcal_fetch_event", php3_mcal_fetch_event, NULL}, + {"mcal_list_events", php3_mcal_list_events, NULL}, + {"mcal_list_alarms", php3_mcal_list_alarms, NULL}, + {"mcal_create_calendar", php3_mcal_create_calendar, NULL}, + {"mcal_rename_calendar", php3_mcal_rename_calendar, NULL}, + {"mcal_delete_calendar", php3_mcal_delete_calendar, NULL}, + {"mcal_delete_event", php3_mcal_delete_event, NULL}, + {"mcal_store_event", php3_mcal_store_event, NULL}, + {"mcal_snooze", php3_mcal_snooze, NULL}, + {NULL, NULL, NULL} +}; + + +php3_module_entry php3_mcal_module_entry = { + CALVER, mcal_functions, PHP_MINIT(mcal), NULL, NULL, NULL, PHP_MINFO(mcal), 0, 0, 0, NULL +}; + + +#if COMPILE_DL +DLEXPORT php3_module_entry *get_module(void) { return &php3_mcal_module_entry; } +#endif + +/* + I believe since this global is used ONLY within this module, + and nothing will link to this module, we can use the simple + thread local_ storage +*/ +int le_mcal; +#ifdef OP_RELOGIN +/* AJS: persistent connection type */ +int le_pmcal; +#endif +char mcal_user[80]=""; +char mcal_password[80]=""; + +CALSTREAM *cal_close_it (pils *mcal_le_struct) +{ + CALSTREAM *ret; + ret = cal_close (mcal_le_struct->mcal_stream,0); + efree(mcal_le_struct); + return ret; +} + + +PHP_MINFO_FUNCTION(mcal) +{ + php3_printf("Mcal Support enabled<br>"); + php3_printf("<table>"); + php3_printf("<tr><td>Mcal Version:</td>"); + php3_printf("<td>%s</td>",CALVER); + php3_printf("</tr></table>"); +} + +PHP_MINIT_FUNCTION(mcal) +{ + + le_mcal = register_list_destructors(cal_close_it,NULL); + + return SUCCESS; +} + + +static int add_assoc_object(pval *arg, char *key, pval *tmp) +{ + HashTable *symtable; + + if (arg->type == IS_OBJECT) { + symtable = arg->value.obj.properties; + } else { + symtable = arg->value.ht; + } + return zend_hash_update(symtable, key, strlen(key)+1, (void *) &tmp, sizeof(pval *), NULL); +} + + +void php3_mcal_do_open(INTERNAL_FUNCTION_PARAMETERS, int persistent) +{ + pval *calendar; + pval *user; + pval *passwd; + pval *options; + CALSTREAM *mcal_stream; + pils *mcal_le_struct; + long flags=0; + long cl_flags=0; + int ind; + int myargc=ARG_COUNT(ht); + + + if (myargc <3 || myargc >4 || getParameters(ht, myargc, &calendar,&user,&passwd,&options) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_string(calendar); + convert_to_string(user); + convert_to_string(passwd); + strcpy(mcal_user,user->value.str.val); + strcpy(mcal_password,passwd->value.str.val); + if(myargc ==4) { + convert_to_long(options); + flags=options->value.lval; + } + mcal_stream = cal_open(NULL,calendar->value.str.val,0); + if (!mcal_stream) { + php3_error(E_WARNING,"Couldn't open stream %s\n",calendar->value.str.val); + RETURN_FALSE; + } + + mcal_le_struct = emalloc(sizeof(pils)); + mcal_le_struct->mcal_stream = mcal_stream; + mcal_le_struct->flags = 0; + ind = php3_list_insert(mcal_le_struct, le_mcal); + RETURN_LONG(ind); +} + + + + +/* {{{ proto int mcal_close(int stream_id [, int options]) + Close an MCAL stream */ +void php3_mcal_close(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *options, *streamind; + int ind, ind_type; + pils *mcal_le_struct=NULL; + int myargcount=ARG_COUNT(ht); + long flags = 0; + + if (myargcount < 1 || myargcount > 2 || getParameters(ht, myargcount, &streamind, &options) == FAILURE) { + WRONG_PARAM_COUNT; + } + convert_to_long(streamind); + ind = streamind->value.lval; + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + if(myargcount==2) { + convert_to_long(options); + flags = options->value.lval; + mcal_le_struct->flags = flags; + } + php3_list_delete(ind); + RETURN_TRUE; +} +/* }}} */ + + + + + + + + +/* {{{ proto int mcal_open(string calendar, string user, string password [, int options]) + Open an MCAL stream to a calendar */ +void php3_mcal_open(INTERNAL_FUNCTION_PARAMETERS) +{ + php3_mcal_do_open(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); +} +/* }}} */ + + +/* {{{ proto int mcal_reopen(int stream_id, string calendar [, int options]) + Reopen MCAL stream to new calendar */ +void php3_mcal_reopen(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind; + pval *calendar; + pval *options; + CALSTREAM *mcal_stream; + pils *mcal_le_struct; + int ind, ind_type; + long flags=0; + long cl_flags=0; + int myargc=ARG_COUNT(ht); + + if (myargc<2 || myargc>3 || getParameters(ht,myargc,&streamind, &calendar, &options) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + ind = streamind->value.lval; + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + convert_to_string(calendar); + if(myargc == 3) { + convert_to_long(options); + flags = options->value.lval; + mcal_le_struct->flags = cl_flags; + } + // mcal_stream = cal_connect(calendar->value.str.val); + // cal_login(mcal_stream, calendar->value.str.val); + if (mcal_stream == NULL) { + php3_error(E_WARNING,"Couldn't re-open stream\n"); + RETURN_FALSE; + } + RETURN_TRUE; +} +/* }}} */ + + +/* {{{ proto int mcal_expunge(int stream_id) + Delete all messages marked for deletion */ +void php3_mcal_expunge(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind; + int ind, ind_type; + pval *start,*end; + pils *mcal_le_struct; + + if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &streamind) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + +/* cal_expunge (mcal_le_struct->mcal_stream); +*/ + RETURN_TRUE; +} +/* }}} */ + +/* {{{ proto int mcal_fetch_event(int stream_id,int eventid, [int options]) + Fetch an event*/ +void php3_mcal_fetch_event(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind,*eventid,*start,*end,*options=NULL; + int ind, ind_type; + pils *mcal_le_struct=NULL; + CALEVENT *myevent; + int myargcount=ARG_COUNT(ht); + + if (myargcount < 1 || myargcount > 3 || getParameters(ht, myargcount, &streamind, &eventid,&options) == FAILURE) { + WRONG_PARAM_COUNT; + } + convert_to_long(streamind); + convert_to_long(eventid); + ind = streamind->value.lval; + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + if(myargcount==3) { + convert_to_long(options); + } + cal_fetch(mcal_le_struct->mcal_stream,eventid->value.lval,&myevent); + + object_init(return_value); + add_property_long(return_value,"id",myevent->id); + add_property_long(return_value,"public",myevent->public); + MAKE_STD_ZVAL(start); + object_init(start); + if(myevent->start.has_date) + { + add_property_long(start,"year",myevent->start.year); + add_property_long(start,"month",myevent->start.mon); + add_property_long(start,"mday",myevent->start.mday); + } + if(myevent->start.has_time) + { + add_property_long(start,"hour",myevent->start.hour); + add_property_long(start,"min",myevent->start.min); + add_property_long(start,"sec",myevent->start.sec); + } + add_assoc_object(return_value, "start",start); + + MAKE_STD_ZVAL(end); + object_init(end); + if(myevent->end.has_date) + { + add_property_long(end,"year",myevent->end.year); + add_property_long(end,"month",myevent->end.mon); + add_property_long(end,"mday",myevent->end.mday); + } + if(myevent->end.has_time) + { + add_property_long(end,"hour",myevent->end.hour); + add_property_long(end,"min",myevent->end.min); + add_property_long(end,"sec",myevent->end.sec); + } + add_assoc_object(return_value, "end",end); + + add_property_string(return_value,"category",myevent->category,1); + add_property_string(return_value,"title",myevent->title,1); + add_property_string(return_value,"description",myevent->description,1); + add_property_long(return_value,"alarm",myevent->alarm); +} +/* }}} */ + +/* {{{ proto array mcal_list_events(int stream_id,int begindate, [int enddate]) + Returns list of UIDs for that day or range of days */ +void php3_mcal_list_events(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind,*begindate,*enddate; + pval **pvalue; + int ind, ind_type; + unsigned long i; + char *t; + int mcal_folders=0; + unsigned int msgno; + pils *mcal_le_struct; + cal_list_t *my_cal_list; + datetime_t begincal,endcal; + int myargc; + myargc=ARG_COUNT(ht); + if (myargc <2 || myargc > 3 || getParameters(ht,myargc,&streamind,&begindate,&enddate) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_array(begindate); + if(myargc == 3) convert_to_array(enddate); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + /* Initialize return array */ + if (array_init(return_value) == FAILURE) { + RETURN_FALSE; + } + begincal.has_time=0; + endcal.has_time=0; + if(_php3_hash_find(begindate->value.ht,"year",sizeof("year"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + begincal.year=(*pvalue)->value.lval; + } + if(_php3_hash_find(begindate->value.ht,"month",sizeof("month"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + begincal.mon=(*pvalue)->value.lval; + } + if(_php3_hash_find(begindate->value.ht,"day",sizeof("day"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + begincal.mday=(*pvalue)->value.lval; + } +if(myargc == 3) + { + if(_php3_hash_find(enddate->value.ht,"year",sizeof("year"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + endcal.year=(*pvalue)->value.lval; + } + if(_php3_hash_find(enddate->value.ht,"month",sizeof("month"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + endcal.mon=(*pvalue)->value.lval; + } + if(_php3_hash_find(enddate->value.ht,"day",sizeof("day"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + endcal.mday=(*pvalue)->value.lval; + } + } + + +g_cal_list=NULL; + cal_search_range(mcal_le_struct->mcal_stream,&begincal,&endcal); + my_cal_list=g_cal_list; + while(my_cal_list != NULL) + { + add_next_index_long(return_value,my_cal_list->uid); + my_cal_list=my_cal_list->next; + free(g_cal_list); + g_cal_list=my_cal_list; + } +} +/* }}} */ + + +/* {{{ proto string mcal_create_calendar(int stream_id, string calendar) + Create a new calendar*/ + +void php3_mcal_create_calendar(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind, *calendar; + int ind, ind_type; + pils *mcal_le_struct; + int myargc=ARG_COUNT(ht); + if (myargc <1 || myargc > 2 || getParameters(ht,myargc,&streamind,&calendar) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_string(calendar); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } +/* + if (mcal_create(mcal_le_struct->mcal_stream,calendar->value.str.val)) + { + RETURN_TRUE; + } + else + { + RETURN_FALSE; + } +*/ +} +/* }}} */ + + +/* {{{ proto string mcal_rename(int stream_id, string src_calendar, string dest_calendar) + Rename a calendar*/ +void php3_mcal_rename_calendar(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind, *src_calendar,*dest_calendar; + int ind, ind_type; + pils *mcal_le_struct; + int myargc=ARG_COUNT(ht); + if (myargc <2 || myargc > 3 || getParameters(ht,myargc,&streamind,&src_calendar,&dest_calendar) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_string(src_calendar); + convert_to_string(dest_calendar); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } +/* + if(mcal_rename(mcal_le_struct->mcal_stream,src_calendar->value.str.val,dest_calendar->value.str.val)) {RETURN_TRUE;} + else {RETURN_FALSE; } +*/ +} +/* }}} */ + + + + +/* {{{ proto int mcal_reopen(int stream_id, array date, array time) + list alarms for a given time */ +void php3_mcal_list_alarms(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind, *date,*time; + pval **pvalue; + datetime_t mydate; + int ind, ind_type; + pils *mcal_le_struct; + int mcal_folders=0; + unsigned int msgno; + cal_list_t *my_cal_list; + + int myargc=ARG_COUNT(ht); + if (myargc != 3 || getParameters(ht,myargc,&streamind,&date,&time) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_array(date); + convert_to_array(time); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + if (array_init(return_value) == FAILURE) { + RETURN_FALSE; + } + mydate.has_date=1; + mydate.has_time=1; + if(_php3_hash_find(date->value.ht,"year",sizeof("year"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + mydate.year=(*pvalue)->value.lval; + } + if(_php3_hash_find(date->value.ht,"month",sizeof("month"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + mydate.mon=(*pvalue)->value.lval; + } + if(_php3_hash_find(date->value.ht,"day",sizeof("day"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + mydate.mday=(*pvalue)->value.lval; + } + + if(_php3_hash_find(time->value.ht,"hour",sizeof("hour"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + mydate.hour=(*pvalue)->value.lval; + } + if(_php3_hash_find(time->value.ht,"minute",sizeof("minute"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + mydate.min=(*pvalue)->value.lval; + } + mydate.sec=0; + g_cal_list=NULL; + cal_search_alarm(mcal_le_struct->mcal_stream,&mydate); + my_cal_list=g_cal_list; + while(my_cal_list != NULL) + { + add_next_index_long(return_value,my_cal_list->uid); + my_cal_list=my_cal_list->next; + free(g_cal_list); + g_cal_list=my_cal_list; + } + + +} +/* }}} */ + + +/* {{{ proto string mcal_delete_calendar(int stream_id, string calendar) + Delete calendar*/ +void php3_mcal_delete_calendar(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind, *calendar; + int ind, ind_type; + pils *mcal_le_struct; + int myargc=ARG_COUNT(ht); + if (myargc <1 || myargc > 2 || getParameters(ht,myargc,&streamind,&calendar) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_string(calendar); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + if (mcal_delete_calendar(mcal_le_struct->mcal_stream,calendar->value.str.val)) + { + RETURN_TRUE; + } + else + { + RETURN_FALSE; + } + +} +/* }}} */ + + +/* {{{ proto string mcal_delete_event(int stream_id, int uid) + Delete event*/ +void php3_mcal_delete_event(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind, *uid; + int ind, ind_type; + pils *mcal_le_struct; + int myargc=ARG_COUNT(ht); + if (myargc <1 || myargc > 2 || getParameters(ht,myargc,&streamind,&uid) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_long(uid); + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + if (cal_remove(mcal_le_struct->mcal_stream,uid->value.lval)) + { + RETURN_TRUE; + } + else + { + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto string mcal_delete_calendar(int stream_id, int uid) + Delete event*/ +mcal_delete_calendar(){ + return 1; +} +/* }}} */ + +void php3_mcal_popen(INTERNAL_FUNCTION_PARAMETERS){ +} + + +/* {{{ proto string mcal_store_event(int stream_id, object event) + Store an event*/ +void php3_mcal_store_event(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind,*storeobject; + int ind, ind_type; + unsigned long i; + char *t; + int mcal_folders=0; + unsigned int msgno; + pils *mcal_le_struct; + pval **pvalue,**temppvalue; + cal_list_t *my_cal_list; + int myargc; + unsigned long uid; + CALEVENT *myevent; + myargc=ARG_COUNT(ht); + if (myargc !=2 || getParameters(ht,myargc,&streamind,&storeobject) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_array(storeobject); + + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + /* Initialize return array */ + if (array_init(return_value) == FAILURE) { + RETURN_FALSE; + } + myevent=calevent_new(); + if(_php3_hash_find(storeobject->value.ht,"uid",sizeof("uid"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->id=(*pvalue)->value.lval; + } + if(_php3_hash_find(storeobject->value.ht,"public",sizeof("public"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->public=(*pvalue)->value.lval; + } + if(_php3_hash_find(storeobject->value.ht,"category",sizeof("category"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_string(*pvalue); + myevent->category=strdup((*pvalue)->value.str.val); + } + if(_php3_hash_find(storeobject->value.ht,"title",sizeof("title"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_string(*pvalue); + myevent->title=strdup((*pvalue)->value.str.val); + } + if(_php3_hash_find(storeobject->value.ht,"description",sizeof("description"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_string(*pvalue); + myevent->description=strdup((*pvalue)->value.str.val); + } + + if(_php3_hash_find(storeobject->value.ht,"alarm",sizeof("alarm"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->alarm=(*pvalue)->value.lval; + } + + + if(_php3_hash_find(storeobject->value.ht,"start",sizeof("start"),(void **) &temppvalue)== SUCCESS){ + SEPARATE_ZVAL(temppvalue); + convert_to_array(*temppvalue); + + if(_php3_hash_find((*temppvalue)->value.ht,"year",sizeof("year"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.year=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"month",sizeof("month"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.mon=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"mday",sizeof("mday"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.mday=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"hour",sizeof("hour"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.hour=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"min",sizeof("min"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.min=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"sec",sizeof("sec"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->start.sec=(*pvalue)->value.lval; + } + myevent->start.has_date=true; + } + + if(_php3_hash_find(storeobject->value.ht,"end",sizeof("end"),(void **) &temppvalue)== SUCCESS){ + SEPARATE_ZVAL(temppvalue); + convert_to_array(*temppvalue); + + if(_php3_hash_find((*temppvalue)->value.ht,"year",sizeof("year"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.year=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"month",sizeof("month"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.mon=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"mday",sizeof("mday"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.mday=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"hour",sizeof("hour"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.hour=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"min",sizeof("min"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.min=(*pvalue)->value.lval; + } + if(_php3_hash_find((*temppvalue)->value.ht,"sec",sizeof("sec"),(void **) &pvalue)== SUCCESS){ + SEPARATE_ZVAL(pvalue); + convert_to_long(*pvalue); + myevent->end.sec=(*pvalue)->value.lval; + } + myevent->end.has_date=true; + } + + cal_append(mcal_le_struct->mcal_stream,"INBOX",&uid,myevent); + calevent_free(myevent); + RETURN_LONG(uid); +} +/* }}} */ + + +/* {{{ proto string mcal_snooze(int stream_id, int uid) + Snooze an alarm*/ +void php3_mcal_snooze(INTERNAL_FUNCTION_PARAMETERS) +{ + pval *streamind,*uid; + int ind, ind_type; + pils *mcal_le_struct; + pval **pvalue; + int myargc; + myargc=ARG_COUNT(ht); + if (myargc !=2 || getParameters(ht,myargc,&streamind,&uid) == FAILURE) { + WRONG_PARAM_COUNT; + } + + convert_to_long(streamind); + convert_to_long(uid); + + ind = streamind->value.lval; + + mcal_le_struct = (pils *)php3_list_find(ind, &ind_type); + + if (!mcal_le_struct ) { + php3_error(E_WARNING, "Unable to find stream pointer"); + RETURN_FALSE; + } + + if(cal_snooze(mcal_le_struct->mcal_stream,uid->value.lval)) + { + RETURN_TRUE; + } + else + { + RETURN_FALSE; + } + + +} +/* }}} */ + + +/* Interfaces to callbacks */ + + +void cc_searched (unsigned long cal_uid) +{ + + if(g_cal_list==NULL) + { + g_cal_list=malloc(sizeof(struct cal_list)); + g_cal_list->uid=cal_uid; + g_cal_list->next=NULL; + g_cal_list_end=g_cal_list; + } + else + { + g_cal_list_end->next=malloc(sizeof(struct cal_list)); + g_cal_list_end=g_cal_list_end->next; + g_cal_list_end->uid=cal_uid; + g_cal_list_end->next=NULL; + } +} + + + + + + +void cc_appended(u_int32_t uid) +{ + +} + + +void cc_fetched(const CALEVENT *event) +{ + +} + + +void cc_login(const char **user, const char **pwd) +{ + +*user=mcal_user; +*pwd=mcal_password; +} + + +void cc_vlog(const char *fmt,va_list ap) +{ +} +void cc_vdlog(const char *fmt,va_list ap) +{ +} + +#endif + + +/* + * Local_ variables: + * tab-width: 4 + * c-basic-offset: 4 + * End: + */ + + |