martin: server/php php-getacl-backport.patch, NONE, 1.1 php-imap-annotation.patch, NONE, 1.1 php-imap-status-current.patch, NONE, 1.1
cvs at intevation.de
cvs at intevation.de
Wed Jun 15 16:20:57 CEST 2005
Author: martin
Update of /kolabrepository/server/php
In directory doto:/tmp/cvs-serv32721/php
Added Files:
php-getacl-backport.patch php-imap-annotation.patch
php-imap-status-current.patch
Log Message:
Martin Konold: php patches for IMAP acls, IMAP annotations and IMAP status
Adding the following four new php functions:
php-getacl-backport.patch:+PHP_FUNCTION(imap_getacl)
php-imap-annotation.patch:+PHP_FUNCTION(imap_getannotation)
php-imap-annotation.patch:+PHP_FUNCTION(imap_setannotation)
php-imap-status-current.patch:+PHP_FUNCTION(imap_status_current)
Kudos to Thomas J. from Konsec and Intra2Net for providing the really clean implementation and to Mirko and others for the extensive testing.
--- NEW FILE: php-getacl-backport.patch ---
diff -u -r php-4.3.11/ext/imap/php_imap.c php-4.3.11.getacl/ext/imap/php_imap.c
--- php-4.3.11/ext/imap/php_imap.c 2005-01-25 15:23:37.000000000 +0100
+++ php-4.3.11.getacl/ext/imap/php_imap.c 2005-06-02 13:34:27.412014859 +0200
@@ -139,6 +139,7 @@
PHP_FE(imap_get_quotaroot, NULL)
PHP_FE(imap_set_quota, NULL)
PHP_FE(imap_setacl, NULL)
+ PHP_FE(imap_getacl, NULL)
#endif
PHP_FE(imap_mail, NULL)
@@ -378,6 +379,21 @@
/* }}} */
#endif
+/* {{{ mail_getacl
+ *
+ * Mail GET_ACL callback
+ * Called via the mail_parameter function in c-client:src/c-client/mail.c
+ */
+void mail_getacl(MAILSTREAM *stream, char *mailbox, ACLLIST *alist)
+{
+ TSRMLS_FETCH();
+
+ /* walk through the ACLLIST */
+ for(; alist; alist = alist->next) {
+ add_assoc_stringl(IMAPG(imap_acl_list), alist->identifier, alist->rights, strlen(alist->rights), 1);
+ }
+}
+/* }}} */
/* {{{ php_imap_init_globals
*/
@@ -988,6 +1004,40 @@
}
/* }}} */
+/* {{{ proto array imap_getacl(resource stream_id, string mailbox)
+ Gets the ACL for a given mailbox */
+PHP_FUNCTION(imap_getacl)
+{
+ zval **streamind, **mailbox;
+ pils *imap_le_struct;
+
+ if(ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &streamind, &mailbox) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ ZEND_FETCH_RESOURCE(imap_le_struct, pils *, streamind, -1, "imap", le_imap);
+
+ convert_to_string_ex(mailbox);
+
+ /* initializing the special array for the return values */
+ if (array_init(return_value) == FAILURE) {
+ RETURN_FALSE;
+ }
+
+ IMAPG(imap_acl_list) = return_value;
+
+ /* set the callback for the GET_ACL function */
+ mail_parameters(NIL, SET_ACL, (void *) mail_getacl);
+ if(!imap_getacl(imap_le_struct->imap_stream, Z_STRVAL_PP(mailbox))) {
+ php_error(E_WARNING, "c-client imap_getacl failed");
+ zval_dtor(return_value);
+ RETURN_FALSE;
+ }
+
+ IMAPG(imap_acl_list) = NIL;
+}
+/* }}} */
+
#endif /* HAVE_IMAP2000 || HAVE_IMAP2001 */
diff -u -r php-4.3.11/ext/imap/php_imap.h php-4.3.11.getacl/ext/imap/php_imap.h
--- php-4.3.11/ext/imap/php_imap.h 2003-06-13 16:45:36.000000000 +0200
+++ php-4.3.11.getacl/ext/imap/php_imap.h 2005-06-02 13:42:19.730013114 +0200
@@ -172,6 +172,7 @@
PHP_FUNCTION(imap_get_quotaroot);
PHP_FUNCTION(imap_set_quota);
PHP_FUNCTION(imap_setacl);
+PHP_FUNCTION(imap_getacl);
#endif
@@ -202,6 +203,7 @@
unsigned long status_uidvalidity;
#if defined(HAVE_IMAP2000) || defined(HAVE_IMAP2001)
zval **quota_return;
+ zval *imap_acl_list;
#endif
ZEND_END_MODULE_GLOBALS(imap)
--- NEW FILE: php-imap-annotation.patch ---
diff -u -r php-4.3.11/ext/imap/php_imap.c php-4.3.11.annotations/ext/imap/php_imap.c
--- php-4.3.11/ext/imap/php_imap.c 2005-06-04 22:06:19.203115601 +0200
+++ php-4.3.11.annotations/ext/imap/php_imap.c 2005-06-04 21:30:36.000000000 +0200
@@ -142,6 +142,10 @@
PHP_FE(imap_setacl, NULL)
PHP_FE(imap_getacl, NULL)
#endif
+#if defined(HAVE_IMAP2005)
+ PHP_FE(imap_setannotation, NULL)
+ PHP_FE(imap_getannotation, NULL)
+#endif
PHP_FE(imap_mail, NULL)
@@ -396,6 +400,27 @@
}
/* }}} */
+#if defined(HAVE_IMAP2005)
+/* {{{ mail_getannotation
+ *
+ * Mail GET_ANNOTATION callback
+ * Called via the mail_parameter function in c-client:src/c-client/mail.c
+ */
+void mail_getannotation(MAILSTREAM *stream, ANNOTATION *alist)
+{
+ ANNOTATION_VALUES *cur;
+
+ TSRMLS_FETCH();
+
+ /* walk through the ANNOTATION_VALUES */
+
+ for(cur = alist->values; cur; cur = cur->next) {
+ add_assoc_stringl(IMAPG(imap_annotation_list), cur->attr, cur->value, strlen(cur->value), 1);
+ }
+}
+/* }}} */
+#endif
+
/* {{{ php_imap_init_globals
*/
static void php_imap_init_globals(zend_imap_globals *imap_globals)
@@ -1041,6 +1066,122 @@
#endif /* HAVE_IMAP2000 || HAVE_IMAP2001 */
+#if defined(HAVE_IMAP2005)
+
+/* {{{ proto bool imap_setannotation(resource stream_id, string mailbox, string entry, string attr, string value)
+ Sets an annotation for a given mailbox */
+PHP_FUNCTION(imap_setannotation)
+{
+ zval **streamind, **mailbox, **entry, **attr, **value;
+ pils *imap_le_struct;
+ long ret;
+
+ // TODO: Use zend_parse_parameters here
+ if (ZEND_NUM_ARGS() != 5 || zend_get_parameters_ex(5, &streamind, &mailbox, &entry, &attr, &value) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ ZEND_FETCH_RESOURCE(imap_le_struct, pils *, streamind, -1, "imap", le_imap);
+
+ convert_to_string_ex(mailbox);
+ convert_to_string_ex(entry);
+ convert_to_string_ex(attr);
+ convert_to_string_ex(value);
+
+ // create annotation object
+ ANNOTATION *annotation = mail_newannotation();
+ if (!annotation)
+ RETURN_FALSE;
+ annotation->values = mail_newannotationvalue();
+ if (!annotation->values) {
+ mail_free_annotation(&annotation);
+ RETURN_FALSE;
+ }
+
+ // fill in annotation values
+ annotation->mbox = Z_STRVAL_PP(mailbox);
+ annotation->entry = Z_STRVAL_PP(entry);
+ annotation->values->attr = Z_STRVAL_PP(attr);
+ annotation->values->value = Z_STRVAL_PP(value);
+
+ ret = imap_setannotation(imap_le_struct->imap_stream, annotation);
+
+ // make sure mail_free_annotation doesn't free our variables
+ annotation->mbox = NULL;
+ annotation->entry = NULL;
+ annotation->values->attr = NULL;
+ annotation->values->value = NULL;
+ mail_free_annotation(&annotation);
+
+ RETURN_BOOL(ret);
+}
+/* }}} */
+
+/* {{{ proto array imap_getannotation(resource stream_id, string mailbox, string entry, string attr)
+ Gets the ACL for a given mailbox */
+PHP_FUNCTION(imap_getannotation)
+{
+ zval **streamind, **mailbox, **entry, **attr;
+ pils *imap_le_struct;
+ long ret;
+
+ if(ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &streamind, &mailbox, &entry, &attr) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ ZEND_FETCH_RESOURCE(imap_le_struct, pils *, streamind, -1, "imap", le_imap);
+
+ convert_to_string_ex(mailbox);
+ convert_to_string_ex(entry);
+ convert_to_string_ex(attr);
+
+ /* initializing the special array for the return values */
+ if (array_init(return_value) == FAILURE) {
+ RETURN_FALSE;
+ }
+
+ // fillup calling parameters
+ STRINGLIST *entries = mail_newstringlist();
+ if (!entries)
+ RETURN_FALSE;
+
+ STRINGLIST *cur = entries;
+ cur->text.data = (unsigned char *)cpystr(Z_STRVAL_PP(entry));
+ cur->text.size = Z_STRLEN_PP(entry);
+ cur->next = NIL;
+
+ STRINGLIST *attributes = mail_newstringlist();
+ cur = attributes;
+ cur->text.data = (unsigned char *)cpystr (Z_STRVAL_PP(attr));
+ cur->text.size = Z_STRLEN_PP(attr);
+ cur->next = NIL;
+
+ /* initializing the special array for the return values */
+ if (array_init(return_value) == FAILURE) {
+ mail_free_stringlist(&entries);
+ mail_free_stringlist(&attributes);
+ RETURN_FALSE;
+ }
+
+ IMAPG(imap_annotation_list) = return_value;
+
+ /* set the callback for the GET_ANNOTATION function */
+ mail_parameters(NIL, SET_ANNOTATION, (void *) mail_getannotation);
+ ret = imap_getannotation(imap_le_struct->imap_stream, Z_STRVAL_PP(mailbox), entries, attributes);
+
+ mail_free_stringlist(&entries);
+ mail_free_stringlist(&attributes);
+
+ if (!ret) {
+ zval_dtor(return_value);
+ RETURN_FALSE;
+ }
+
+ IMAPG(imap_annotation_list) = NIL;
+}
+/* }}} */
+
+#endif /* HAVE_IMAP2005 */
/* {{{ proto bool imap_expunge(resource stream_id)
Permanently delete all messages marked for deletion */
diff -u -r php-4.3.11/ext/imap/php_imap.h php-4.3.11.annotations/ext/imap/php_imap.h
--- php-4.3.11/ext/imap/php_imap.h 2005-06-04 22:06:19.206115386 +0200
+++ php-4.3.11.annotations/ext/imap/php_imap.h 2005-06-04 20:00:58.000000000 +0200
@@ -168,6 +168,9 @@
PHP_FUNCTION(imap_thread);
PHP_FUNCTION(imap_timeout);
+// TODO: Needs fixing in configure in
+#define HAVE_IMAP2005 1
+
#if defined(HAVE_IMAP2000) || defined(HAVE_IMAP2001)
PHP_FUNCTION(imap_get_quota);
PHP_FUNCTION(imap_get_quotaroot);
@@ -175,7 +178,10 @@
PHP_FUNCTION(imap_setacl);
PHP_FUNCTION(imap_getacl);
#endif
-
+#if defined(HAVE_IMAP2005)
+PHP_FUNCTION(imap_setannotation);
+PHP_FUNCTION(imap_getannotation);
+#endif
ZEND_BEGIN_MODULE_GLOBALS(imap)
char *imap_user;
@@ -206,6 +212,9 @@
zval **quota_return;
zval *imap_acl_list;
#endif
+#if defined(HAVE_IMAP2005)
+ zval *imap_annotation_list;
+#endif
ZEND_END_MODULE_GLOBALS(imap)
#ifdef ZTS
--- NEW FILE: php-imap-status-current.patch ---
diff -u -r -p ext/imap/php_imap.c ext.imap/imap/php_imap.c
--- ext/imap/php_imap.c Tue Jan 25 15:23:37 2005
+++ ext.imap/imap/php_imap.c Wed Jun 1 17:35:41 2005
@@ -115,6 +115,7 @@ function_entry imap_functions[] = {
PHP_FE(imap_binary, NULL)
PHP_FE(imap_utf8, NULL)
PHP_FE(imap_status, NULL)
+ PHP_FE(imap_status_current, NULL)
PHP_FE(imap_mailboxmsginfo, NULL)
PHP_FE(imap_setflag_full, NULL)
PHP_FE(imap_clearflag_full, NULL)
@@ -2548,6 +2549,42 @@ PHP_FUNCTION(imap_msgno)
convert_to_long_ex(msgno);
RETURN_LONG(mail_msgno(imap_le_struct->imap_stream, Z_LVAL_PP(msgno)));
+}
+/* }}} */
+
+/* {{{ proto object imap_status_current(resource stream_id, int options)
+ Get (cached) status info from current mailbox */
+PHP_FUNCTION(imap_status_current)
+{
+ zval **streamind, **pflags;
+ pils *imap_le_struct;
+ long flags = 0L;
+
+ if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &streamind, &pflags) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ ZEND_FETCH_RESOURCE(imap_le_struct, pils *, streamind, -1, "imap", le_imap);
+
+ convert_to_long_ex(pflags);
+ flags = Z_LVAL_PP(pflags);
+
+ if (object_init(return_value) == FAILURE) {
+ RETURN_FALSE;
+ }
+
+ if (flags & SA_MESSAGES) {
+ add_property_long(return_value, "messages", imap_le_struct->imap_stream->nmsgs);
+ }
+ if (flags & SA_RECENT) {
+ add_property_long(return_value, "recent", imap_le_struct->imap_stream->recent);
+ }
+ if (flags & SA_UIDNEXT) {
+ add_property_long(return_value, "uidnext", imap_le_struct->imap_stream->uid_last+1);
+ }
+ if (flags & SA_UIDVALIDITY) {
+ add_property_long(return_value, "uidvalidity", imap_le_struct->imap_stream->uid_validity);
+ }
}
/* }}} */
diff -u -r -p ext/imap/php_imap.h ext.imap/imap/php_imap.h
--- ext/imap/php_imap.h Fri Jun 13 16:45:36 2003
+++ ext.imap/imap/php_imap.h Wed Jun 1 17:35:49 2005
@@ -151,6 +151,7 @@ PHP_FUNCTION(imap_lsub);
PHP_FUNCTION(imap_lsub_full);
PHP_FUNCTION(imap_create);
PHP_FUNCTION(imap_rename);
+PHP_FUNCTION(imap_status_current);
PHP_FUNCTION(imap_status);
PHP_FUNCTION(imap_bodystruct);
PHP_FUNCTION(imap_fetch_overview);
More information about the commits
mailing list