--- /dev/null
+/*
+ +----------------------------------------------------------------------+
+ | PHP version 4.0 |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.01 of the PHP license, |
+ | that is bundled with this package in the file LICENSE, and is |
+ | available at through the world-wide-web at |
+ | http://www.php.net/license/2_01.txt. |
+ | If you did not receive a copy of the PHP license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@php.net so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: Brad Atkins <brad@youreshop.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifdef COMPILE_DL_NOTES
+#define HAVE_NOTES 1
+#endif
+
+#include "php.h"
+#include "php_globals.h"
+#include "php_notes.h"
+#include "ext/standard/info.h"
+
+#include <notes_global.h>
+#include <nsfdb.h>
+#include <nsfdata.h>
+#include <osmisc.h>
+#include <miscerr.h>
+#include <nif.h>
+#include <nsfnote.h>
+#include <editods.h>
+#include <osmem.h>
+#include <stdnames.h>
+#include <nsfsearc.h>
+#include <colorid.h>
+#include <names.h>
+#include <stdnames.h>
+#include <nsferr.h>
+
+/* notes_unread */
+
+#include <idtable.h>
+#include <kfm.h>
+
+/* notes_header_info, notes_body */
+
+#include <malloc.h>
+#include <io.h>
+#include <direct.h>
+#include <fcntl.h>
+
+#include <globerr.h>
+#include <notes_mail.h>
+#include <mailserv.h>
+#include <nsf.h>
+#include <osfile.h> /* OSPathNetConstruct */
+#include <osenv.h> /* OSGetEnvironmentString */
+
+/* notes_nav_create */
+#include <vmods.h>
+
+/* notes_search */
+
+#include <ft.h>
+#include <textlist.h>
+
+/* notes_list */
+
+#define STRING_LENGTH 256
+
+function_entry notes_functions[] = {
+ PHP_FE(notes_create_db, NULL)
+ PHP_FE(notes_drop_db, NULL)
+ PHP_FE(notes_version, NULL)
+ PHP_FE(notes_create_note, NULL)
+ PHP_FE(notes_unread, NULL)
+ PHP_FE(notes_mark_read, NULL)
+ PHP_FE(notes_mark_unread, NULL)
+ PHP_FE(notes_header_info, NULL)
+ PHP_FE(notes_body, NULL)
+ PHP_FE(notes_find_note, NULL)
+ PHP_FE(notes_nav_create, NULL)
+ PHP_FE(notes_search, NULL)
+ PHP_FE(notes_copy_db, NULL)
+ PHP_FE(notes_list_msgs, NULL)
+ {NULL, NULL, NULL}
+};
+
+zend_module_entry notes_module_entry = {
+ "notes",
+ notes_functions,
+ PHP_MINIT(notes),
+ PHP_MSHUTDOWN(notes),
+ PHP_RINIT(notes),
+ PHP_RSHUTDOWN(notes),
+ PHP_MINFO(notes),
+ STANDARD_MODULE_PROPERTIES
+};
+
+#ifdef COMPILE_DL_NOTES
+ZEND_GET_MODULE(notes)
+#endif
+
+
+PHP_MINIT_FUNCTION(notes)
+{
+ return SUCCESS;
+}
+
+
+PHP_MSHUTDOWN_FUNCTION(notes)
+{
+ return SUCCESS;
+}
+
+PHP_RSHUTDOWN_FUNCTION(notes)
+{
+ return SUCCESS;
+}
+
+
+PHP_RINIT_FUNCTION(notes)
+{
+
+ return SUCCESS;
+}
+
+
+PHP_MINFO_FUNCTION(notes)
+{
+
+ php_info_print_table_start();
+
+ php_info_print_table_row(2, "Lotus Notes Database Support", "enabled");
+ php_info_print_table_end();
+}
+
+/* {{{ proto bool notes_create_db(string database_name)
+ Create a Lotus Notes database */
+PHP_FUNCTION(notes_create_db)
+{
+
+ int argc;
+ pval *argv[1];
+ STATUS error;
+ pval **db;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE)
+ WRONG_PARAM_COUNT;
+
+ if (zend_get_parameters_ex(1, &db)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbCreate ((*db)->value.str.val, (USHORT) DBCLASS_NOTEFILE, FALSE)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+ NotesTerm();
+ RETURN_TRUE;
+}
+/* }}} */
+
+/* {{{ proto bool notes_drop_db(string database_name)
+ Drop a Lotus Notes database */
+PHP_FUNCTION(notes_drop_db)
+{
+
+ int argc;
+ pval *argv[1];
+ STATUS error;
+ pval **db;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE)
+ WRONG_PARAM_COUNT;
+
+ if (zend_get_parameters_ex(1, &db)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbDelete ((*db)->value.str.val)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to delete database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+ NotesTerm();
+ RETURN_TRUE;
+}
+/* }}} */
+
+/* {{{ proto string notes_version(string database_name)
+ Get the version Lotus Notes */
+PHP_FUNCTION(notes_version)
+{
+
+ int argc;
+ pval *argv[1];
+ STATUS error;
+ DBHANDLE db_handle;
+ WORD wbuild;
+ char error_string[200];
+ pval **db;
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(1, &db)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if( error = NSFDbGetBuildVersion (db_handle, &wbuild) ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to get Lotus Notes version: %s", error_string);
+ NSFDbClose(db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ NSFDbClose(db_handle);
+ NotesTerm();
+
+ if( wbuild > 0 && wbuild < 82 ){
+
+ RETURN_DOUBLE(1.0);
+ }
+ else{
+
+ if( wbuild > 81 && wbuild < 94 ){
+
+ RETURN_DOUBLE(2.0);
+ }
+ else{
+
+ if(wbuild > 93 && wbuild < 119 ){
+
+ RETURN_DOUBLE(3.0);
+ }
+ else{
+
+ if( wbuild > 118 && wbuild < 137 ){
+
+ RETURN_DOUBLE(4.0);
+ }
+ else{
+
+ if( wbuild == 138 ){
+
+ RETURN_DOUBLE(4.1);
+ }
+ else{
+
+ if( wbuild > 139 && wbuild < 146 ){
+
+ RETURN_DOUBLE(4.5);
+ }
+ else{
+
+ if( wbuild == 147 ){
+
+ RETURN_DOUBLE(4.6);
+ }
+ else{
+
+ RETURN_DOUBLE(5.0);
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+}
+/* }}} */
+
+/* {{{ proto string notes_create_note(string database_name, string form_name)
+ Create a note using form form_name */
+PHP_FUNCTION(notes_create_note)
+{
+
+ int argc;
+ pval *argv[2];
+ STATUS error;
+ DBHANDLE db_handle;
+ NOTEHANDLE note_handle;
+ char error_string[200];
+ pval **db;
+ pval **form_name;
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(2, &db, &form_name)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(form_name);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = NSFNoteCreate (db_handle, ¬e_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create note: error_string");
+ NSFDbClose( db_handle );
+ RETURN_FALSE;
+ }
+
+ /* Append the form name item to the new note */
+ if (error = NSFItemSetText( note_handle,
+ FIELD_FORM,
+ (*form_name)->value.str.val,
+ MAXWORD)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to use the form: %s", error_string);
+ NSFNoteClose (note_handle);
+ NSFDbClose( db_handle );
+ RETURN_FALSE;
+ }
+
+ if (error = NSFNoteUpdate (note_handle, 0)) {
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to save the note: %s", error_string);
+ NSFNoteClose (note_handle);
+ NSFDbClose(db_handle);
+ RETURN_FALSE;
+ }
+
+ error = NSFNoteClose (note_handle);
+
+ NSFDbClose(db_handle);
+ NotesTerm();
+
+ RETURN_TRUE;
+}
+/* }}} */
+
+/* Declarations for notes_mark_read and notes_mark_unread */
+
+#define ACTION_COUNT_MAX (16)
+
+
+/* Entries in the action table */
+
+typedef struct {
+ BOOL AddFlag; /* TRUE: Add, FALSE: Remove */
+ NOTEID NoteID;
+} ACTION_ENTRY;
+
+ /* Table of actions to be performed */
+ACTION_ENTRY ActionTable [ACTION_COUNT_MAX] = {FALSE, 0L};
+
+/*
+ * Forward references
+ */
+
+ /* Function to display unread note table */
+STATUS DisplayUnread (
+ DBHANDLE db_handle,
+ char NOTESPTR pName,
+ WORD nameLen
+);
+
+ /* Function to apply actions to unread note table */
+STATUS UpdateUnread (
+ DBHANDLE db_handle,
+ char NOTESPTR pName,
+ WORD nameLen,
+ ACTION_ENTRY *pActions,
+ int actionCount,
+ NOTEID *pUndoID
+);
+
+ /* Function that updates a note without changing its unread status */
+STATUS UndoUnreadStatus (
+ DBHANDLE db_handle,
+ char NOTESPTR pName,
+ WORD nameLen,
+ ACTION_ENTRY *pActions,
+ int actionCount,
+ NOTEID UndoID);
+
+
+/* {{{ proto string notes_mark_read(string database_name, string user_name, string note_id)
+ Mark a note_id as read for the User user_name
+ Note: user_name must be fully distinguished user name
+*/
+PHP_FUNCTION(notes_mark_read){
+
+ int argc;
+ int ActionCount;
+ pval *argv[3];
+ STATUS error;
+ DBHANDLE db_handle;
+ pval **db;
+ pval **note_id;
+ pval **user_name;
+
+
+/* Local data declarations */
+
+ WORD UserNameLen = 0;
+ char *pEnd;
+ int curAction;
+ int curArg;
+ NOTEID UndoID = 0L;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &db, &user_name, ¬e_id)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(note_id);
+ convert_to_string_ex(user_name);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ curArg = 2;
+
+ UserNameLen = strlen ((*user_name)->value.str.val);
+
+ curAction = 0;
+ ActionCount = 1;
+
+ ActionTable[curAction].AddFlag = FALSE;
+
+ ActionTable[curAction].NoteID =
+ strtoul ((*note_id)->value.str.val, &pEnd, 16);
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ error = UpdateUnread (db_handle, (*user_name)->value.str.val, UserNameLen,
+ ActionTable, ActionCount, &UndoID);
+
+ if ( (error == NOERROR) && UndoID ){
+
+ error = UndoUnreadStatus (db_handle, (*user_name)->value.str.val, UserNameLen, ActionTable,
+ ActionCount, UndoID);
+ }
+
+ /* Close the database */
+ error = NSFDbClose (db_handle);
+
+ if (NOERROR == error){
+
+ RETURN_TRUE;
+ }
+ else{
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to close database: %s", error_string);
+ RETURN_FALSE;
+ }
+}
+/* }}} */
+
+/* {{{ proto string notes_mark_unread(string database_name, string user_name, string note_id)
+ Mark a note_id as unread for the User user_name
+ Note: user_name must be fully distinguished user name
+*/
+PHP_FUNCTION(notes_mark_unread){
+
+ int argc;
+ int ActionCount;
+ pval *argv[3];
+ STATUS error;
+ DBHANDLE db_handle;
+ pval **db;
+ pval **note_id;
+ pval **user_name;
+
+
+/* Local data declarations */
+
+ WORD UserNameLen = 0;
+ char *pEnd;
+ int curAction;
+ int curArg;
+ NOTEID UndoID = 0L;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &db, &user_name, ¬e_id)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(note_id);
+ convert_to_string_ex(user_name);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ curArg = 2;
+
+ UserNameLen = strlen ((*user_name)->value.str.val);
+
+ curAction = 0;
+ ActionCount = 1;
+
+ ActionTable[curAction].AddFlag = TRUE;
+
+ ActionTable[curAction].NoteID =
+ strtoul ((*note_id)->value.str.val, &pEnd, 16);
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ error = UpdateUnread (db_handle, (*user_name)->value.str.val, UserNameLen,
+ ActionTable, ActionCount, &UndoID);
+
+ if ( (error == NOERROR) && UndoID ){
+
+ error = UndoUnreadStatus (db_handle, (*user_name)->value.str.val, UserNameLen, ActionTable,
+ ActionCount, UndoID);
+ }
+
+ /* Close the database */
+ error = NSFDbClose (db_handle);
+
+ if (NOERROR == error){
+
+ RETURN_TRUE;
+ }
+ else{
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to close the database: %s", error_string);
+ RETURN_FALSE;
+ }
+}
+/* }}} */
+
+/*
+ * UpdateUnread - Update the Unread Note list
+ */
+
+STATUS UpdateUnread (
+ DBHANDLE db_handle,
+ char *pName,
+ WORD nameLen,
+ ACTION_ENTRY *pActions,
+ int actionCount,
+ NOTEID *pUndoID)
+{
+ STATUS error;
+ HANDLE table_handle;
+ HANDLE hOriginalTable;
+ NOTEHANDLE note_handle;
+ BOOL gotUndoID = FALSE;
+
+ /* Get the unread list */
+ error = NSFDbGetUnreadNoteTable (
+ db_handle,
+ pName,
+ nameLen,
+ TRUE, /* Create the list if it's not already there */
+ &table_handle);
+
+ if (NOERROR != error){
+
+ return (error);
+ }
+
+ /* Notes requires the original unread table to merge changes */
+ error = IDTableCopy (table_handle, &hOriginalTable);
+
+ if (NOERROR != error){
+
+ IDDestroyTable (table_handle);
+ return (error);
+ }
+
+ /* Bring table up to date */
+ error = NSFDbUpdateUnread (db_handle, table_handle);
+ if (NOERROR == error){
+
+ if (pActions[0].AddFlag){
+
+ /* Adding a Note ID */
+ /* (Marks note as Unread) */
+ if (IDIsPresent (table_handle, pActions[0].NoteID)){
+
+ php_error(E_WARNING,"Note %lX is already marked unread", pActions[0].NoteID);
+ }
+ else{
+ /* make sure we check to see if this note really exists
+ at all */
+ error = NSFNoteOpen(db_handle, pActions[0].NoteID, OPEN_SUMMARY, ¬e_handle);
+
+ /* if it does we'll add it to the unread list */
+ if (error == NOERROR){
+
+ NSFNoteClose(note_handle);
+ error = IDInsert (table_handle, pActions[0].NoteID,
+ (NOTESBOOL NOTESPTR) NULL);
+
+ }
+ }
+ }
+ else{
+
+ /* Removing a Note ID */
+ /* (Marks note as Read) */
+
+ if (IDIsPresent (table_handle, pActions[0].NoteID)){
+
+ error = IDDelete (table_handle, pActions[0].NoteID,
+ (NOTESBOOL NOTESPTR) NULL);
+
+ if (NOERROR == error){
+
+ if (!gotUndoID){
+ *pUndoID = pActions[0].NoteID;
+ gotUndoID = TRUE;
+ }
+ }
+ }
+ else{
+
+ php_error(E_WARNING,"Note %lX is already marked read", pActions[0].NoteID);
+ }
+ }
+
+ if (NOERROR == error){
+
+ error = NSFDbSetUnreadNoteTable (db_handle, pName, nameLen,
+ FALSE, /* Don't force the
+ write to disk */
+ hOriginalTable,
+ table_handle);
+ }
+ }
+
+ error = IDDestroyTable (hOriginalTable);
+ if (NOERROR == error){
+
+ error = error;
+ }
+
+ error = IDDestroyTable (table_handle);
+
+ if (NOERROR == error){
+
+ error = error;
+ }
+
+ return (error);
+}
+
+
+/*
+ * UndoUnreadStatus - Update a note in the database without
+ changing its read/unread mark
+ */
+
+STATUS UndoUnreadStatus (
+ DBHANDLE db_handle,
+ char *pName,
+ WORD nameLen,
+ ACTION_ENTRY *pActions,
+ int actionCount,
+ NOTEID UndoID)
+{
+ STATUS error;
+ HANDLE table_handle;
+ HANDLE hOriginalTable;
+ DWORD noteID = 0L;
+ NOTEHANDLE note_handle;
+ BOOL bWasRead = TRUE;
+
+
+ /* Get the unread list */
+ error = NSFDbGetUnreadNoteTable (db_handle, pName, nameLen,
+ TRUE, /* Create the list if it's
+ not already there */
+ &table_handle);
+ if (NOERROR != error){
+
+ return (error);
+ }
+
+ /* Notes requires the original unread table to merge changes */
+
+ error = IDTableCopy (table_handle, &hOriginalTable);
+
+ if (NOERROR != error){
+
+ IDDestroyTable (table_handle);
+ return (error);
+ }
+
+ /* See if note to be modified is marked as read */
+ bWasRead = !(IDIsPresent (table_handle, UndoID));
+
+ /* Make a change to this note and update it. */
+ error = NSFNoteOpen (db_handle, UndoID, 0, ¬e_handle);
+
+ if (error){
+
+ IDDestroyTable (table_handle);
+ IDDestroyTable (hOriginalTable);
+ return (error);
+ }
+
+ error = NSFItemSetText (note_handle, "plain_text", "Unread undone",
+ (WORD) strlen("Unread undone"));
+ if (error){
+
+ NSFNoteClose (note_handle);
+ IDDestroyTable (table_handle);
+ IDDestroyTable (hOriginalTable);
+ return (error);
+ }
+
+ error = NSFNoteUpdate (note_handle, 0L);
+
+ if (error){
+
+ NSFNoteClose (note_handle);
+ IDDestroyTable (table_handle);
+ IDDestroyTable (hOriginalTable);
+ return (error);
+ }
+
+ error = NSFNoteClose (note_handle);
+
+ if (error){
+
+ IDDestroyTable (table_handle);
+ IDDestroyTable (hOriginalTable);
+ return (error);
+ }
+
+ /* The note just modified is now marked as unread.
+ Bring table up to date */
+
+ error = NSFDbUpdateUnread (db_handle, table_handle);
+
+ if ( (NOERROR == error) && bWasRead ){
+
+ /* Remove the Note ID that we just modified to mark it as read*/
+
+ error = IDDelete (table_handle, UndoID,
+ (NOTESBOOL NOTESPTR) NULL);
+
+ if( error != NOERROR ){
+
+ php_error(E_NOTICE,"Note %lX is already marked read.", UndoID);
+ }
+ }
+
+ /* Save unread table to disk */
+ if (NOERROR == error){
+
+ error = NSFDbSetUnreadNoteTable (db_handle, pName, nameLen,
+ FALSE, /* Don't force the write
+ to disk */
+ hOriginalTable, table_handle);
+ }
+
+ /* Clean up */
+ IDDestroyTable (hOriginalTable);
+ IDDestroyTable (table_handle);
+
+ return (error);
+}
+
+/* {{{ proto string notes_unread(string database_name, string user_name)
+ Returns the unread note id's for the current User user_name
+ Note: user_name must be fully distinguished user name*/
+PHP_FUNCTION(notes_unread){
+
+ int argc;
+ pval *argv[2];
+
+ STATUS error;
+ DBHANDLE db_handle;
+ WORD UserNameLen;
+ HANDLE table_handle;
+ DWORD noteID;
+ BOOL FirstNote;
+ char error_string[200];
+
+ pval **db;
+ pval **user_name;
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(2, &db, &user_name)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(user_name);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ UserNameLen = strlen((*user_name)->value.str.val);
+
+ /* Get the unread list */
+ if( error = NSFDbGetUnreadNoteTable (
+ db_handle,
+ (*user_name)->value.str.val,
+ UserNameLen,
+ TRUE, /* Create the list if it's not already there */
+ &table_handle) ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to get unread list: %s", error_string );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+ error = NSFDbUpdateUnread (db_handle, table_handle);
+ if (NOERROR != error)
+ {
+ IDDestroyTable (table_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to get unread list: %s", error_string );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+ FirstNote = TRUE;
+
+ array_init(return_value);
+
+ /* Print the entries in the unread list */
+ while (IDScan (table_handle, FirstNote, ¬eID)){
+
+ FirstNote = FALSE;
+
+ add_next_index_long(return_value, (long) noteID );
+ }
+
+ error = IDDestroyTable (table_handle);
+
+ /* Close the database */
+ error = NSFDbClose (db_handle);
+
+ if( error != NOERROR ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to close database: %s", error_string);
+ RETURN_FALSE;
+ }
+}
+/* }}} */
+
+#define ERR_READMAIL_NOUNIQUE (PKG_ADDIN + 0)
+#define READMAIL_BODY_LINELEN 40
+
+STATUS near pascal GetUniqueFileName(char *Drive, char *Ext, char *FileName);
+
+/* {{{ proto object notes_header_info(string server, string mailbox, int msg_number)
+ Open the message msg_number in the specified mailbox on the specified server (leave server
+ blank for local).
+
+ Elements:
+
+ originator (Contains orignal message sender. Relevant only when forwarded messages)
+ to
+ cc
+ bcc
+ from
+ date
+ status (blank if delivered, otherwise contains failure reason)
+ priority H: High N: Normal L: Low
+ receipt 1: Yes 0: No
+ subject*/
+PHP_FUNCTION(notes_header_info){
+
+ int argc;
+ pval *argv[3];
+
+ pval **server;
+ pval **mail_box;
+ pval **msg_number;
+
+ STATUS error = NOERROR;
+ char szMailFilePath[MAXPATH+1];
+ HANDLE hMessageFile;
+ HANDLE hMessageList = NULLHANDLE, hMessage;
+ DARRAY *MessageList;
+ WORD MessageCount;
+ char Originator[MAXRECIPIENTNAME+1];
+ WORD OriginatorLength;
+ char String[MAXSPRINTF+1];
+ WORD StringLength;
+ TIMEDATE Time;
+ BOOL NonDeliveryReport;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &server, &mail_box, &msg_number)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(server);
+ convert_to_string_ex(mail_box);
+ convert_to_long_ex(msg_number);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ OSPathNetConstruct( NULL, /* port name */
+ (*server)->value.str.val,
+ (*mail_box)->value.str.val,
+ szMailFilePath);
+
+ /* Open the message file. */
+
+ if (error = MailOpenMessageFile(szMailFilePath, &hMessageFile)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error: unable to open '%s': %s", szMailFilePath, error_string);
+ RETURN_FALSE;
+ }
+
+ /* Create message list of messages in the file - just 64K */
+
+ if (error = MailCreateMessageList(hMessageFile,
+ &hMessageList, &MessageList, &MessageCount)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create message list: %s", error_string);
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ RETURN_FALSE;
+ }
+
+
+ /* Print out each of the outbound messages. */
+
+ object_init(return_value);
+
+ if (error = MailOpenMessage (MessageList, (WORD)(*msg_number)->value.lval, &hMessage)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open message number %d: %s", (WORD)(*msg_number)->value.lval, error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ RETURN_FALSE;
+ }
+
+ /* Get the originator's name/address. */
+
+ if (error = MailGetMessageOriginator(MessageList, (WORD)(*msg_number)->value.lval,
+ Originator, sizeof(Originator), &OriginatorLength)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to get message originator: %s", error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ RETURN_FALSE;
+ }
+
+ add_property_string(return_value,"originator",Originator, 1);
+
+ /* SendTo */
+ MailGetMessageItem (hMessage, MAIL_SENDTO_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"to",String, 1);
+
+ /* PostedDate */
+ MailGetMessageItemTimeDate(hMessage, MAIL_POSTEDDATE_ITEM_NUM, &Time);
+ ConvertTIMEDATEToText(NULL, NULL, &Time, String,
+ sizeof(String), &StringLength);
+
+ add_property_string(return_value,"date",String, 1);
+
+ /* BCC */
+ MailGetMessageItem (hMessage, MAIL_BLINDCOPYTO_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"bcc", String, 1);
+
+ /* CopyTo */
+ MailGetMessageItem (hMessage, MAIL_COPYTO_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"cc", String, 1);
+
+ /* From */
+ MailGetMessageItem (hMessage, MAIL_FROM_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"from",String, 1);
+
+ /* Subject */
+
+ MailGetMessageItem (hMessage, MAIL_SUBJECT_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"subject",String, 1);
+
+ /* Priority H: High N: Normal L: Low*/
+
+ MailGetMessageItem (hMessage, MAIL_DELIVERYPRIORITY_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"priority",String, 1);
+
+ /* Return Receipt 1: Yes 0: No*/
+
+ MailGetMessageItem (hMessage, MAIL_RETURNRECEIPT_ITEM_NUM, String,
+ MAXSPRINTF, &StringLength);
+
+ add_property_string(return_value,"receipt",String, 1);
+
+ NonDeliveryReport = MailIsNonDeliveryReport(hMessage);
+
+ if (NonDeliveryReport)
+ {
+ MailGetMessageItem(hMessage, MAIL_FAILUREREASON_ITEM_NUM,
+ String, sizeof(String), &StringLength);
+
+ add_property_string(return_value,"status",String, 1);
+ }
+ else{
+
+ add_property_string(return_value,"status","", 1);
+ }
+
+ MailCloseMessage (hMessage);
+
+ /* Free the message list and close the message file */
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+}
+/* }}} */
+
+STATUS near pascal GetUniqueFileName(char *Drive, char *Ext,
+ char *FileName)
+
+{
+ int file;
+ WORD Num;
+ char Name[17];
+ char cwd[MAXPATH];
+ char *Dir;
+
+ /* Increment through numbered file names until a non-existent one found. */
+ getcwd(cwd, MAXPATH);
+ Dir = (char *)&cwd;
+
+ for (Num = 0; Num <= 32767; Num++)
+ {
+ _itoa(Num, Name, 10);
+ _makepath(FileName, Drive, Dir, Name, Ext);
+ if ((file = open(FileName, O_BINARY | O_RDONLY)) == -1)
+ return(NOERROR);
+ close(file);
+ }
+ FileName[0] = '\0';
+ return(ERR_READMAIL_NOUNIQUE);
+}
+
+/* {{{ proto array notes_body(string server, string mailbox, int msg_number)
+ Open the message msg_number in the specified mailbox on the specified server (leave server
+ blank for local) and returns an array of body text lines. */
+PHP_FUNCTION(notes_body){
+
+ int argc;
+ pval *argv[3];
+
+ pval **server;
+ pval **mail_box;
+ pval **msg_number;
+
+ STATUS error = NOERROR;
+ char szMailFilePath[MAXPATH+1];
+ HANDLE hMessageFile;
+ HANDLE hMessageList = NULLHANDLE, hMessage;
+ DARRAY *MessageList;
+ WORD MessageCount;
+ char String[MAXSPRINTF+1];
+ DWORD BodyFileSize;
+ char BodyFileName[MAXPATH_OLE];
+ FILE *BodyFile;
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &server, &mail_box, &msg_number)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(server);
+ convert_to_string_ex(mail_box);
+ convert_to_long_ex(msg_number);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ OSPathNetConstruct( NULL, /* port name */
+ (*server)->value.str.val,
+ (*mail_box)->value.str.val,
+ szMailFilePath);
+
+ /* Open the message file. */
+
+ if (error = MailOpenMessageFile(szMailFilePath, &hMessageFile)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error: unable to open '%s': %s.", szMailFilePath, error_string);
+ RETURN_FALSE;
+ }
+
+ /* Create message list of messages in the file - just 64K */
+
+ if (error = MailCreateMessageList(hMessageFile,
+ &hMessageList, &MessageList, &MessageCount)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create message list: %s", error_string);
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ RETURN_FALSE;
+ }
+
+ if (error = MailOpenMessage (MessageList, (WORD)(*msg_number)->value.lval, &hMessage)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open message number %d: %s", (WORD)(*msg_number)->value.lval, error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ RETURN_FALSE;
+ }
+
+ /* Body */
+ if (error = GetUniqueFileName("", "TMP", BodyFileName)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Enable to create temporary file name: %s", error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ MailCloseMessage (hMessage);
+ RETURN_FALSE;
+
+ }
+
+ /* Using MailGetBodyComposite instead of MailGetBody because it's not limited to 64k */
+
+ if (error = MailGetMessageBodyText(hMessage,
+ NULL, /* Use standard Body item */
+ "\r\n", /* Newline-terminate */
+ 80, /* 80 chars per line */
+ TRUE, /* Convert TABs */
+ BodyFileName,
+ &BodyFileSize)){
+
+ unlink(BodyFileName);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to get Message body into temporary file: %s", error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ MailCloseMessage (hMessage);
+ RETURN_FALSE;
+ }
+
+ /* Print each line of body text to the screen. */
+
+ if (!(BodyFile = fopen(BodyFileName, "r"))){
+
+ unlink(BodyFileName);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open temporary file: %s", error_string);
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+ MailCloseMessage (hMessage);
+ RETURN_FALSE;
+ }
+
+ array_init(return_value);
+
+ /* this should probably return the body in one string, but I don't know how */
+
+ while (fgets(String, READMAIL_BODY_LINELEN, BodyFile)){
+
+ add_next_index_string( return_value, String, 1);
+ }
+ fclose(BodyFile);
+ unlink(BodyFileName);
+
+ MailCloseMessage (hMessage);
+
+ /* Free the message list and close the message file */
+
+ if (hMessageList != NULLHANDLE){
+
+ OSUnlockObject(hMessageList);
+ OSMemFree(hMessageList);
+ }
+
+ if (hMessageFile != NULLHANDLE){
+
+ MailCloseMessageFile(hMessageFile);
+ }
+}
+/* }}} */
+
+/* {{{ proto bool notes_find_note(string database_name, string name [, string type] )
+ Returns a note id found in database_name. Specify the name of the note. Leaving type blank
+ will default to all, otherwise specify:
+
+ FORM
+ VIEW
+ FILTER
+ FIELD
+ */
+PHP_FUNCTION(notes_find_note){
+
+ int argc;
+ pval *argv[3];
+
+ pval **db;
+ pval **name;
+ pval **type;
+
+ STATUS error = NOERROR;
+ DBHANDLE db_handle;
+ NOTEID note_id;
+
+ char error_string[200];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &db, &name, &type)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(name);
+ convert_to_string_ex(type);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if( strcmp( (*type)->value.str.val, "FORM" ) == 0 ){
+
+ if ((error = NIFFindDesignNote(db_handle, (*name)->value.str.val, NOTE_CLASS_FORM, ¬e_id)) != ERR_NOT_FOUND) {
+
+ RETVAL_LONG( (long) note_id );
+ }
+ } else if( strcmp( (*type)->value.str.val, "VIEW" ) == 0 ){
+
+ if ((error = NIFFindDesignNote(db_handle, (*name)->value.str.val, NOTE_CLASS_VIEW, ¬e_id)) != ERR_NOT_FOUND) {
+
+ RETVAL_LONG( (long) note_id );
+ }
+ } else if( strcmp( (*type)->value.str.val, "FILTER" ) == 0 ){
+
+ if ((error = NIFFindDesignNote(db_handle, (*name)->value.str.val, NOTE_CLASS_FILTER, ¬e_id)) != ERR_NOT_FOUND) {
+
+ RETVAL_LONG( (long) note_id );
+ }
+
+ } else if( strcmp( (*type)->value.str.val, "FIELD" ) == 0 ){
+
+ if ((error = NIFFindDesignNote(db_handle, (*name)->value.str.val, NOTE_CLASS_FIELD, ¬e_id)) != ERR_NOT_FOUND) {
+
+ RETVAL_LONG( (long) note_id );
+ }
+ }
+ else{
+
+ if ((error = NIFFindDesignNote(db_handle, (*name)->value.str.val, NOTE_CLASS_ALL, ¬e_id)) != ERR_NOT_FOUND) {
+
+ RETVAL_LONG( (long) note_id );
+ }
+ }
+
+ NSFDbClose(db_handle);
+ NotesTerm();
+}
+/* }}} */
+
+/* {{{ proto bool notes_nav_create(string database_name, string name )
+ Create a navigator name, in database_name */
+PHP_FUNCTION(notes_nav_create){
+
+ int argc;
+ pval *argv[2];
+
+ pval **db;
+ pval **name;
+ char error_string[200];
+
+ STATUS error = NOERROR;
+ DBHANDLE db_handle;
+
+ WORD ClassView = NOTE_CLASS_VIEW;
+
+ NOTEHANDLE view_handle; /* sample navigator view handle */
+
+ char szMainView[] = "MainView"; /* title of view to be used */
+
+ VIEWMAP_HEADER_RECORD NavHeader;
+
+ WORD wLayoutCount;
+ WORD wNavLayoutBufLen;
+ HANDLE hNavLayoutBuffer;
+ char *pNavLayoutBuffer;
+ char *pNLBuf;
+
+ char szDFlags[3];
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(2, &db, &name)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(name);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ error = NSFNoteCreate( db_handle, &view_handle );
+ if ( error ) {
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create note in database: %s", error_string);
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+ NSFNoteSetInfo( view_handle, _NOTE_CLASS, &ClassView );
+
+/*
+ * Set the view name.
+ */
+ error = NSFItemSetText( view_handle, VIEW_TITLE_ITEM,
+ (*name)->value.str.val, MAXWORD );
+ if ( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to set text item '%s' in view note: %s", VIEW_TITLE_ITEM, error_string);
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/*
+ * Append Design flags for the Navigator view.
+ */
+ szDFlags[0] = DESIGN_FLAG_VIEWMAP;
+ szDFlags[1] = DESIGN_FLAG_HIDE_FROM_V3;
+ szDFlags[2] = '\0';
+ error = NSFItemAppend( view_handle,
+ ITEM_SUMMARY,
+ DESIGN_FLAGS,
+ (WORD)strlen(DESIGN_FLAGS),
+ TYPE_TEXT,
+ szDFlags,
+ (DWORD)strlen(szDFlags ));
+ if ( error ) {
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to append item '%s' to view note: %s", DESIGN_FLAGS, error_string);
+
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ wLayoutCount = 0;
+ wNavLayoutBufLen = ODSLength( _VIEWMAP_HEADER_RECORD );
+
+/*
+ * Allocate and initialize the CD buffer for the entire $ViewMapLayout item.
+ */
+ if ( error = OSMemAlloc( 0, wNavLayoutBufLen, &hNavLayoutBuffer )){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to allocate %d bytes memory: %s", wNavLayoutBufLen, error_string);
+
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ pNavLayoutBuffer = (char*) OSLockObject( hNavLayoutBuffer );
+ memset( pNavLayoutBuffer, 0, (size_t) wNavLayoutBufLen );
+
+ /*
+ * Initialize pNLBuf. pNavLayoutBuffer will remain pointing to the top
+ * of the buffer. pNLBuf will move to point to the next available byte.
+ */
+ pNLBuf = pNavLayoutBuffer;
+
+
+ NavHeader.Header.Signature = SIG_CD_VMHEADER;
+ NavHeader.Header.Length = (BYTE) ODSLength(_VIEWMAP_HEADER_RECORD );
+ NavHeader.Version = VIEWMAP_VERSION;
+ NavHeader.NameLen = 0;
+
+ ODSWriteMemory( &pNLBuf, _VIEWMAP_HEADER_RECORD, &NavHeader, 1 );
+
+ error = NSFItemAppend( view_handle,
+ ITEM_SUMMARY,
+ VIEWMAP_LAYOUT_ITEM,
+ (WORD)strlen(VIEWMAP_LAYOUT_ITEM),
+ TYPE_VIEWMAP_LAYOUT,
+ pNavLayoutBuffer,
+ (DWORD)wNavLayoutBufLen );
+
+ OSUnlockObject( hNavLayoutBuffer );
+ OSMemFree( hNavLayoutBuffer );
+
+ if ( error ) {
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to append item '%s' to view note: %s", VIEWMAP_LAYOUT_ITEM, error_string);
+
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/*
+ * Done constructing the view note. Now store the view note
+ * in the database.
+ */
+ error = NSFNoteUpdate( view_handle, 0 );
+
+ if ( error) {
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to update note: %s", error_string);
+
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ NSFNoteClose( view_handle );
+ NSFDbClose( db_handle );
+ NotesTerm();
+ RETURN_TRUE;
+}
+/* }}} */
+
+/* {{{ proto string notes_search(string database_name, string keywords )
+ Find notes that match keywords in database_name
+ The note(s) that are returned must be converted to base 16
+ Example base_convert( $note_id, "10", "16" ) */
+
+STATUS LNPUBLIC file_action (void *, SEARCH_MATCH *, ITEM_TABLE *);
+STATUS LNPUBLIC print_file_summary (ITEM_TABLE *);
+
+
+PHP_FUNCTION(notes_search){
+
+ int argc;
+ pval *argv[2];
+ STATUS error;
+ DBHANDLE db_handle;
+ HANDLE search_handle; /* handle to a search */
+ pval **db;
+ pval **keywords;
+ char error_string[200];
+ FT_INDEX_STATS Stats; /* statistics from FTIndex */
+ DWORD RetDocs; /* number of documents returned by the search */
+ HANDLE SearchResults_handle; /* handle to the results of the search */
+ FT_SEARCH_RESULTS *pSearchResults; /* pointer to the results of the search */
+ HANDLE IDTable_handle; /* handle to id table built with found NOTEIDs */
+ NOTEID *pNoteID; /* pointer to the NOTEIDs found */
+ BYTE *pScores; /* pointer to the scores */
+ DWORD i;
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(2, &db, &keywords)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+ convert_to_string_ex(keywords);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ error = FTIndex(db_handle, FT_INDEX_AUTOOPTIONS, NULL, &Stats);
+ if (error){
+
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to search database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = FTOpenSearch(&search_handle)){
+
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open search: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* do the search on the query */
+ error = FTSearch (db_handle, /* database handle */
+ &search_handle, /* pointer to previously
+ allocated search handle */
+ (HCOLLECTION) NULLHANDLE, /* no collection specified -
+ query all docs */
+ (*keywords)->value.str.val, /* query string */
+ FT_SEARCH_SCORES | /* find relevancy scores */
+ FT_SEARCH_STEM_WORDS, /* find word variants */
+ 0, /* maximum number of docs to
+ return; 0 = unlimited */
+ NULLHANDLE, /* no refining IDTABLE */
+ &RetDocs, /* returned number of docs */
+ NULL, /* reserved */
+ &SearchResults_handle); /* returned info */
+ if (error){
+
+ FTCloseSearch (search_handle);
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error during searchkkk: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* return if no document in the result */
+ if (RetDocs == 0 )
+ {
+ php_printf("\n0 documents returned \n");
+ FTCloseSearch (search_handle);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ pSearchResults = OSLock (FT_SEARCH_RESULTS, SearchResults_handle);
+
+ /* Create an IDTABLE to further refine our search */
+
+ if (error = IDCreateTable(sizeof(NOTEID), &IDTable_handle))
+ {
+ FTCloseSearch (search_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error creating ID table: %s", error_string);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* set up a pointer to the array of note id's that occur after
+ the FT_SEARCH_RESULTS structure */
+
+ pNoteID = (NOTEID *) (((char *) pSearchResults)
+ + sizeof(FT_SEARCH_RESULTS));
+
+ pScores = (BYTE *) (pNoteID + pSearchResults->NumHits);
+ for (i = 0; i < pSearchResults->NumHits; i++, pNoteID++, pScores++)
+ {
+ /* save the note ids in the IDTABLE */
+
+ if (error = IDInsert (IDTable_handle, *pNoteID, NULL))
+ {
+
+ OSUnlockObject(SearchResults_handle);
+ OSMemFree (SearchResults_handle);
+ FTCloseSearch (search_handle);
+ IDDestroyTable (IDTable_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error saving note to ID table: %s", error_string);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+ }
+
+ OSUnlockObject(SearchResults_handle);
+ OSMemFree (SearchResults_handle);
+
+ if (error = FTCloseSearch(search_handle))
+ {
+ IDDestroyTable (IDTable_handle);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = FTOpenSearch(&search_handle))
+ {
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* do the refined search on the query with no word variants */
+
+ error = FTSearch (db_handle, /* database handle */
+ &search_handle, /* pointer to previously
+ allocated search handle */
+ (HCOLLECTION) NULLHANDLE, /* no collection specified -
+ query all docs */
+ (*keywords)->value.str.val, /* query string */
+ FT_SEARCH_SCORES | /* find relevancy scores */
+ FT_SEARCH_REFINE, /* refine the search - use the
+ * given id table */
+ 0, /* maximum number of docs to
+ return; 0 = unlimited */
+ IDTable_handle, /* refining IDTABLE */
+ &RetDocs, /* returned number of docs */
+ NULL, /* reserved */
+ &SearchResults_handle); /* returned info */
+ if (error)
+ {
+ FTCloseSearch (search_handle);
+ IDDestroyTable (IDTable_handle);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* return if no document in the result */
+ if (RetDocs == 0 )
+ {
+ php_printf("\n0 documents returned \n");
+ FTCloseSearch (search_handle);
+ IDDestroyTable (IDTable_handle);
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* obtain a pointer to the search results */
+ pSearchResults = OSLock (FT_SEARCH_RESULTS, SearchResults_handle);
+
+ /* set up a pointer to the array of note id's that occur after
+ the FT_SEARCH_RESULTS structure */
+
+ pNoteID = (NOTEID *) (((char *) pSearchResults)
+ + sizeof(FT_SEARCH_RESULTS));
+
+ //pSearchResults->NumHits
+ array_init(return_value);
+
+ pScores = (BYTE *) (pNoteID + pSearchResults->NumHits);
+ for (i = 0; i < pSearchResults->NumHits; i++, pNoteID++, pScores++){
+
+ add_next_index_long(return_value, (long) *pNoteID );
+ //RETVAL_LONG( (long) *pNoteID );
+ }
+
+ OSUnlockObject (SearchResults_handle);
+ OSMemFree (SearchResults_handle);
+ IDDestroyTable (IDTable_handle);
+
+ if (error = FTCloseSearch(search_handle))
+ {
+ NSFDbClose (db_handle);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ NSFDbClose (db_handle);
+ NotesTerm();
+}
+/* }}} */
+
+/* {{{ proto string notes_copy_db(string from_database_name, string to_database_name [, title])
+ Create a note using form form_name */
+PHP_FUNCTION(notes_copy_db)
+{
+
+ int argc;
+ pval *argv[3];
+ STATUS error;
+ DBHANDLE input_handle;
+ DBHANDLE output_handle;
+ char error_string[200];
+ pval **db_input;
+ pval **db_output;
+ pval **title;
+ DBREPLICAINFO replica_info; /* replication info for the databases */
+ char output_db_info[NSF_INFO_SIZE]; /* database info buffer */
+ TIMEDATE start_time; /* time and date used to control what
+ notes we copy */
+ TIMEDATE last_time; /* returned from
+ NSFDbGetModifiedNoteTable */
+ DBID input_dbid; /* dbid of input database */
+ DBID output_dbid; /* dbid of output database */
+ HANDLE idtable_p; /* handle to id table */
+ DWORD num_scanned, num_entries;
+ NOTEID note_id;
+ NOTEHANDLE hIconNote; /* handle to the icon note */
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(3, &db_input, &db_output, &title)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db_input);
+ convert_to_string_ex(db_output);
+ convert_to_string_ex(title);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+/* Open the input database. */
+
+ if (error = NSFDbOpen ((*db_input)->value.str.val, &input_handle)){
+
+ NSFDbClose (input_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open input database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/* Create and open the output database. */
+
+ if (error = NSFDbCreate ((*db_output)->value.str.val, DBCLASS_NOTEFILE, FALSE))
+ {
+ NSFDbClose (input_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to create database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db_output)->value.str.val, &output_handle))
+ {
+ NSFDbClose (input_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error opening output database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+
+/* Copy the replication settings (not the replication history) from
+the input database to the output database. The replication settings
+include the database replica ID. This makes the destination database
+a replica copy of the source database. */
+
+ if (error = NSFDbReplicaInfoGet (input_handle, &replica_info))
+ {
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error copying replication information: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/* Copy the ACL from the input database to the output database. */
+
+ if (error = NSFDbCopyACL (input_handle, output_handle))
+ {
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error copying ACL: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/* Set a time/date structure that will determine the date of the earliest
+note copied in the next call. Use TimeConstant with TIMEDATE_WILDCARD
+specified to indicate that we do not want any cutoff date. */
+
+ TimeConstant (TIMEDATE_WILDCARD, &start_time);
+
+/* Do not use NSFDbCopy to copy all notes in the input database to the
+ output database. Such copies are not guaranteed to be replicas of
+ the original notes. Instead get an IDTABLE of all notes in the
+ database, use IDScan to obtain each NOTEID, and then call
+ NSFDbCopyNote to copy each note from one database to the other.
+*/
+
+ NSFDbIDGet (input_handle, &input_dbid);
+ NSFDbIDGet (output_handle, &output_dbid);
+
+
+/* Get the NoteID table for all notes in the input database */
+ if (error = NSFDbGetModifiedNoteTable (input_handle,
+ NOTE_CLASS_ALL,
+ start_time, &last_time,
+ &idtable_p) )
+ if (error == ERR_NO_MODIFIED_NOTES){
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_NOTICE,"There are no documents in the Database: %s", error_string);
+ NotesTerm();
+ RETURN_TRUE;
+ }
+ else
+ {
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error copying replication information: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+ num_scanned = 0L;
+ num_entries = IDEntries (idtable_p);
+ if (num_entries)
+ while (IDScan (idtable_p, (FLAG)(num_scanned++ == 0), ¬e_id) )
+ if (error = NSFDbCopyNote (input_handle, &input_dbid,
+ &replica_info.ID, note_id,
+ output_handle, &output_dbid,
+ &replica_info.ID, NULL,
+ NULL) )
+ {
+ IDDestroyTable (idtable_p);
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error copying notes: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+ IDDestroyTable (idtable_p);
+
+/* Now we can change the title of the output database
+ by following these steps:
+
+ - Get the info buffer of the database (NSFDbInfoGet);
+ - Modify the title information in the buffer (NSFDbInfoModify);
+ - Write the modified info buffer into the database (NSFDbInfoSet);
+ - If necessary, update the ICON note with the updated database
+ information buffer. This is required for databases created from
+ a template.
+*/
+
+/* Clear out the database information buffer */
+ output_db_info[0] = '\0';
+
+/* Get the output database information buffer. */
+
+ if (error = NSFDbInfoGet (output_handle, output_db_info))
+ {
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error getting output database information buffer: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/* Add the database title to the database information buffer */
+
+ NSFDbInfoModify (output_db_info, INFOPARSE_TITLE, (*title)->value.str.val);
+ if (error = NSFDbInfoSet (output_handle, output_db_info))
+ {
+ NSFDbClose (input_handle);
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error adding the database title to the buffer: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+/* If creating a new database from a template, in order to change
+ the database title or any other component of the database information
+ buffer, you also need to update this information in the ICON
+ note after updating it in the database information buffer. */
+
+ if (!NSFNoteOpen(output_handle, NOTE_ID_SPECIAL+NOTE_CLASS_ICON,
+ 0, &hIconNote))
+ {
+
+ /* Update the FIELD_TITLE ("$TITLE") field if present */
+ if (NSFItemIsPresent (hIconNote, FIELD_TITLE, (WORD) strlen (FIELD_TITLE)) )
+ {
+ NSFItemSetText(hIconNote, FIELD_TITLE, output_db_info, MAXWORD);
+ NSFNoteUpdate(hIconNote, 0);
+ }
+ NSFNoteClose(hIconNote);
+ }
+
+
+/* Close the databases. */
+
+ if (error = NSFDbClose (input_handle))
+ {
+ NSFDbClose (output_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error closing the input database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbClose (output_handle)){
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Error closing the output database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ NotesTerm();
+ RETURN_TRUE;
+}
+/* }}} */
+
+
+
+
+
+
+
+
+
+
+
+/* {{{ proto string notes_list(string database_name)
+ Returns the notes from a selected database_name
+ */
+
+STATUS LNPUBLIC ReadSummaryData ( /* called for every document */
+ VOID far *,
+ SEARCH_MATCH far *,
+ ITEM_TABLE far *);
+STATUS PrintSummary (char *);
+STATUS ExtractTextList (char *, char *);
+
+/* Constants */
+/* Notes imposes a 32K max summary buffer total size. Therefore,
+ 34K will safely store the printable text rendering of any single
+ item.
+*/
+#define MAX_ITEM_LEN 34816
+
+/* The maximum number of items in the summary buffer of a single note
+ is limited to the number of ITEM structures that will fit in 32K.
+*/
+#define MAX_ITEMS 32768/sizeof(ITEM)
+
+#define MAX_ITEM_NAME_LEN DESIGN_NAME_MAX
+
+/* Global variables */
+ITEM Items[MAX_ITEMS]; /* Stores the array of ITEMs */
+char ItemText[MAX_ITEM_LEN]; /* Text rendering of item value */
+char ItemName[MAX_ITEM_NAME_LEN];/* Zero terminated item name */
+
+
+PHP_FUNCTION(notes_list_msgs){
+
+ int argc;
+ pval *argv[1];
+
+ STATUS error;
+ DBHANDLE db_handle;
+ char error_string[200];
+
+ pval **db;
+
+ argc = ARG_COUNT(ht);
+
+ if (getParametersArray(ht, argc, argv) == FAILURE){
+
+ WRONG_PARAM_COUNT;
+ }
+
+ if (zend_get_parameters_ex(1, &db)==FAILURE) {
+ RETURN_FALSE;
+ }
+
+ convert_to_string_ex(db);
+
+ error = NotesInitExtended( argc, (char **) argv );
+
+ if( error ){
+
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to initialize Lotus Notes: %s", error_string);
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbOpen ((*db)->value.str.val, &db_handle)){
+
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to open database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ /* Call NSFSearch to find all data notes in the database.
+ Specify search flag SEARCH_SUMMARY so that the action
+ routine gets passed the summary buffer as input.
+ */
+
+ if (error = NSFSearch (
+ db_handle, /* database handle */
+ NULLHANDLE, /* selection formula */
+ NULL, /* title of view in selection formula */
+ SEARCH_SUMMARY, /* search flags: get summary data! */
+ NOTE_CLASS_DATA, /* note class to find */
+ NULL, /* starting date (unused) */
+ ReadSummaryData, /* action routine for notes found */
+ NULL, /* argument to action routine */
+ NULL)) /* returned ending date (unused) */
+
+ {
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to search database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ if (error = NSFDbClose (db_handle))
+ {
+ NSFDbClose (db_handle);
+ OSLoadString(NULLHANDLE, ERR(error), error_string, sizeof(error_string));
+ php_error(E_WARNING,"Unable to close database: %s", error_string);
+ NotesTerm();
+ RETURN_FALSE;
+ }
+
+ RETURN_TRUE
+}
+
+STATUS LNPUBLIC ReadSummaryData
+ (VOID far *optional_param,
+ SEARCH_MATCH far *search_info,
+ ITEM_TABLE far *summary_info)
+{
+ SEARCH_MATCH SearchMatch;
+ STATUS error;
+
+ memcpy ((char*)(&SearchMatch), (char *)search_info, sizeof(SEARCH_MATCH));
+
+ if (!(SearchMatch.SERetFlags & SE_FMATCH))
+ return (NOERROR);
+
+ /* Print the note ID. */
+
+ php_printf ("\nNote ID is: %lX.\n<br>", SearchMatch.ID.NoteID);
+
+ /* Print the summary data. */
+
+ if (error = PrintSummary( (char*)summary_info ))
+ return (error);
+
+ return (NOERROR);
+}
+
+
+/************************************************************************
+
+ FUNCTION: PrintSummary
+
+ PURPOSE: Print all the items in a summary buffer.
+
+ INPUTS:
+ pSummary - a pointer to the summary buffer for one note.
+
+ DESCRIPTION:
+ The information in a summary buffer consists of an ITEM_TABLE
+ structure, followed by an array of ITEM structures, followed by
+ a packed sequence of field names and item values.
+
+ ITEM_TABLE
+ ITEM 1
+ ITEM 2
+ ...
+ ITEM N
+ name of item 1
+ value of item 1
+ name of item 2
+ value of item 2
+ ...
+ name of item N
+ value if item N
+
+ Item names are not zero terminated. Each item value starts with
+ a data type word. The lengths of the item names and item values
+ will vary. The NameLength member of the ITEM structure specifies
+ the length of the corresponding name, and the ValueLength member
+ of the ITEM structure specifies the length of the item value.
+ The ValueLength includes the length of the data type word.
+
+ Note that this summary buffer differs in format from the buffer
+ parsed by sample program VIEWSUMM. VIEWSUMM calls NIFReadEntries
+ specifying READ_MASK_SUMMARYVALUES, which yields a buffer with
+ format specified by ITEM_VALUE_TABLE rather than ITEM_TABLE.
+
+ This function can parse the summary buffer of any data note
+ because it does not assume the note contains items with any
+ particular names. If you know the item name in advance, use
+ either NSFGetSummaryValue() or NSFLocateSummaryValue().
+
+*************************************************************************/
+
+
+STATUS PrintSummary (char *pSummary)
+{
+ char *pSummaryPos; /* current position in pSummary */
+ ITEM_TABLE ItemTable; /* header at start of pSummary */
+ USHORT ItemCount; /* number of items in pSummary */
+ USHORT NameLength; /* length of item name w/out terminator*/
+ USHORT ValueLength; /* length of item value, incl. type */
+ WORD DataType; /* item data type word */
+ char *szDataType; /* printable data type name */
+ USHORT TextLen; /* length of printable item text */
+ NUMBER NumericItem; /* an item of type TYPE_NUMBER */
+ NUMBER_PAIR NumberPair; /* part of item of TYPE_NUMBER_RANGE */
+ RANGE Range; /* part of item of TYPE_NUMBER_RANGE */
+ TIMEDATE TimeItem; /* a time/date item */
+ TIMEDATE_PAIR TimePairItem; /* part of time/date list or range */
+ WORD TimeStringLen; /* length of ASCII time/date */
+ STATUS error; /* return code from API calls */
+ USHORT i; /* counter for loop over items */
+ USHORT j; /* " " " " multi-valued items */
+
+ /* Initialize pSummaryPos to the position of the beginning of
+ the summary buffer. Keep pSummary unmodified. Modify pSummaryPos.
+ */
+
+ pSummaryPos = pSummary;
+
+ /* Copy the ITEM_TABLE header at the beginning of the summary buffer
+ to a local variable. Advance pSummaryPos to point to the next
+ byte in the summary buffer after the ITEM_TABLE.
+ */
+ memcpy ((char*)(&ItemTable), pSummaryPos, sizeof(ITEM_TABLE));
+ pSummaryPos += sizeof(ItemTable);
+
+ /* pSummaryPos now points to the first ITEM in an array of ITEM
+ structures. Copy this array of ITEM structures into the global
+ Items[] array.
+ */
+
+ ItemCount = ItemTable.Items;
+
+ for (i=0; i < ItemCount; i++)
+ {
+ memcpy((char*)(&Items[i]), pSummaryPos, sizeof(ITEM));
+ pSummaryPos += sizeof(ITEM);
+ }
+
+ /* pSummaryPos now points to the first item name. Loop over each
+ item, copying the item name into the ItemName variable and
+ converting the item value to printable text in ItemText.
+ */
+
+ for (i=0; i < ItemCount; i++)
+ {
+ /* zero out two global arrays that we re-use for each item */
+ memset (ItemText, 0, MAX_ITEM_LEN);
+ memset (ItemName, 0, MAX_ITEM_NAME_LEN);
+
+ NameLength = Items[i].NameLength;
+ memcpy (ItemName, pSummaryPos, NameLength);
+ ItemName[NameLength] = '\0';
+ pSummaryPos += NameLength;
+
+ /* Handle the case of a zero length item */
+
+ if (Items[i].ValueLength == 0)
+ {
+ strcpy(ItemName, " * ");
+ ItemText[0] = '\0';
+ goto PrintItem;
+ }
+
+ /* pSummaryPos now points to the item value. First get the
+ data type. Then step over the data type word to the data
+ value and convert the value to printable text. Store the
+ text in ItemText.
+ */
+
+ memcpy ((char*)(&DataType), pSummaryPos, sizeof(WORD));
+ pSummaryPos += sizeof(WORD);
+
+ ValueLength = Items[i].ValueLength - sizeof(WORD);
+
+ /* The way to extract an item depends on the data type. */
+
+ switch (DataType)
+ {
+ case TYPE_TEXT:
+ szDataType = "TYPE_TEXT";
+ memcpy (ItemText, pSummaryPos, ValueLength);
+ ItemText[ValueLength] = '\0';
+ pSummaryPos += ValueLength;
+ break;
+
+ case TYPE_TEXT_LIST:
+ szDataType = "TYPE_TEXT_LIST";
+ if (error = ExtractTextList (pSummaryPos, ItemText))
+ {
+ printf ("Error: unable to extract text list.\n");
+ ItemText[0] = '\0';
+ }
+ pSummaryPos += ValueLength;
+ break;
+
+ case TYPE_NUMBER:
+ szDataType = "TYPE_NUMBER";
+ memcpy ((char *)(&NumericItem), pSummaryPos, sizeof(NUMBER));
+ sprintf (ItemText, "%f", NumericItem);
+ pSummaryPos += sizeof(NUMBER);
+ break;
+
+ case TYPE_NUMBER_RANGE:
+ szDataType = "TYPE_NUMBER_RANGE";
+ TextLen = 0;
+ memcpy ((char*)(&Range), pSummaryPos, sizeof(RANGE));
+ pSummaryPos += sizeof(RANGE);
+ for (j=0; j < Range.ListEntries; j++)
+ {
+ memcpy ((char*)(&NumericItem), pSummaryPos,
+ sizeof(NUMBER));
+ sprintf (ItemText+TextLen, "%f ", NumericItem);
+ pSummaryPos += sizeof(NUMBER);
+ TextLen = strlen(ItemText);
+ }
+ if ((Range.ListEntries != 0) && (Range.RangeEntries != 0))
+ {
+ memcpy (ItemText+TextLen, "; ", 2);
+ TextLen += 2;
+ }
+ for (j=0; j < Range.RangeEntries; j++)
+ {
+ memcpy ((char*)(&NumberPair), pSummaryPos,
+ sizeof(NUMBER_PAIR));
+ sprintf (ItemText+TextLen, "%f - %f ", NumberPair.Lower,
+ NumberPair.Upper);
+ pSummaryPos += sizeof(NUMBER_PAIR);
+ TextLen = strlen(ItemText);
+ }
+ break;
+
+#ifndef APITESTMODE
+
+ case TYPE_TIME:
+ szDataType = "TYPE_TIME";
+ memcpy ((char*)(&TimeItem), pSummaryPos, sizeof(TIMEDATE));
+ pSummaryPos += sizeof(TIMEDATE);
+ if (error = ConvertTIMEDATEToText (
+ NULL, NULL, &TimeItem,
+ ItemText, MAXALPHATIMEDATE,
+ &TimeStringLen))
+ {
+ printf ("Error: unable to convert TIMEDATE to text.\n");
+ TimeStringLen = 0;
+ }
+ ItemText[TimeStringLen] = '\0';
+ break;
+
+ case TYPE_TIME_RANGE:
+ szDataType = "TYPE_TIME_RANGE";
+ TextLen = 0;
+ memcpy ((char*)(&Range), pSummaryPos, sizeof(RANGE));
+ pSummaryPos += sizeof(RANGE);
+ for (j=0; j < Range.ListEntries; j++)
+ {
+ if (j != 0)
+ {
+ memcpy (ItemText+TextLen, ",", 1);
+ TextLen++;
+ }
+ memcpy ((char*)(&TimeItem), pSummaryPos,
+ sizeof(TIMEDATE));
+ pSummaryPos += sizeof(TIMEDATE);
+ if (error = ConvertTIMEDATEToText (
+ NULL, NULL,
+ &TimeItem,
+ ItemText+TextLen,
+ MAXALPHATIMEDATE, &TimeStringLen))
+ {
+ printf("Error: unable to convert TIMEDATE to text.\n");
+ TimeStringLen = 0;
+ }
+ TextLen += TimeStringLen;
+ }
+
+ if (Range.RangeEntries == 0)
+ {
+ ItemText[TextLen] = '\0';
+ break;
+ }
+
+ /* Append a space, semicolon, space to separate time/dates
+ from time/date ranges.
+ */
+
+ memcpy (ItemText+TextLen, " ; ", 3);
+ TextLen += 3;
+
+ for (j=0; j < Range.RangeEntries; j++)
+
+ {
+ if (j != 0)
+ {
+ memcpy (ItemText+TextLen, ",", 1);
+ TextLen++;
+ }
+ memcpy ((char*)&TimePairItem, pSummaryPos,
+ sizeof(TIMEDATE_PAIR));
+ pSummaryPos += sizeof(TIMEDATE_PAIR);
+ if (error = ConvertTIMEDATEToText (
+ NULL, NULL,
+ &TimePairItem.Lower, ItemText+TextLen,
+ MAXALPHATIMEDATE, &TimeStringLen))
+ {
+ printf("Error: unable to convert TIMEDATE to text.\n");
+ TimeStringLen = 0;
+ }
+ TextLen += TimeStringLen;
+ memcpy (ItemText+TextLen, "-", 1);
+ TextLen++;
+ if (error = ConvertTIMEDATEToText (
+ NULL, NULL,
+ &TimePairItem.Upper, ItemText+TextLen,
+ MAXALPHATIMEDATE, &TimeStringLen))
+ {
+ printf("Error: unable to convert TIMEDATE to text.\n");
+ TimeStringLen = 0;
+ }
+ TextLen += TimeStringLen;
+ }
+ ItemText[TextLen] = '\0'; /* zero terminate the text */
+ break;
+
+#endif
+ /* Item is not one of the data types this program handles. */
+
+ default:
+ szDataType = "Unrecognized";
+ ItemText[0] = '\0';
+ pSummaryPos += ValueLength;
+ break;
+ } /* end of switch on data type */
+
+PrintItem:
+ /* Print the item name, data type, and value. */
+ printf ("\tItem Name = %s\n", ItemName);
+ printf ("\tData Type = %s\n", szDataType);
+
+#ifndef APITESTMODE
+ printf ("\tItem Value = \"%s\"\n\n", ItemText);
+#else
+ if (strcmp(ItemName,"$UpdatedBy")==0)
+ printf ("\tItem Value =\n\n", ItemText);
+ else
+ printf ("\tItem Value = \"%s\"\n\n", ItemText);
+#endif
+
+ }/* End of loop over items in the summary. */
+
+ /* Print final line feed to end display for this note. */
+
+ printf ("\n");
+
+ return (NOERROR);
+}
+
+/************************************************************************
+
+ FUNCTION: ExtractTextList
+
+ PURPOSE: This function extracts an item of TYPE_TEXT_LIST from a
+ pSummary buffer.
+
+ INPUTS: char *pBuffer
+
+ OUTPUTS: char *TextList
+
+*************************************************************************/
+
+STATUS ExtractTextList (char *pBuffer, char *TextList)
+{
+ LIST List;
+ char *ListEntry; /* pointer to list entry */
+ WORD TextLen; /* total length of string output to TextList */
+ WORD EntryLen; /* length of one entry */
+ STATUS error; /* return code from API calls */
+ USHORT i; /* a counter */
+
+ /* Initialize the total length of the list. */
+
+ TextLen = 0;
+
+ /* Clear the string that we'll fill up. */
+
+ TextList[0] = '\0';
+
+ /* Get the list header structure with the number of entries. */
+
+ memcpy ((char*)(&List), pBuffer, sizeof(LIST));
+
+ /* Loop over each entry of the list. */
+
+ for (i=0; i<List.ListEntries; i++)
+ {
+ /* Get one entry from the list. */
+
+ if (error = ListGetText (
+ pBuffer,
+ FALSE, /* DataType not prepended to list */
+ i,
+ &ListEntry,
+ &EntryLen))
+ {
+ return (ERR(error));
+ }
+
+ /* Copy this entry to the string we are building and move the
+ pointer that keeps track of how much we have in the string.
+ */
+
+ memcpy (TextList+TextLen, ListEntry, EntryLen);
+ TextLen += EntryLen;
+
+ /* Put a comma after the entry and advance the text length. */
+
+ memcpy (TextList+TextLen, ",", 1);
+ TextLen++;
+
+ } /* End of loop over list entries. */
+
+ /* Put a null in place of the last comma */
+
+ TextLen--;
+ memcpy (TextList+TextLen, "\0", 1);
+
+ return (NOERROR);
+}
+
+/* }}} */
+
+
+
+
projects / php / commitdiff