summaryrefslogtreecommitdiff
path: root/mapi
diff options
context:
space:
mode:
Diffstat (limited to 'mapi')
-rw-r--r--mapi/ReadmeMapi32.txt102
-rw-r--r--mapi/instmapi.c406
-rwxr-xr-xmapi/makefile72
-rw-r--r--mapi/pmapi.c2929
-rw-r--r--mapi/pmapi.def17
-rw-r--r--mapi/pmapi.h244
-rw-r--r--mapi/pmapi.rc153
-rw-r--r--mapi/resource.h19
-rw-r--r--mapi/rfc1522.c557
-rw-r--r--mapi/smapi.c653
10 files changed, 5152 insertions, 0 deletions
diff --git a/mapi/ReadmeMapi32.txt b/mapi/ReadmeMapi32.txt
new file mode 100644
index 00000000..c19e7d43
--- /dev/null
+++ b/mapi/ReadmeMapi32.txt
@@ -0,0 +1,102 @@
+ReadmeMapi32.txt
+January 27, 2009
+University of Washington
+
+NOTE: It is uncertain what remains to be done for pmapi to work with
+alpine. This dll should work with a PC-Pine installation, but in
+the future will be made to work with Alpine. Registry access and
+Unicode support will have to change for that to happen.
+
+ pmapi32 for Alpine 2.10
+
+This distribution comes with two other files, instmapi.exe and
+pmapi32.dll, for use with Aline. It is recommended that these files
+be put in your pine directory (generally C:\Program Files\Alpine).
+
+pmapi32.dll - a Simple MAPI dynamically linked library. pmapi32.dll
+is used by other applications to access your inbox or send mail
+through Alpine.
+
+instmapi.exe - installs mapi32.dll such that registry values are set
+according to the location of pmapi32.dll, and possibly copies
+pmapi32.dll to the system directory if it is run on older systems. It
+will also offer to set Alpine as your default mailer and newsreader
+if it is not already set. The "-silent" option has been added to
+assume that default mailer and newsreader should be set and also to
+suppress a "Successful Completion" alert. This program can be run
+repeatedly without side effects.
+
+instmapi.exe must be run at least once in order for pmapi32.dll to be
+accessible to other applications. As of Alpine 4.30, instmapi.exe
+may or may not need to be run in order for pmapi32.dll to work,
+depending on Windows/Internet Explorer/Microsoft Office versions. To
+manually set Alpine as your default mailer, you must open "Internet
+Options" in your Control Panel and select the "Programs" tab. Under
+"E-mail", select Alpine.
+
+Configuration:
+Currently there is only one configuration option that is specific to
+pmapi32.dll:
+
+pmapi-send-behavior: With the ability to send messages without dialogs
+it was decided that the user might want to be prompted in this case.
+There are three possible values for this variable:
+ always-prompt: Always prompt before sending. This is the default
+ behavior unless set otherwise.
+ always-send: Always send the message without prompting.
+ never-send: Never send the message
+
+pmapi-suppress-dialogs: MAPI Clients may tell pmapi32.dll that they
+would like some dialogs allowing the user to edit the message before
+sending. Since Alpine is not yet designed to properly handle this
+(nor will it be unless there is sufficient demand for it), it may be
+desired to forego the Alpine interaction if the message contains
+enough information for it to be set. Possible values are:
+ no: Never suppress dialogs, this is the default behavior
+ yes: Always try sending it as is. You should be aware of the
+ implications before setting this
+ prompt: Prompt whether or not it should fire up PC-Pine to edit
+ the message
+
+pmapi-strict-no-dialog: Some MAPI clients will request pmapi32 not to
+display any dialogs, even when it is absolutely necessary that a
+dialog be displayed for the purpose of logging in. By default,
+pmapi32 will just display the dialog, but this variable is available
+for those who require a strict adherence of this request. The two
+possible values for this variable are:
+ no: Show login dialogs when necessary, which is the default
+ behavior
+ yes: Suppress dialogs when it is requested by the client. It
+ should generally be safe to set this, as it more accurately
+ reflects the specification, but it is possible that setting
+ this will hide necessary authentication prompts.
+
+
+To change the default setting of these variables, you will need to
+either hand edit the pinerc or set a value in the Windows registry.
+The pinerc setting always takes precedence over the registry setting.
+An example of setting the value pmapi-send-behavior to "always-send"
+in the pinerc would be to add the line:
+pmapi-send-behavior=always-send
+To add it to the registry, you would need to make sure the following
+key exists (from the regedit program):
+ HKEY_CURRENT_USER\Software\University of Washington\PC-Pine\4.0\PmapiOpts
+Then, you would add a string named "pmapi-send-behavior" with the
+value of "always-send"
+
+Environment Variables:
+Some sites may take advantage of environment variables in their
+configurations, setting them via some program that gets executed
+before running PC-Pine. There is a way to mimmick this behavior in
+MAPI. First you would need to create the following key:
+ HKEY_CURRENT_USER\Software\University of Washington\Alpine\1.0\PmapiOpts\Env
+Say there is a variable that contains the string "${LOGNAME}". To set
+this for MAPI, you would add a string "LOGNAME" to the above key, and
+have its value point to whatever the environment variable %LOGNAME%
+would point to.
+
+Troubleshooting: To view debugging information, create a file called
+mapi_debug.txt in your system's %TEMP% directory. Bug reports or
+comments should be sent to pine@cac.washington.edu.
+
+Jeff Franklin <jpf@washington.edu>
diff --git a/mapi/instmapi.c b/mapi/instmapi.c
new file mode 100644
index 00000000..ab79f2f4
--- /dev/null
+++ b/mapi/instmapi.c
@@ -0,0 +1,406 @@
+
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+/* installmapi.c : installs the Alpine version of mapi32.dll
+ * into the directory from which this program is run. The PC-Pine
+ * version is pmapi32.dll, and must be in the same directory as the
+ * program being run. Note that we will run into trouble if we want
+ * to name our dll mapi32.dll, unless we're putting it in the system
+ * directory
+ */
+
+#include <windows.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <io.h>
+#include <string.h>
+#include <direct.h>
+
+#define FIXREG 1
+
+/* this program consists of two parts:
+ * (1) Updating the registry,
+ * most particulary the string of DLLPath in the key
+ * HKLM\Software\Clients\PC-Pine.
+ * (2) Deciding whether or not to copy pmapi32.dll into the system
+ * directory. Starting with Windows 2000, Internet Explorer 5.0
+ * or Outlook 2000, mapi32.dll started to be a stub library, loading
+ * whichever mapi32.dll was defined in the registry (see (1)). We
+ * don't want to overwrite mapi32.dll if it is the stub library, but
+ * if the stub library isn't installed, then we want to install our
+ * own version of mapi32.dll. Since the method for detecting the
+ * stub library isn't very well documented (as of Feb 17, 2000), we
+ * should use a liberal policy of whether or not to copy our mapi
+ * into the system directory. Here are the criteria that determine
+ * that the stub library is correctly installed:
+ * i) Existence of mapistub.dll in the system directory
+ * ii) Existence of the exported function FixMAPI() in mapi32.dll
+ * If either of these two conditions fail, then we'll copy into the
+ * system directory (provided we have correct permissions for it).
+ *
+ * Jeff Franklin
+ * University of Washington
+ */
+
+int check_defaults(int, int);
+int check_url_commands(int);
+
+#define CD_MAILER 1
+#define CD_NEWS 2
+
+#define CUC_MAILTO 1
+#define CUC_NEWS 2
+#define CUC_NNTP 3
+
+int APIENTRY WinMain(HINSTANCE hInstance,
+ HINSTANCE hPrevInstance,
+ LPSTR lpCmdLine,
+ int nCmdShow)
+{
+ char dir[1000], filename[1024], mapifile[1024],
+ buffer[3*1024], buffer2[3*1024];
+ unsigned long bufflen = 3*1024;
+ DWORD dtype;
+ int copy = 0, success = 0, silent = 0;
+ FARPROC proc;
+ HKEY hKey;
+ HINSTANCE hDll;
+ LPSTR p, pp;
+
+ for(pp = p = lpCmdLine; *(p-1); p++){
+ if(*p == ' ' || *p == '\t' || *p == '\0'){
+ if(strncmp("-silent", pp, strlen("-silent")) == 0)
+ silent = 1;
+ if(!*p)
+ break;
+ pp = p + 1;
+ }
+ }
+
+
+ /* This is the first part of writing the registry with our values */
+ _getcwd(dir, 1000);
+ sprintf(filename, "%s%s", dir, dir[strlen(dir)-1] == '\\' ?
+ "pmapi32.dll": "\\pmapi32.dll");
+ if(_access(filename, 00) == -1){
+ sprintf(buffer,
+ "pmapi32.dll for PC-Pine not found in %s. Install not completed.",
+ dir);
+ MessageBox(NULL, buffer, "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ return 0;
+ }
+
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\Mail",
+ 0, KEY_READ, &hKey) == ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\Mail",
+ 0, KEY_ALL_ACCESS, &hKey) != ERROR_SUCCESS){
+ MessageBox(NULL,
+ "Cannot install pmapi32.dll. Please make sure that you have permissions to update your registry.",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ return 0;
+ }
+ }
+ else {
+ MessageBox(NULL,
+ "Cannot install pmapi32.dll. Mailer information not found in registry.",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ return 0;
+ }
+
+#ifdef FIXREG
+ /*
+ * I want to take this out next release because it is only intended to fix
+ * problems that pine (<=4.43) set in the registry.
+ */
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\Mail\\PC-Pine\\Protocols\\Mailto",
+ 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS){
+ RegSetValueEx(hKey, "URL Protocol", 0, REG_SZ, "", 1);
+ RegCloseKey(hKey);
+ }
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\news",
+ 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS){
+ RegSetValueEx(hKey, "URL Protocol", 0, REG_SZ, "", 1);
+ RegCloseKey(hKey);
+ }
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\nntp",
+ 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS){
+ RegSetValueEx(hKey, "URL Protocol", 0, REG_SZ, "", 1);
+ RegCloseKey(hKey);
+ }
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\News\\PC-Pine\\shell\\open\\command",
+ 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS){
+ char *tp;
+
+ buffer[0] = '\0';
+ bufflen = 1024*3;
+ RegQueryValueEx(hKey, "", 0, &dtype, buffer, &bufflen);
+ tp = buffer + strlen(buffer) - strlen(" -url news:%1");
+ if((tp - buffer > 0) && (tp - buffer < (int)bufflen)
+ && (strcmp(tp, " -url news:%1") == 0)){
+ *tp = '\0';
+ RegSetValueEx(hKey, "", 0, dtype, buffer, strlen(buffer));
+ }
+ RegCloseKey(hKey);
+ }
+#endif
+
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Clients\\Mail\\PC-Pine",
+ 0, KEY_ALL_ACCESS, &hKey) == ERROR_SUCCESS){
+ if(RegSetValueEx(hKey, "DLLPath", 0, REG_SZ,
+ filename, strlen(filename) + 1) != ERROR_SUCCESS){
+ MessageBox(NULL,
+ "Could not update registry. Install not completed.",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ RegCloseKey(hKey);
+ return 0;
+ }
+ else
+ RegCloseKey(hKey);
+ }
+ else{
+ MessageBox(NULL,
+ "No entry found for PC-Pine. Try running PC-Pine, and then run this program",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ return 0;
+ }
+ if(check_defaults(CD_MAILER, silent))
+ MessageBox(NULL,
+ "Default mailer could not be set",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+ if(check_defaults(CD_NEWS, silent))
+ MessageBox(NULL,
+ "Default newsreader could not be set",
+ "instmapi.exe",
+ MB_OK|MB_ICONERROR);
+
+ /* This next part determines whether or not we should write our mapi
+ * into the system directory
+ */
+ if(GetSystemDirectory(dir, 1000)){
+ sprintf(mapifile, "%s%s", dir, dir[strlen(dir)-1] == '\\' ?
+ "mapi32.dll" : "\\mapi32.dll");
+
+ hDll = LoadLibrary(mapifile);
+ if(hDll){
+ if(proc = GetProcAddress(hDll,"GetPCPineVersion")){
+ sprintf(buffer2, "pmapi32.dll exists in %s as mapi32.dll",
+ dir);
+ MessageBox(NULL, buffer2,
+ "instmapi.exe",
+ MB_APPLMODAL | MB_ICONINFORMATION | MB_OK);
+ success = 1;
+ }
+ if(!success){
+ sprintf(buffer, "%s%s", dir, dir[strlen(dir)-1] == '\\' ?
+ "mapistub.dll" : "\\mapistub.dll");
+ if(_access(buffer, 00) != 0)
+ copy = 1;
+ if(!copy){
+ proc = GetProcAddress(hDll, "FixMAPI");
+ if(!proc){
+ copy = 1;
+ }
+ else
+ success = 1;
+ }
+ }
+ FreeLibrary(hDll);
+ }
+ else
+ copy = 1;
+ if(copy){
+ sprintf(buffer2, "%s%s", dir, dir[strlen(dir)-1] == '\\' ?
+ "mapi32x.dll" : "\\mapi32x.dll");
+ CopyFile(mapifile, buffer2, 0);
+ if(CopyFile(filename, mapifile, 0)){
+ sprintf(buffer2, "pmapi32.dll has been copied to %s",
+ mapifile);
+ MessageBox(NULL, buffer2, "instmapi.exe",
+ MB_APPLMODAL | MB_ICONINFORMATION | MB_OK);
+ success = 1;
+ }
+ else{
+ sprintf(buffer2, "pmapi32.dll could not be copied to %s",
+ mapifile);
+ MessageBox(NULL, buffer2, "instmapi.exe",
+ MB_APPLMODAL | MB_ICONINFORMATION | MB_OK);
+ }
+ }
+ }
+
+ if(success && !silent){
+ sprintf(buffer2,
+ "Installation of pmapi32.dll was successfully completed",
+ buffer);
+ MessageBox(NULL, buffer2, "instmapi.exe",
+ MB_APPLMODAL | MB_ICONINFORMATION | MB_OK);
+ }
+ else if(!success){
+ sprintf(buffer2,
+ "Installation of pmapi32.dll may not have successfully completed",
+ buffer);
+ MessageBox(NULL, buffer2, "instmapi.exe",
+ MB_APPLMODAL | MB_ICONINFORMATION | MB_OK);
+ }
+ return 0;
+}
+
+int
+check_defaults(wdef, silent)
+ int wdef, silent;
+{
+ HKEY hKey;
+ DWORD dtype;
+ char buffer[1024*3];
+ unsigned long bufflen = 1024*3;
+ int ret;
+
+ if(wdef != CD_MAILER && wdef != CD_NEWS)
+ return(1);
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, wdef == CD_MAILER
+ ? "SOFTWARE\\Clients\\Mail" : "SOFTWARE\\Clients\\News",
+ 0, KEY_ALL_ACCESS, &hKey) != ERROR_SUCCESS)
+ return(1);
+ bufflen = 1024*3;
+ RegQueryValueEx(hKey, "", 0, &dtype, buffer, &bufflen);
+ if(strcmp(buffer, "PC-Pine") == 0){
+ RegCloseKey(hKey);
+ return(0);
+ }
+ ret = silent ? IDYES
+ : MessageBox (NULL, wdef == CD_MAILER
+ ? "Do you want to make PC-Pine your default mailer?"
+ : "Do you want to make PC-Pine your default newsreader?",
+ "instmapi.exe",
+ MB_APPLMODAL | MB_ICONQUESTION | MB_YESNO);
+ if(ret == IDYES){
+ strcpy(buffer, "PC-Pine");
+ bufflen = strlen(buffer)+1;
+ if(RegSetValueEx(hKey, "", 0,
+ REG_SZ, buffer, bufflen) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ return(1);
+ }
+ RegCloseKey(hKey);
+ if(wdef == CD_MAILER){
+ if(check_url_commands(CUC_MAILTO))
+ return(1);
+ }
+ else if(wdef == CD_NEWS){
+ if(check_url_commands(CUC_NEWS)
+ || check_url_commands(CUC_NNTP))
+ return(1);
+ }
+ }
+ return(0);
+}
+
+int
+check_url_commands(wdef)
+ int wdef;
+{
+ HKEY hKey, hKeyCP;
+ DWORD dtype;
+ char buffer[1024*3];
+ unsigned long bufflen = 1024*3;
+
+ if(wdef != CUC_MAILTO && wdef != CUC_NEWS && wdef != CUC_NNTP)
+ return(1);
+ if(RegOpenKeyEx(HKEY_CLASSES_ROOT, wdef == CUC_MAILTO
+ ? "mailto\\shell\\open\\command"
+ : (wdef == CUC_NEWS ? "news\\shell\\open\\command"
+ : "nntp\\shell\\open\\command"),
+ 0, KEY_ALL_ACCESS, &hKey) != ERROR_SUCCESS)
+ return(1);
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, wdef == CUC_MAILTO
+ ? "SOFTWARE\\Clients\\Mail\\PC-Pine\\Protocols\\Mailto\\shell\\open\\command"
+ : (wdef == CUC_NEWS ? "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\news\\shell\\open\\command"
+ : "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\nntp\\shell\\open\\command"),
+ 0, KEY_ALL_ACCESS, &hKeyCP) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ return(1);
+ }
+ buffer[0] = '\0';
+ bufflen = 1024*3;
+ if(RegQueryValueEx(hKeyCP, "", 0, &dtype,
+ buffer, &bufflen) != ERROR_SUCCESS
+ || RegSetValueEx(hKey, "", 0, REG_SZ, buffer,
+ bufflen) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+ return(1);
+ }
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+ if(RegOpenKeyEx(HKEY_CLASSES_ROOT, wdef == CUC_MAILTO
+ ? "mailto\\DefaultIcon"
+ : (wdef == CUC_NEWS ? "news\\DefaultIcon"
+ : "nntp\\DefaultIcon"),
+ 0, KEY_ALL_ACCESS,
+ &hKey) != ERROR_SUCCESS)
+ return(1);
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, wdef == CUC_MAILTO
+ ? "SOFTWARE\\Clients\\Mail\\PC-Pine\\Protocols\\Mailto\\DefaultIcon"
+ : (wdef == CUC_NEWS ? "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\news\\DefaultIcon"
+ : "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\nntp\\DefaultIcon"),
+ 0, KEY_ALL_ACCESS, &hKeyCP) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ return(1);
+ }
+ buffer[0] = '\0';
+ bufflen = 1024*3;
+ if(RegQueryValueEx(hKeyCP, "", 0, &dtype, buffer, &bufflen) != ERROR_SUCCESS
+ || RegSetValueEx(hKey, "", 0, REG_SZ, buffer, bufflen) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+ return(1);
+ }
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+
+ if(RegOpenKeyEx(HKEY_CLASSES_ROOT, wdef == CUC_MAILTO
+ ? "mailto"
+ : (wdef == CUC_NEWS ? "news"
+ : "nntp"),
+ 0, KEY_ALL_ACCESS,
+ &hKey) != ERROR_SUCCESS)
+ return(1);
+ if(RegOpenKeyEx(HKEY_LOCAL_MACHINE, wdef == CUC_MAILTO
+ ? "SOFTWARE\\Clients\\Mail\\PC-Pine\\Protocols\\Mailto"
+ : (wdef == CUC_NEWS ? "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\news"
+ : "SOFTWARE\\Clients\\News\\PC-Pine\\Protocols\\nntp"),
+ 0, KEY_ALL_ACCESS, &hKeyCP) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ return(1);
+ }
+ buffer[0] = '\0';
+ bufflen = 1024*3;
+ if(RegQueryValueEx(hKeyCP, "URL Protocol", 0, &dtype, buffer, &bufflen) != ERROR_SUCCESS
+ || RegSetValueEx(hKey, "URL Protocol", 0, REG_SZ, buffer, bufflen) != ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+ return(1);
+ }
+ RegCloseKey(hKey);
+ RegCloseKey(hKeyCP);
+
+ return(0);
+}
diff --git a/mapi/makefile b/mapi/makefile
new file mode 100755
index 00000000..8031be64
--- /dev/null
+++ b/mapi/makefile
@@ -0,0 +1,72 @@
+#
+# ========================================================================
+# Copyright 2006 University of Washington
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# ========================================================================
+
+
+# Nmake macros for building Windows 32-Bit apps
+
+all: pmapi32.dll instmapi.exe
+
+clean:
+ del *.obj *.res *.dll *.lib *.exe
+
+CC=cl
+RC=rc
+LINK=link
+
+CBASIC = -nologo -c -W3 -DWIN32 -D_WIN32
+CDEBUG = #-Zi -Od
+LDEBUG = #/debug /debugtype:cv
+CVARSDLL = -MD -D_DLL
+CVARSEXE = -MT
+CFLAGS = $(CBASIC) $(CDEBUG) $(EXTRACFLAGS)
+RCFLAGS = /fo pmapi.res
+DLLENTRY = @12
+DLLLFLAGS = -entry:_DllMainCRTStartup$(DLLENTRY) -dll $(EXTRALDFLAGS)
+GUIFLAGS = -subsystem:windows
+LFLAGS = $(LDEBUG) -nologo /NODEFAULTLIB
+STDLIBS= ..\c-client-dll\cclient.lib winmm.lib crypt32.lib
+LIBS = oldnames.lib kernel32.lib advapi32.lib ws2_32.lib user32.lib gdi32.lib comdlg32.lib winspool.lib
+LIBSDLL = msvcrt.lib $(LIBS) $(EXTRALIBES)
+LIBSEXE = libcmt.lib $(LIBS)
+
+# Update the object files if necessary
+
+pmapi.obj: pmapi.c ..\c-client-dll\mail.h pmapi.h
+ $(CC) $(CFLAGS) $(CVARSDLL) pmapi.c
+smapi.obj: smapi.c ..\c-client-dll\mail.h pmapi.h
+ $(CC) $(CFLAGS) $(CVARSDLL) smapi.c
+rfc1522.obj: rfc1522.c ..\c-client-dll\mail.h pmapi.h
+ $(CC) $(CFLAGS) $(CVARSDLL) rfc1522.c
+
+instmapi.obj: instmapi.c
+ $(CC) $(CFLAGS) instmapi.c
+
+# Update the import library
+
+pmapi.res: pmapi.rc
+ $(RC) $(RCFLAGS) pmapi.rc
+
+# Update the dynamic link library
+
+pmapi32.dll: pmapi.obj smapi.obj rfc1522.obj pmapi.def pmapi.res
+ ..\pico\blddate > bdate.c
+ $(CC) /c $(CFLAGS) bdate.c
+ $(LINK) $(LFLAGS) $(DLLLFLAGS)\
+ -base:0x1C000000 \
+ -out:pmapi32.dll \
+ /DEF:pmapi.def \
+ pmapi.obj smapi.obj rfc1522.obj bdate.obj pmapi.res $(STDLIBS) $(LIBSDLL)
+
+instmapi.exe: instmapi.obj
+ $(LINK) $(LFLAGS) $(GUIFLAGS) -out:instmapi.exe instmapi.obj $(LIBSEXE)
+
+distclean:
diff --git a/mapi/pmapi.c b/mapi/pmapi.c
new file mode 100644
index 00000000..7fa3b455
--- /dev/null
+++ b/mapi/pmapi.c
@@ -0,0 +1,2929 @@
+
+/*
+ * ========================================================================
+ * Copyright 2006-2009 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "pmapi.h"
+
+static int xlate_key;
+
+mapi_global_s *ms_global = NULL;
+#define SIZEOF_20KBUF (20480)
+char tmp_20k_buf[SIZEOF_20KBUF];
+
+void mm_searched (MAILSTREAM *stream,unsigned long number);
+void mm_exists (MAILSTREAM *stream,unsigned long number);
+void mm_expunged (MAILSTREAM *stream,unsigned long number);
+void mm_flags (MAILSTREAM *stream,unsigned long number);
+void mm_notify (MAILSTREAM *stream,char *string,long errflg);
+void mm_list (MAILSTREAM *stream,int delimiter,char *name,long attributes);
+void mm_lsub (MAILSTREAM *stream,int delimiter,char *name,long attributes);
+void mm_status (MAILSTREAM *stream,char *mailbox,MAILSTATUS *status);
+void mm_log (char *string,long errflg);
+void mm_dlog (char *string);
+int fetch_recursively(BODY *body, long msgno, char *prefix,
+ PART *part, long flags, FLAGS MAPIflags,
+ sessionlist_s *cs);
+LRESULT CALLBACK Login(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam);
+void mm_login (NETMBX *mb,char *user,char *pwd,long trial);
+void mm_critical (MAILSTREAM *stream);
+void mm_nocritical (MAILSTREAM *stream);
+long mm_diskerror (MAILSTREAM *stream,long errcode,long serious);
+void mm_fatal (char *string);
+lpMapiFileDesc new_mapi_file_desc(int arraysize);
+void free_mapi_file_desc(lpMapiFileDesc lpmfd, int arraysize);
+file_s *new_file_s();
+void free_file_s(file_s *fs);
+void init_prcvars(mapi_global_s *nmg);
+void init_prcfeats(mapi_global_s *nmg);
+void expand_env_vars(mapi_global_s *nmg);
+void init_fcc_folder(mapi_global_s *nmg);
+void init_pmapi_registry_vars(mapi_global_s *nmg);
+void init_pmapi_vars(mapi_global_s *nmg);
+char *copy_remote_to_local(char *pinerc, sessionlist_s *cs);
+int read_pinerc(mapi_global_s *nmg, sessionlist_s *cs,
+ char *prc, char *pineconf, char *pinercex, int depth);
+void free_mapi_global(mapi_global_s *nmg);
+MAILSTREAM *first_open(sessionlist_s *cs);
+int lookup_file_mime_type(char *fn, BODY *body);
+int LookupMIMEFileExt(char *val, char *mime_type, DWORD *vallen);
+int in_passfile(sessionlist_s *cs);
+int set_text_data(BODY *body, char *txt);
+int get_suggested_directory(char *dir);
+int get_suggested_file_ext(char *file_ext, PART *part, DWORD *file_extlen);
+int InitDebug();
+int GetPineData();
+int UnderlineSpace(char *s);
+int GetOutlookVersion();
+char *pmapi_generate_message_id();
+SENDSTREAM *mapi_smtp_open(sessionlist_s *cs, char **servers, long options);
+char *encode_mailto_addr_keyval(lpMapiRecipDesc lpmr);
+char *encode_mailto_keyval(char *key, char* val);
+
+
+void mm_searched (MAILSTREAM *stream,unsigned long number)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_searched: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_exists (MAILSTREAM *stream,unsigned long number)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_exists: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_expunged (MAILSTREAM *stream,unsigned long number)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_expunged: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_flags (MAILSTREAM *stream,unsigned long number)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_flags: number is %d\r\n", number);
+ _flushall();
+ }
+}
+
+void mm_notify (MAILSTREAM *stream,char *string,long errflg)
+{
+ mapi_global_s *nmg;
+
+ nmg = ms_global;
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "IMAP mm_notify:%s %s\r\n",
+ (errflg == NIL ? "" :
+ (errflg == WARN ? " WARN:":
+ (errflg == ERROR ? " ERROR:":
+ (errflg == PARSE ? " PARSE:":" BYE:")))), string);
+ _flushall();
+ }
+}
+
+void mm_list (MAILSTREAM *stream,int delimiter,char *name,long attributes)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_list: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_lsub (MAILSTREAM *stream,int delimiter,char *name,long attributes)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_lsub: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_status (MAILSTREAM *stream,char *mailbox,MAILSTATUS *status)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_status: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_log (char *string,long errflg)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_log:%s %s\r\n",
+ (errflg == NIL ? "" :
+ (errflg == WARN ? " WARN:":
+ (errflg == ERROR ? " ERROR:":
+ (errflg == PARSE ? " PARSE:":" BYE:")))), string);
+ _flushall();
+ }
+ if(errflg == ERROR)
+ ErrorBox("ERROR: %s", string);
+}
+
+void mm_dlog (char *string)
+{
+ if(MSDEBUG){
+ time_t now;
+ struct tm *tm_now;
+
+ now = time((time_t *)0);
+ tm_now = localtime(&now);
+
+ fprintf(ms_global->dfd, "IMAP %2.2d:%2.2d:%2.2d %d/%d: %s\r\n",
+ tm_now->tm_hour, tm_now->tm_min, tm_now->tm_sec,
+ tm_now->tm_mon+1, tm_now->tm_mday, string);
+ _flushall();
+ }
+}
+
+int fetch_recursively(BODY *body, long msgno, char *prefix, PART *part,
+ long flags, FLAGS MAPIflags, sessionlist_s *cs)
+{
+ FILE *attfd;
+ PART *subpart;
+ mapi_global_s *nmg;
+ int num = 0, tmplen;
+ file_s *tfs, *tfs2;
+ unsigned long declen, numwritten;
+ void *decf;
+ char tmp[64], file_ext[64], filename[1024], dir[1024];
+ DWORD file_extlen = 64;
+ char *tmpatt;
+ unsigned long tmpattlen;
+
+ nmg = ms_global;
+ tmp[0] = '\0';
+ if(body && body->type == TYPEMULTIPART){
+ part = body->nested.part;
+ fetch_recursively(&part->body, msgno, prefix, part,
+ flags, MAPIflags, cs);
+ }
+ else{
+ do{
+ num++;
+ sprintf(tmp, "%s%s%d", prefix, (*prefix ? "." : ""), num);
+ if(part && part->body.type == TYPEMULTIPART){
+ subpart = part->body.nested.part;
+ fetch_recursively(&subpart->body, msgno, tmp,
+ subpart, flags, MAPIflags, cs);
+ }
+ else{
+ tmpatt = mail_fetch_body(cs->open_stream, msgno,
+ tmp, &tmpattlen, flags);
+ if(strcmp(tmp, "1") == 0){
+ if(((part && part->body.type == TYPETEXT) ||
+ (!part && body->type == TYPETEXT)) &&
+ !(MAPIflags & MAPI_BODY_AS_FILE)){
+ if(cs->lpm->lpszNoteText){
+ fs_give((void **)&cs->lpm->lpszNoteText);
+ cs->lpm->lpszNoteText = NULL;
+ }
+ cs->lpm->lpszNoteText = mstrdup(tmpatt);
+ tmpatt = NULL;
+ }
+ else
+ cs->lpm->lpszNoteText = mstrdup("");
+ if(MAPIflags & MAPI_SUPPRESS_ATTACH)
+ return 0;
+ }
+ if(tmpatt && part && part->body.encoding == ENCBASE64){
+ decf = rfc822_base64(tmpatt, tmpattlen, &declen);
+ tmpatt = NULL;
+ }
+ else if(tmpatt && part && part->body.encoding == ENCQUOTEDPRINTABLE){
+ decf = rfc822_qprint(tmpatt, tmpattlen, &declen);
+ tmpatt = NULL;
+ }
+ else{
+ if(tmpatt){
+ decf = mstrdup(tmpatt);
+ declen = tmpattlen;
+ }
+ else decf = NULL;
+ }
+ if(decf){
+ dir[0] = '\0';
+ get_suggested_directory(dir);
+ tmplen = strlen(dir);
+ if(dir[tmplen - 1] != '\\'){
+ dir[tmplen] = '\\';
+ dir[tmplen+1] = '\0';
+ }
+ file_ext[0] = '\0';
+ get_suggested_file_ext(file_ext,part, &file_extlen);
+ do{
+ sprintf(filename, "%smapiapp%d%s", dir, nmg->attach_no,
+ file_ext);
+ nmg->attach_no++;
+ }while (_access(filename, 00) != -1);
+ attfd = fopen(filename, "wb");
+ if(attfd){
+ if(MSDEBUG)
+ fprintf(nmg->dfd,"preparing to write attachment to %s\r\n",
+ filename);
+ numwritten = fwrite(decf, sizeof(char), declen, attfd);
+ fclose(attfd);
+ fs_give((void **)&decf);
+ tfs = new_file_s();
+ tfs->filename = mstrdup(filename);
+ if(!cs->fs)
+ cs->fs = tfs;
+ else{
+ for(tfs2 = cs->fs; tfs2->next; tfs2 = tfs2->next);
+ tfs2->next = tfs;
+ }
+ }
+ else{
+ if(MSDEBUG)
+ fprintf(nmg->dfd,"Failure in opening %s for attachment\r\n",
+ filename);
+ }
+ }
+ }
+ }while(part && (part = part->next));
+ }
+ return 0;
+}
+
+int fetch_structure_and_attachments(long msgno, long flags,
+ FLAGS MAPIflags, sessionlist_s *cs)
+{
+ BODY *body = NULL;
+ ENVELOPE *env;
+ ADDRESS *addr;
+ MESSAGECACHE *elt = NULL;
+ mapi_global_s *nmg;
+ file_s *tfs;
+ int num = 0, restore_seen = 0, file_count = 0, i;
+ unsigned long recips;
+ char tmp[1024]; /* don't know how much space we'll need */
+
+ nmg = ms_global;
+ env = mail_fetch_structure(cs->open_stream, msgno, &body, flags);
+ if(env == NULL || body == NULL){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "mail_fetch_structure returned %p for env and %p for body\r\n", env, body);
+ return MAPI_E_FAILURE;
+ }
+ if(cs->lpm){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "global lpm is set when it SHOULDN'T be! Freeing\r\n");
+ if(free_mbuffer(cs->lpm))
+ free_MapiMessage(cs->lpm, 1);
+ cs->lpm = NULL;
+ }
+ cs->lpm = new_MapiMessage(1);
+ if(env->subject) cs->lpm->lpszSubject = mstrdup(env->subject);
+ if(env->date){
+ elt = mail_elt(cs->open_stream, msgno);
+ mail_parse_date(elt, env->date);
+ sprintf(tmp, "%d/%s%d/%s%d %s%d:%s%d",
+ elt->year+BASEYEAR, (elt->month < 10) ? "0": "",
+ elt->month, (elt->day < 10) ? "0":"", elt->day,
+ (elt->hours < 10) ? "0":"", elt->hours,
+ (elt->minutes < 10) ? "0":"", elt->minutes);
+ cs->lpm->lpszDateReceived = mstrdup(tmp);
+ }
+ if(env->from){
+ cs->lpm->lpOriginator = new_MapiRecipDesc(1);
+ if(env->from->personal)
+ cs->lpm->lpOriginator->lpszName = mstrdup(env->from->personal);
+ if(env->from->mailbox && env->from->host){
+ /* don't know if these could ever be empty */
+ sprintf(tmp, "%s@%s", env->from->mailbox, env->from->host);
+ cs->lpm->lpOriginator->lpszAddress = mstrdup(tmp);
+ }
+ cs->lpm->lpOriginator->ulRecipClass = MAPI_ORIG;
+ }
+ if(env->to || env->cc || env->bcc){ /* should always be true */
+ recips = 0;
+ if(env->to){
+ addr = env->to;
+ while(addr){
+ recips++;
+ addr = addr->next;
+ }
+ }
+ if(env->cc){
+ addr = env->cc;
+ while(addr){
+ recips++;
+ addr = addr->next;
+ }
+ }
+ if(env->bcc){
+ addr = env->bcc;
+ while(addr){
+ recips++;
+ addr = addr->next;
+ }
+ }
+ cs->lpm->nRecipCount = recips;
+ cs->lpm->lpRecips = new_MapiRecipDesc(recips);
+ recips = 0;
+ if(env->to){
+ addr = env->to;
+ while(addr){
+ cs->lpm->lpRecips[recips].ulRecipClass = MAPI_TO;
+ if(addr->personal)
+ cs->lpm->lpRecips[recips].lpszName = mstrdup(addr->personal);
+ if(addr->mailbox && addr->host){
+ sprintf(tmp, "%s@%s", addr->mailbox, addr->host);
+ cs->lpm->lpRecips[recips].lpszAddress = mstrdup(tmp);
+ }
+ recips++;
+ addr = addr->next;
+ }
+ }
+ if(env->cc){
+ addr = env->cc;
+ while(addr){
+ cs->lpm->lpRecips[recips].ulRecipClass = MAPI_CC;
+ if(addr->personal)
+ cs->lpm->lpRecips[recips].lpszName = mstrdup(addr->personal);
+ if(addr->mailbox && addr->host){
+ sprintf(tmp, "%s@%s", addr->mailbox, addr->host);
+ cs->lpm->lpRecips[recips].lpszAddress = mstrdup(tmp);
+ }
+ recips++;
+ addr = addr->next;
+ }
+ }
+ if(env->bcc){
+ addr = env->bcc;
+ while(addr){
+ cs->lpm->lpRecips[recips].ulRecipClass = MAPI_BCC;
+ if(addr->personal)
+ cs->lpm->lpRecips[recips].lpszName = mstrdup(addr->personal);
+ if(addr->mailbox && addr->host){
+ sprintf(tmp, "%s@%s", addr->mailbox, addr->host);
+ cs->lpm->lpRecips[recips].lpszAddress = mstrdup(tmp);
+ }
+ recips++;
+ addr = addr->next;
+ }
+ }
+ }
+
+ if(flags & FT_PEEK){
+ /* gotta remember to unflag \Seen if we just want a peek */
+ sprintf(tmp, "%d", msgno);
+ mail_fetch_flags(cs->open_stream, tmp, NIL);
+ elt = mail_elt(cs->open_stream, msgno);
+ if(!elt->seen){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Message has not been seen, and a PEEK is requested\r\n");
+ restore_seen = 1;
+ }
+ else if(MSDEBUG)
+ fprintf(nmg->dfd, "Message has already been marked seen\r\n");
+ }
+ if(!(MAPIflags & MAPI_ENVELOPE_ONLY))
+ fetch_recursively(body, msgno, "", NULL, flags, MAPIflags, cs);
+ if(cs->fs){
+ for(tfs = cs->fs; tfs; tfs = tfs->next)
+ file_count++;
+ cs->lpm->lpFiles = new_mapi_file_desc(file_count);
+ for(i = 0, tfs = cs->fs; i < file_count && tfs; i++, tfs = tfs->next){
+ cs->lpm->lpFiles[i].lpszPathName = mstrdup(tfs->filename);
+ }
+ cs->lpm->nFileCount = file_count;
+ free_file_s(cs->fs);
+ cs->fs = NULL;
+ }
+ if(restore_seen){
+ elt = mail_elt(cs->open_stream, msgno);
+ if(!elt->seen && MSDEBUG)
+ fprintf(nmg->dfd, "Fetched body and Message still isn't seen\r\n");
+ else if(MSDEBUG)
+ fprintf(nmg->dfd, "Message has been seen, clearing flag\r\n");
+ if(elt->seen){
+ mail_flag(cs->open_stream, tmp, "\\SEEN", NIL);
+ elt = mail_elt(cs->open_stream, msgno);
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "After calling mail_flag(), elt->seen is %s\r\n",
+ elt->seen ? "SET" : "UNSET");
+ }
+ }
+ return SUCCESS_SUCCESS;
+}
+
+LRESULT CALLBACK Login(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
+{
+ mapi_global_s *nmg;
+
+ nmg = ms_global;
+
+ switch(message){
+ case WM_INITDIALOG:
+ SetDlgItemText(hDlg, IDC_SERVER, nmg->tmpmbxptr);
+ if(/*nmg->flags.mapi_logon_ui &&*/ in_passfile(nmg->cs)){
+ SetDlgItemText(hDlg, IDC_LOGIN, nmg->cs->dlge.edit1);
+ SetDlgItemText(hDlg, IDC_PASSWORD, nmg->cs->dlge.edit2);
+ }
+ else
+ SetDlgItemText(hDlg, IDC_LOGIN,
+ (*nmg->cs->mb->user) ? nmg->cs->mb->user
+ : nmg->prcvars[USER_ID]->val.p);
+ return TRUE;
+ case WM_COMMAND:
+ if(LOWORD(wParam) == IDOK){
+ nmg->cs->flags.dlg_cancel = 0;
+ GetDlgItemText(hDlg, IDC_LOGIN, nmg->cs->dlge.edit1, EDITLEN);
+ GetDlgItemText(hDlg, IDC_PASSWORD, nmg->cs->dlge.edit2, EDITLEN);
+ EndDialog(hDlg, LOWORD(wParam));
+ return TRUE;
+ }
+ else if(LOWORD(wParam) == IDCANCEL){
+ nmg->cs->flags.dlg_cancel = 1;
+ EndDialog(hDlg, LOWORD(wParam));
+ return TRUE;
+ }
+ break;
+ }
+ return FALSE;
+}
+
+void mm_login (NETMBX *mb,char *user,char *pwd,long trial)
+{
+ mapi_global_s *nmg;
+ pw_cache_s *tpwc, *dpwc;
+ int tmp_set_mbx = 0;
+
+ nmg = ms_global;
+ nmg->cs->mb = mb;
+ if(!nmg->cs->flags.dlg_cancel){
+ for(tpwc = nmg->cs->pwc; tpwc; tpwc = tpwc->next){
+ if(tpwc->validpw && strcmp(tpwc->host, mb->host) == 0)
+ break;
+ }
+ if(tpwc){
+ strcpy(user, tpwc->user);
+ strcpy(pwd, tpwc->pwd);
+ tpwc->validpw = 0;
+ }
+ /* else if(!nmg->cs->flags.check_stream) { */
+ else if(nmg->cs->flags.mapi_logon_ui || !nmg->pmapi_strict_no_dialog) {
+ if(!nmg->tmpmbxptr){
+ tmp_set_mbx = 1;
+ nmg->tmpmbxptr = mb->host;
+ }
+ DialogBox(nmg->mhinst, MAKEINTRESOURCE(IDD_DIALOG1),
+ nmg->cs->mhwnd, (DLGPROC)Login);
+ if(tmp_set_mbx)
+ nmg->tmpmbxptr = NULL;
+ if(!nmg->cs->flags.dlg_cancel){
+ strcpy(user, nmg->cs->dlge.edit1);
+ strcpy(pwd, nmg->cs->dlge.edit2);
+ tpwc = nmg->cs->pwc;
+ while(tpwc){
+ if(tpwc->validpw == 0){
+ dpwc = tpwc;
+ tpwc = tpwc->next;
+ if(dpwc == nmg->cs->pwc)
+ nmg->cs->pwc = dpwc->next;
+ fs_give((void **)&dpwc);
+ }
+ else
+ tpwc = tpwc->next;
+ }
+ if(nmg->cs->pwc == NULL){
+ nmg->cs->pwc = (pw_cache_s *)fs_get(sizeof(pw_cache_s));
+ tpwc = nmg->cs->pwc;
+ }
+ else {
+ for(tpwc = nmg->cs->pwc; tpwc->next; tpwc = tpwc->next);
+ tpwc->next = (pw_cache_s *)fs_get(sizeof(pw_cache_s));
+ tpwc = tpwc->next;
+ }
+ memset(tpwc, 0, sizeof(pw_cache_s));
+ strncpy(tpwc->user, nmg->cs->dlge.edit1, EDITLEN - 1);
+ strncpy(tpwc->pwd, nmg->cs->dlge.edit2, EDITLEN - 1);
+ strncpy(tpwc->host, mb->host, EDITLEN - 1);
+ }
+ }
+ }
+ nmg->cs->mb = NULL;
+}
+
+void mm_critical (MAILSTREAM *stream)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_critical: not implemented\r\n");
+ _flushall();
+ }
+}
+
+void mm_nocritical (MAILSTREAM *stream)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_nocritical: not implemented\r\n");
+ _flushall();
+ }
+}
+
+long mm_diskerror (MAILSTREAM *stream,long errcode,long serious)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_diskerror: not implemented\r\n");
+ _flushall();
+ }
+ return 1;
+}
+
+void mm_fatal (char *string)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "IMAP mm_fatal: %s\r\n", string);
+ _flushall();
+ }
+}
+
+sessionlist_s *new_sessionlist()
+{
+ sessionlist_s *cs;
+
+ cs = (sessionlist_s *)fs_get(sizeof(sessionlist_s));
+ memset(cs, 0, sizeof(sessionlist_s));
+ cs->session_number = ms_global->next_session++;
+
+ return cs;
+}
+
+sessionlist_s *free_sessionlist_node(sessionlist_s *cs)
+{
+ sessionlist_s *ts;
+
+ ts = cs->next;
+
+ if(cs->currently_open)
+ fs_give((void **)&cs->currently_open);
+ if(cs->fs)
+ free_file_s(cs->fs);
+ if(cs->lpm){
+ if(free_mbuffer(cs->lpm))
+ free_MapiMessage(cs->lpm, 1);
+ cs->lpm = NULL;
+ }
+ fs_give((void **)&cs);
+
+ return ts;
+}
+
+sessionlist_s *get_session(unsigned long num)
+{
+ mapi_global_s *nmg = ms_global;
+ sessionlist_s *ts;
+
+ ts = nmg->sessionlist;
+ while(ts && ts->session_number != num) ts = ts->next;
+ return ts;
+}
+
+/*
+void *mm_cache (MAILSTREAM *stream,unsigned long msgno,long op){}
+*/
+mapi_global_s *new_mapi_global()
+{
+ mapi_global_s *nmg;
+ int i;
+
+ nmg = (mapi_global_s *)fs_get(sizeof(mapi_global_s));
+ memset(nmg, 0, sizeof(mapi_global_s));
+ for(i=0; i < NUMPRCVARS; i++){
+ nmg->prcvars[i] = (rc_entry_s *)fs_get(sizeof(rc_entry_s));
+ memset(nmg->prcvars[i], 0, sizeof(rc_entry_s));
+ }
+ for(i=0; i < NUMPRCFEATS; i++){
+ nmg->prcfeats[i] = (rc_feat_s *)fs_get(sizeof(rc_feat_s));
+ memset(nmg->prcfeats[i], 0, sizeof(rc_feat_s));
+ }
+ nmg->next_session = 1;
+
+ return nmg;
+}
+
+int InitPineSpecific(sessionlist_s *cs)
+{
+ mapi_global_s *nmg = ms_global;
+
+ if(nmg->inited) return 0;
+ init_prcvars(ms_global);
+ init_prcfeats(ms_global);
+ init_pmapi_registry_vars(ms_global);
+ if(read_pinerc(ms_global, cs, ms_global->pinerc,
+ ms_global->pineconf, ms_global->pinercex, 0) == -1)
+ return -1;
+ expand_env_vars(ms_global);
+ init_fcc_folder(ms_global);
+ msprint1("Fcc folder defined: %s", ms_global->fccfolder);
+ init_pmapi_vars(ms_global);
+ nmg->inited = 1;
+ return 1;
+}
+
+int
+new_mbuffer(void *buf, int arraysize, BufType type)
+{
+ MBUFFER_LIST_S *tlist, *tlist2;
+ mapi_global_s *nmg = ms_global;
+
+ tlist = (MBUFFER_LIST_S *)fs_get(sizeof(MBUFFER_LIST_S));
+ memset(tlist, 0, sizeof(MBUFFER_LIST_S));
+ tlist->buf = buf;
+ tlist->arraysize = arraysize;
+ tlist->type = type;
+
+ if(!nmg->mapi_bufs)
+ nmg->mapi_bufs = tlist;
+ else{
+ for(tlist2 = nmg->mapi_bufs; tlist2->next; tlist2 = tlist2->next);
+ tlist2->next = tlist;
+ }
+
+ return(0);
+}
+
+int
+free_mbuffer(void *buf)
+{
+ MBUFFER_LIST_S *tlist, *pre_tlist = NULL;
+ mapi_global_s *nmg = ms_global;
+ sessionlist_s *session;
+
+ for(tlist = nmg->mapi_bufs; tlist && tlist->buf != buf; pre_tlist = tlist, tlist = tlist->next);
+ if(!tlist){
+ msprint1("ERROR: buf %p not found in list!\r\n", buf);
+ return 1;
+ }
+ if(tlist == nmg->mapi_bufs)
+ nmg->mapi_bufs = tlist->next;
+ else
+ pre_tlist->next = tlist->next;
+ switch (tlist->type) {
+ case RecipDesc:
+ free_MapiRecipDesc(tlist->buf, tlist->arraysize);
+ break;
+ case Message:
+ for(session = nmg->sessionlist; session; session = session->next){
+ if(session->lpm == tlist->buf)
+ session->lpm = NULL;
+ }
+ free_MapiMessage(tlist->buf, tlist->arraysize);
+ break;
+ }
+ fs_give((void **)&tlist);
+ return 0;
+}
+
+lpMapiRecipDesc
+new_MapiRecipDesc(int arraysize)
+{
+ lpMapiRecipDesc lpmrd;
+ mapi_global_s *nmg = ms_global;
+
+ lpmrd = (MapiRecipDesc *)fs_get(arraysize*sizeof(MapiRecipDesc));
+ memset(lpmrd, 0, arraysize*sizeof(MapiRecipDesc));
+ new_mbuffer((void *)lpmrd, arraysize, RecipDesc);
+ return lpmrd;
+}
+
+void
+free_MapiRecipDesc(lpMapiRecipDesc buf, int arraysize)
+{
+ int i;
+
+ for(i = 0; i < arraysize; i++){
+ if(buf[i].lpszName)
+ fs_give((void **)&buf[i].lpszName);
+ if(buf[i].lpszAddress)
+ fs_give((void **)&buf[i].lpszAddress);
+ }
+ fs_give((void **)&buf);
+}
+
+lpMapiMessage
+new_MapiMessage(int arraysize)
+{
+ lpMapiMessage lpmm;
+ mapi_global_s *nmg = ms_global;
+
+ lpmm = (lpMapiMessage)fs_get(arraysize*sizeof(MapiMessage));
+ memset(lpmm, 0, arraysize*sizeof(MapiMessage));
+ new_mbuffer((void *)lpmm, arraysize, Message);
+ return lpmm;
+}
+
+void
+free_MapiMessage(lpMapiMessage buf, int arraysize)
+{
+ int i;
+
+ for(i = 0; i < arraysize; i++){
+ if(buf[i].lpszSubject)
+ fs_give((void **)&buf[i].lpszSubject);
+ if(buf[i].lpszNoteText)
+ fs_give((void **)&buf[i].lpszNoteText);
+ if(buf[i].lpszMessageType)
+ fs_give((void **)&buf[i].lpszMessageType);
+ if(buf[i].lpszDateReceived)
+ fs_give((void **)&buf[i].lpszDateReceived);
+ if(buf[i].lpszConversationID)
+ fs_give((void **)&buf[i].lpszConversationID);
+ if(buf[i].lpOriginator){
+ if(free_mbuffer(buf[i].lpOriginator))
+ free_MapiRecipDesc(buf[i].lpOriginator, 1);
+ }
+ if(buf[i].lpRecips){
+ if(free_mbuffer(buf[i].lpRecips))
+ free_MapiRecipDesc(buf[i].lpRecips, buf[i].nRecipCount);
+ }
+ if(buf[i].lpFiles)
+ free_mapi_file_desc(buf[i].lpFiles, buf[i].nFileCount);
+ }
+ fs_give((void **)&buf);
+}
+
+lpMapiFileDesc new_mapi_file_desc(int arraysize)
+{
+ lpMapiFileDesc lpmfd;
+
+ lpmfd = (MapiFileDesc *)fs_get(arraysize * sizeof (MapiFileDesc));
+ memset(lpmfd, 0, arraysize * sizeof(MapiFileDesc));
+ return lpmfd;
+}
+
+void free_mapi_file_desc(lpMapiFileDesc lpmfd, int arraysize)
+{
+ int i;
+
+ if(lpmfd == NULL) return;
+
+ for(i = 0; i < arraysize; i++){
+ if(lpmfd[i].lpszPathName)
+ fs_give((void **)&lpmfd[i].lpszPathName);
+ if(lpmfd[i].lpszFileName)
+ fs_give((void **)&lpmfd[i].lpszFileName);
+ /* NOTE: if lpFileType gets used, free it here */
+ }
+ fs_give((void **)&lpmfd);
+}
+
+file_s *new_file_s()
+{
+ file_s *tmp_fs;
+
+ tmp_fs = (file_s *)fs_get(sizeof(file_s));
+ memset(tmp_fs, 0, sizeof(file_s));
+ return tmp_fs;
+}
+
+void free_file_s(file_s *fs)
+{
+ if(fs == NULL) return;
+ if(fs->next)
+ free_file_s(fs->next);
+ if(fs->filename)
+ fs_give((void **)&fs->filename);
+ fs_give((void **)&fs);
+}
+
+void
+init_prcvars(mapi_global_s *nmg)
+{
+ int i=0;
+
+ nmg->prcvars[USER_ID]->var = mstrdup("user-id");
+ nmg->prcvars[PERSONAL_NAME]->var = mstrdup("personal-name");
+ nmg->prcvars[USER_DOMAIN]->var = mstrdup("user-domain");
+ nmg->prcvars[SMTP_SERVER]->var = mstrdup("smtp-server");
+ nmg->prcvars[SMTP_SERVER]->islist = 1;
+ nmg->prcvars[INBOX_PATH]->var = mstrdup("inbox-path");
+ nmg->prcvars[FEATURE_LIST]->var = mstrdup("feature-list");
+ nmg->prcvars[FEATURE_LIST]->islist = 1;
+ nmg->prcvars[CHARACTER_SET]->var = mstrdup("character-set");
+ nmg->prcvars[FOLDER_COLLECTIONS]->var = mstrdup("folder-collections");
+ nmg->prcvars[FOLDER_COLLECTIONS]->islist = 1;
+ nmg->prcvars[PMAPI_SEND_BEHAVIOR]->var = mstrdup("pmapi-send-behavior");
+ nmg->prcvars[PMAPI_SEND_BEHAVIOR]->ispmapivar = 1;
+ nmg->prcvars[DEFAULT_FCC]->var = mstrdup("default-fcc");
+ nmg->prcvars[PMAPI_SUPPRESS_DIALOGS]->var = mstrdup("pmapi-suppress-dialogs");
+ nmg->prcvars[PMAPI_SUPPRESS_DIALOGS]->ispmapivar = 1;
+ nmg->prcvars[PMAPI_STRICT_NO_DIALOG]->var = mstrdup("pmapi-strict-no-dialog");
+ nmg->prcvars[PMAPI_STRICT_NO_DIALOG]->ispmapivar = 1;
+}
+
+void
+init_prcfeats(mapi_global_s *nmg)
+{
+ nmg->prcfeats[ENABLE8BIT]->var = mstrdup("enable-8bit-esmtp-negotiation");
+}
+
+void init_fcc_folder(mapi_global_s *nmg)
+{
+ char *fcc, **fc, *desc = NULL, *col = NULL, *tfcc, *p, *p2;
+ int i = 0;
+
+ if(!nmg->prcvars[DEFAULT_FCC]->val.p)
+ nmg->prcvars[DEFAULT_FCC]->val.p = cpystr("sent-mail");
+ fcc = nmg->prcvars[DEFAULT_FCC]->val.p;
+ if(!fcc || !(*fcc)) return;
+ if(strcmp(fcc, "\"\"") == 0) return;
+ if((*fcc == '{') || (isalpha(fcc[0]) && (fcc[1] == ':'))
+ || ((fcc[0] == '\\') && (fcc[1] == '\\'))){
+ nmg->fccfolder = cpystr(fcc);
+ return;
+ }
+ fc = nmg->prcvars[FOLDER_COLLECTIONS]->val.l;
+ if(!fc || !fc[0] || !fc[0][0]) return;
+ get_pair(fc[i], &desc, &col, 0, 0);
+ if(desc)
+ fs_give((void **)&desc);
+ if(!col)
+ return;
+ p = strrchr(col, '[');
+ p2 = strrchr(col, ']');
+ if((p2 < p) || (!p)){
+ if(col)
+ fs_give((void **)&col);
+ return;
+ }
+ tfcc = (char *)fs_get((strlen(col) + strlen(fcc) + 1) * sizeof(char));
+ *p = '\0';
+ p2++;
+ sprintf(tfcc, "%s%s%s", col, fcc, p2);
+ nmg->fccfolder = tfcc;
+ if(col)
+ fs_give((void **)&col);
+}
+
+void init_pmapi_registry_vars(mapi_global_s *nmg)
+{
+ HKEY hKey;
+ BYTE keyData[1024];
+ DWORD keyDataSize = 1024;
+ DWORD keyDataType;
+ int i;
+
+ if(RegOpenKeyEx(HKEY_CURRENT_USER,
+ "Software\\University of Washington\\Alpine\\1.0\\PmapiOpts",
+ 0,
+ KEY_QUERY_VALUE,
+ &hKey) != ERROR_SUCCESS)
+ return;
+
+ for(i = 0; i < NUMPRCVARS; i++){
+ if(nmg->prcvars[i]->ispmapivar && nmg->prcvars[i]->islist == 0){
+ keyDataSize = 1024;
+ if((RegQueryValueEx(hKey, nmg->prcvars[i]->var, 0, &keyDataType,
+ keyData, &keyDataSize) == ERROR_SUCCESS)
+ && keyDataType == REG_SZ){
+ if(nmg->prcvars[i]->val.p)
+ fs_give((void **)&nmg->prcvars[i]->val.p);
+ nmg->prcvars[i]->val.p = mstrdup(keyData);
+ }
+ }
+ }
+
+ RegCloseKey(hKey);
+}
+
+void init_pmapi_vars(mapi_global_s *nmg)
+{
+ char *b;
+
+ if(b = nmg->prcvars[PMAPI_SEND_BEHAVIOR]->val.p){
+ if(_stricmp(b, "always-prompt") == 0)
+ nmg->pmapi_send_behavior = PMSB_ALWAYS_PROMPT;
+ else if(_stricmp(b, "always-send") == 0)
+ nmg->pmapi_send_behavior = PMSB_ALWAYS_SEND;
+ else if(_stricmp(b, "never-send") == 0)
+ nmg->pmapi_send_behavior = PMSB_NEVER_SEND;
+ }
+ else
+ nmg->pmapi_send_behavior = PMSB_ALWAYS_PROMPT;
+ if(b = nmg->prcvars[PMAPI_SUPPRESS_DIALOGS]->val.p){
+ if(_stricmp(b, "yes") == 0)
+ nmg->pmapi_suppress_dialogs = PMSD_YES;
+ else if(_stricmp(b, "prompt") == 0)
+ nmg->pmapi_suppress_dialogs = PMSD_PROMPT;
+ else if(_stricmp(b, "no") == 0)
+ nmg->pmapi_suppress_dialogs = PMSD_NO;
+ }
+ else
+ nmg->pmapi_suppress_dialogs = PMSD_NO;
+ if(b = nmg->prcvars[PMAPI_STRICT_NO_DIALOG]->val.p){
+ if(_stricmp(b, "yes") == 0)
+ nmg->pmapi_strict_no_dialog = 1;
+ }
+ else
+ nmg->pmapi_strict_no_dialog = 0;
+}
+
+char *copy_remote_to_local(char *pinerc, sessionlist_s *cs)
+{
+ mapi_global_s *nmg = ms_global;
+ char *tmptext, dir[1024], filename[1024];
+ unsigned long tmptextlen, i = 0, numwritten;
+ FILE *prcfd;
+
+ if(nmg->cs) return NULL;
+ if(!(cs->open_stream = mapi_mail_open(cs, NULL, pinerc,
+ ms_global->debug ? OP_DEBUG : NIL))){
+ ErrorBox("Couldn't open %s for reading as remote pinerc", pinerc);
+ return NULL;
+ }
+ nmg->cs = NULL;
+ nmg->tmpmbxptr = NULL;
+ tmptext = mail_fetch_body(cs->open_stream, cs->open_stream->nmsgs,
+ "1", &tmptextlen, NIL);
+ dir[0] = '\0';
+ get_suggested_directory(dir);
+ do{
+ sprintf(filename, "%s%smapipinerc%d", dir,
+ dir[strlen(dir)-1] == '\\' ? "" : "\\", i);
+ i++;
+ }while (_access(filename, 00) != -1);
+ if(prcfd = fopen(filename, "wb")){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd,"preparing to write pinerc to %s\r\n",
+ filename);
+ numwritten = fwrite(tmptext, sizeof(char), tmptextlen, prcfd);
+ fclose(prcfd);
+ }
+ else{
+ ErrorBox("Couldn't open temp file %s for writing", filename);
+ mail_close_full(cs->open_stream, NIL);
+ return NULL;
+ }
+ cs->open_stream = mail_close_full(cs->open_stream, NIL);
+ return(mstrdup(filename));
+}
+
+int read_pinerc(mapi_global_s *nmg, sessionlist_s *cs,
+ char *prc, char *pineconf, char *pinercex, int depth)
+{
+ FILE *prcfd;
+ int i, varnum, j, varlen, create_local = 0, k;
+ char line[BUFLEN], *local_pinerc, *p;
+
+ if(nmg == NULL) return -1;
+ if(MSDEBUG){
+ fprintf(nmg->dfd,
+ "read_pinerc called: prc: %s, pineconf: %s, pinercex: %s, depth: %d\r\n",
+ prc ? prc : "NULL", pineconf ? pineconf : "NULL",
+ pinercex ? pinercex : "NULL", depth);
+ }
+ if(pineconf){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Recursively calling read_pinerc for pineconf\r\n");
+ read_pinerc(nmg, cs, pineconf, NULL, NULL, 1);
+ }
+ if(prc == NULL){
+ ErrorBox("No value found for %s. Try running Alpine.", "pinerc");
+ DEBUG_WRITE("No value found for %s\r\n","pinerc");
+ _flushall();
+ return -1;
+ }
+ if(*prc == '{'){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "REMOTE PINERC: %s\r\n", prc);
+ if(!(local_pinerc = copy_remote_to_local(prc, cs))){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Couldn't copy remote pinerc to local\r\n");
+ return -1;
+ }
+ create_local = 1;
+ }
+ else{
+ if(!(local_pinerc = mstrdup(prc))){
+ ErrorBox("Couldn't fs_get for %s","pinerc");
+ return -1;
+ }
+ }
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Preparing to open local pinerc %s\r\n", local_pinerc);
+ prcfd = fopen(local_pinerc, "r");
+ if(prcfd == NULL){
+ DEBUG_WRITE("Couldn't open %s\r\n","pinerc");
+ _flushall();
+ ErrorBox("Couldn't open %s\r\n","pinerc");
+ if(local_pinerc)
+ fs_give((void **)&local_pinerc);
+ return -1;
+ }
+ DEBUG_WRITE("Opened %s for reading\r\n", "pinerc");
+ for(i = 0; i < NUMPRCVARS && nmg->prcvars[i]->var; i++);
+ varnum = i;
+ while(fgets(line, BUFLEN, prcfd)){
+ j = 0;
+ while(isspace(line[j])) j++;
+ if(line[j] != '#' && line[j] != '\0'){
+ for(i = 0; i < varnum; i ++){
+ varlen = strlen(nmg->prcvars[i]->var);
+ if(_strnicmp(nmg->prcvars[i]->var, line+j, varlen)==0){
+ j += varlen;
+ if(line[j] == '='){
+ /* we found a match in the pinerc */
+ j++;
+ if(nmg->prcvars[i]->islist){
+ while(isspace(line[j])) j++;
+ if(line[j] != '\0'){
+ STRLIST_S *strl = NULL, *tl, *tln;
+
+ if(nmg->prcvars[i]->val.l){
+ for(k = 0; nmg->prcvars[i]->val.l[k]; k++)
+ fs_give((void **)&nmg->prcvars[i]->val.l[k]);
+ fs_give((void **)&nmg->prcvars[i]->val.l);
+ }
+ strl = (STRLIST_S *)fs_get(sizeof(STRLIST_S));
+ memset(strl, 0, sizeof(STRLIST_S));
+ tl = strl;
+ while(line[j]){
+ while(isspace(line[j])) j++;
+ if(p = strchr(line+j, ','))
+ *p = '\0';
+ if(tl != strl || tl->str){
+ tl->next = (STRLIST_S *)fs_get(sizeof(STRLIST_S));
+ tl = tl->next;
+ memset(tl, 0, sizeof(STRLIST_S));
+ }
+ varlen = strlen(line+j);
+ while(isspace((line+j)[varlen - 1])){
+ varlen--;
+ (line+j)[varlen] = '\0';
+ }
+ tl->str = mstrdup(line+j);
+ if(p){
+ j = p - line + 1;
+ while(isspace(line[j])) j++;
+ if(!line[j]){
+ fgets(line, BUFLEN, prcfd);
+ j = 0;
+ }
+ }
+ else
+ break;
+ }
+ for(tl = strl, k = 0; tl; tl = tl->next, k++);
+ nmg->prcvars[i]->val.l = (char **)fs_get((k+1)*sizeof(char *));
+ for(tl = strl, k = 0; tl; tl = tln, k++){
+ nmg->prcvars[i]->val.l[k] = tl->str;
+ tln = tl->next;
+ fs_give((void **)&tl);
+ }
+ nmg->prcvars[i]->val.l[k] = NULL;
+ }
+ }
+ else{
+ while(isspace(line[j])) j++;
+ if(line[j] != '\0'){
+ varlen = strlen(line+j);
+ while(isspace((line+j)[varlen-1])){
+ varlen--;
+ (line+j)[varlen] = '\0';
+ }
+ if(nmg->prcvars[i]->val.p) fs_give((void **)&nmg->prcvars[i]->val.p);
+ nmg->prcvars[i]->val.p = (char *)fs_get((varlen + 1)*sizeof(char));
+ strncpy(nmg->prcvars[i]->val.p, line+j, varlen);
+ nmg->prcvars[i]->val.p[varlen] = '\0';
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ if(!depth){
+ if(pinercex){
+ if(MSDEBUG)
+ fprintf(nmg->dfd,
+ "Recursively calling read_pinerc for exceptions\r\n");
+ read_pinerc(nmg, cs, pinercex, NULL, NULL, 1);
+ }
+ }
+ _flushall();
+ fclose(prcfd);
+ for(i = 0; nmg->prcvars[FEATURE_LIST]->val.l
+ && nmg->prcvars[FEATURE_LIST]->val.l[i]; i++){
+ for(j = 0; j < NUMPRCFEATS; j++){
+ if(strcmp(nmg->prcfeats[j]->var, nmg->prcvars[FEATURE_LIST]->val.l[i]) == 0)
+ nmg->prcfeats[j]->is_set = 1;
+ else if((strncmp("no-", nmg->prcvars[FEATURE_LIST]->val.l[i], 3) == 0)
+ && (strcmp(nmg->prcfeats[j]->var,
+ nmg->prcvars[FEATURE_LIST]->val.l[i] + 3) == 0)){
+ nmg->prcfeats[j]->is_set = 0;
+ }
+ }
+ }
+ if(create_local && local_pinerc){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Removing %s\r\n", local_pinerc);
+ _unlink(local_pinerc);
+ }
+ if(local_pinerc)
+ fs_give((void **)&local_pinerc);
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "Current pinerc settings:\r\n");
+ for(i = 0; i < varnum; i++){
+ fprintf(nmg->dfd, "%s:", nmg->prcvars[i]->var);
+ if(!nmg->prcvars[i]->islist)
+ fprintf(nmg->dfd, " %s\r\n",
+ nmg->prcvars[i]->val.p ? nmg->prcvars[i]->val.p : " NOT DEFINED");
+ else{
+ if(!nmg->prcvars[i]->val.l)
+ fprintf(nmg->dfd, " NOT DEFINED\r\n");
+ else {
+ for(j = 0; nmg->prcvars[i]->val.l[j]; j++)
+ fprintf(nmg->dfd, "\t%s\r\n",
+ nmg->prcvars[i]->val.l[j]);
+ }
+ }
+ }
+ }
+ return 0;
+}
+
+void expand_env_vars(mapi_global_s *nmg)
+{
+ int i, j, check_reg = 0, islist;
+ DWORD keyDataSize = 1024, keyDataType;
+ char *p1, *p2, *p3, keyData[1024], *newstr, **valstrp;
+ HKEY hKey;
+
+
+ if(RegOpenKeyEx(HKEY_CURRENT_USER,
+ "Software\\University of Washington\\Alpine\\1.0\\PmapiOpts\\Env",
+ 0,
+ KEY_QUERY_VALUE,
+ &hKey) == ERROR_SUCCESS)
+ check_reg = 1;
+ for(i = 0; i < NUMPRCVARS; i++){
+ islist = nmg->prcvars[i]->islist;
+ for(j = 0; islist ? (int)(nmg->prcvars[i]->val.l && nmg->prcvars[i]->val.l[j])
+ : (j < 1); j++){
+ valstrp = islist ? &nmg->prcvars[i]->val.l[j] : &nmg->prcvars[i]->val.p;
+ if(*valstrp == NULL) continue;
+ while((p1 = strstr(*valstrp, "${")) && (p2 = strchr(p1, '}'))){
+ msprint1("%s -> ", *valstrp);
+ *p2 = '\0';
+ p3 = NULL;
+ if((p3 = getenv(p1+2)) && *p3)
+ ;
+ else if(check_reg && (keyDataSize = 1024)
+ && (RegQueryValueEx(hKey, p1+2, 0, &keyDataType,
+ keyData, &keyDataSize) == ERROR_SUCCESS)
+ && keyDataType == REG_SZ)
+ p3 = keyData;
+ newstr = (char *)fs_get(sizeof(char)*(strlen(*valstrp)
+ + strlen(p3 ? p3 : "") + strlen(p2+1) + 1));
+ *p1 = '\0';
+ strcpy(newstr, *valstrp);
+ strcat(newstr, p3 && *p3 ? p3 : "");
+ strcat(newstr, p2 + 1);
+ fs_give((void **)valstrp);
+ *valstrp = newstr;
+ msprint1(" %s\r\n", *valstrp);
+ }
+ }
+ }
+ if(check_reg)
+ RegCloseKey(hKey);
+}
+
+void free_mapi_global(mapi_global_s *nmg)
+{
+ int i, j;
+ sessionlist_s *ts;
+
+ if(nmg->pineExe)
+ fs_give((void **)&nmg->pineExe);
+ if(nmg->pineExeAlt)
+ fs_give((void **)&nmg->pineExeAlt);
+ if(nmg->pinerc)
+ fs_give((void **)&nmg->pinerc);
+ if(nmg->pineconf)
+ fs_give((void **)&nmg->pineconf);
+ if(nmg->pinercex)
+ fs_give((void **)&nmg->pinercex);
+ if(nmg->fccfolder)
+ fs_give((void **)&nmg->fccfolder);
+ if(nmg->attachDir)
+ fs_give((void **)&nmg->attachDir);
+ for(i = 0; i < NUMPRCFEATS; i++){
+ if(nmg->prcfeats[i]->var)
+ fs_give((void **)&nmg->prcfeats[i]->var);
+ fs_give((void **)&nmg->prcfeats[i]);
+ }
+ for(i = 0; i < NUMPRCVARS; i++){
+ if(nmg->prcvars[i]->var)
+ fs_give((void **)&nmg->prcvars[i]->var);
+ if(nmg->prcvars[i]->islist){
+ if(nmg->prcvars[i]->val.l){
+ for(j = 0; nmg->prcvars[i]->val.l[j]; j++)
+ fs_give((void **)&nmg->prcvars[i]->val.l[j]);
+ fs_give((void **)&nmg->prcvars[i]->val.l);
+ }
+ }
+ else {
+ if(nmg->prcvars[i]->val.p)
+ fs_give((void **)&nmg->prcvars[i]->val.p);
+ }
+ fs_give((void **)&nmg->prcvars[i]);
+ }
+ for(ts = nmg->sessionlist; ts;){
+ if(ts->open_stream)
+ ts->open_stream = mail_close_full(ts->open_stream, NIL);
+ ts = free_sessionlist_node(ts);
+ }
+ if(nmg->debugFile)
+ fs_give((void **)&nmg->debugFile);
+ if(nmg->debug && nmg->dfd)
+ fclose(nmg->dfd);
+ nmg->debug = FALSE;
+ fs_give((void **)&nmg);
+}
+
+MAILSTREAM *first_open(sessionlist_s *cs)
+{
+ mapi_global_s *nmg = ms_global;
+ /* cs->mhwnd = (HWND)ulUIParam;
+ * if(flFlags & MAPI_LOGON_UI)
+ * cs->flags.mapi_logon_ui = TRUE;
+ */
+ /* if someone is logging in right now, return failure */
+ if(nmg->cs) return NULL;
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Opening mailbox for the first time\r\n");
+ if(nmg->prcvars[INBOX_PATH]->val.p == NULL){
+ ErrorBox("No value set for %s!", "inbox");
+ return NULL;
+ }
+ cs->open_stream = mapi_mail_open(cs, cs->open_stream, nmg->prcvars[INBOX_PATH]->val.p,
+ nmg->debug ? OP_DEBUG : NIL);
+ /* cs->flags.mapi_logon_ui = FALSE; */
+ if(cs->open_stream){
+ if(cs->currently_open){
+ fs_give((void **)&cs->currently_open);
+ cs->currently_open = NULL;
+ }
+ cs->currently_open = mstrdup(nmg->prcvars[INBOX_PATH]->val.p);
+ if(nmg->debug)
+ mail_debug(cs->open_stream);
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "returning SUCCESS_SUCCESS\r\n");
+ _flushall();
+ }
+ return cs->open_stream;
+ }
+ else if(cs->flags.dlg_cancel){
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "returning MAPI_E_FAILURE\r\n");
+ _flushall();
+ }
+ return NULL;
+ }
+ else{
+ cs->dlge.edit1[0] = '\0';
+ cs->dlge.edit2[0] = '\0';
+ if(cs->currently_open){
+ fs_give((void **)&cs->currently_open);
+ cs->currently_open = NULL;
+ }
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "returning MAPI_E_FAILURE\r\n");
+ _flushall();
+ }
+ return NULL;
+ }
+}
+
+SENDSTREAM *
+mapi_smtp_open(sessionlist_s *cs, char **servers, long options)
+{
+ mapi_global_s *nmg = ms_global;
+ SENDSTREAM *newstream;
+ pw_cache_s *tpwc, *dpwc;
+
+ nmg->cs = cs;
+ nmg->tmpmbxptr = NULL;
+ nmg->cs->flags.dlg_cancel = 0;
+ newstream = smtp_open(servers, options);
+ nmg->cs = NULL;
+ nmg->tmpmbxptr = NULL;
+
+ if(newstream){ /* if open stream, valid password */
+ for(tpwc = cs->pwc; tpwc; tpwc = tpwc->next)
+ tpwc->validpw = 1;
+ }
+ else{
+ for(tpwc = cs->pwc, dpwc = NULL; tpwc; dpwc = tpwc, tpwc = tpwc->next){
+ if(tpwc->validpw == 0){
+ if(tpwc == cs->pwc)
+ cs->pwc = tpwc->next;
+ else
+ dpwc->next = tpwc->next;
+ fs_give((void **)&tpwc);
+ }
+ }
+ }
+ return(newstream);
+}
+
+MAILSTREAM *
+mapi_mail_open(sessionlist_s *cs, MAILSTREAM *stream, char *name, long options)
+{
+ MAILSTREAM *newstream;
+ mapi_global_s *nmg = ms_global;
+ pw_cache_s *tpwc, *dpwc;
+
+ nmg->cs = cs;
+ nmg->tmpmbxptr = name;
+ nmg->cs->flags.dlg_cancel = 0;
+ newstream = mail_open(stream, name, options);
+ nmg->tmpmbxptr = NULL;
+ nmg->cs = NULL;
+
+ if(newstream){ /* if open stream, valid password */
+ for(tpwc = cs->pwc; tpwc; tpwc = tpwc->next)
+ tpwc->validpw = 1;
+ }
+ else{
+ tpwc = cs->pwc;
+ while(tpwc){
+ if(tpwc->validpw == 0){
+ dpwc = tpwc;
+ tpwc = tpwc->next;
+ if(dpwc == cs->pwc)
+ cs->pwc = dpwc->next;
+ fs_give((void **)&dpwc);
+ }
+ else
+ tpwc = tpwc->next;
+ }
+ }
+
+ return (newstream);
+}
+
+
+MAILSTREAM *check_mailstream(sessionlist_s *cs)
+{
+ mapi_global_s *nmg;
+
+ nmg = ms_global;
+
+ if(!cs->open_stream){
+ return(first_open(cs));
+ }
+ cs->flags.check_stream = TRUE;
+ if(!mail_ping(cs->open_stream)){
+ if(nmg->cs) return NULL;
+ cs->open_stream = mapi_mail_open(cs, cs->open_stream,
+ cs->currently_open ? cs->currently_open :
+ nmg->prcvars[INBOX_PATH]->val.p,
+ nmg->debug ? OP_DEBUG : NIL);
+ if(!cs->open_stream){
+ fs_give((void **)&cs->currently_open);
+ cs->currently_open = NULL;
+ cs->dlge.edit1[0] = '\0';
+ cs->dlge.edit2[0] = '\0';
+ cs->flags.check_stream = FALSE;
+ return NULL;
+ }
+ }
+ cs->flags.check_stream = FALSE;
+ return cs->open_stream;
+}
+
+/* pretty much changes a string to an integer,
+ * but if it is not a valid message number, then 0 is returned
+ */
+unsigned long convert_to_msgno(char *msgid)
+{
+ unsigned long place_holder = 1, msgno = 0;
+ int i, len;
+
+ len = strlen(msgid);
+ for(i = 0; i < len; i++){
+ if(msgid[len-1-i] - '0' < 0 || msgid[len-1-i] - '0' > 9)
+ return 0;
+ msgno += (msgid[len - 1 - i] - '0')*place_holder;
+ place_holder *= 10;
+ }
+
+ return msgno;
+}
+
+/*
+ * Lookup file's mimetype by its file extension
+ * fn - filename
+ * body - body in which to store new type, subtype
+ *
+ * A mime type is ALWAYS set
+ *
+ * Returns 0 if the file extension was found and mimetype was set accordingly
+ * 1 if otherwise
+ */
+int lookup_file_mime_type(char *fn, BODY *body)
+{
+ char *p, subkey[1024], val[1024];
+ DWORD dtype, vallen = 1024;
+ HKEY hKey;
+ int i, rv = 0;
+
+ if(body->subtype)
+ fs_give((void **)&body->subtype);
+ if((p = strrchr(fn, '.')) && p[1]){
+ sprintf(subkey, "%.1020s", p);
+ if(RegOpenKeyEx(HKEY_CLASSES_ROOT, subkey, 0, KEY_READ, &hKey) == ERROR_SUCCESS){
+ if(RegQueryValueEx(hKey, "Content Type", NULL, &dtype, val, &vallen) == ERROR_SUCCESS){
+ RegCloseKey(hKey);
+ if((p = strrchr(val, '/')) && p[1]){
+ *(p++) = '\0';
+ body->subtype = mstrdup(p);
+ for(i=0; (i <= TYPEMAX) && body_types[i] && _stricmp(val, body_types[i]); i++);
+ if(i > TYPEMAX)
+ i = TYPEOTHER;
+ else if(!body_types[i])
+ body_types[i] = mstrdup(val);
+ body->type = i;
+ return 0;
+ }
+ }
+ }
+ }
+ body->type = TYPEAPPLICATION;
+ body->subtype = "octet-stream";
+ return 1;
+}
+
+int LookupMIMEFileExt(char *val, char *mime_type, DWORD *vallen)
+{
+ HKEY hKey;
+ DWORD dtype;
+ LONG rv = !ERROR_SUCCESS;
+ char subkey[1024];
+
+ sprintf(subkey, "MIME\\Database\\Content Type\\%s", mime_type);
+ if(RegOpenKeyEx(HKEY_CLASSES_ROOT, subkey, 0, KEY_READ, &hKey) == ERROR_SUCCESS){
+ rv = RegQueryValueEx(hKey,"extension",NULL, &dtype, val, vallen);
+ RegCloseKey(hKey);
+ }
+
+ return(rv);
+}
+
+/*
+ * xlate_out() - xlate_out the given character
+ */
+char
+xlate_out(c)
+ char c;
+{
+ register int dti;
+ register int xch;
+
+ if((c >= FIRSTCH) && (c <= LASTCH)){
+ xch = c - (dti = xlate_key);
+ xch += (xch < FIRSTCH-TABSZ) ? 2*TABSZ : (xch < FIRSTCH) ? TABSZ : 0;
+ dti = (xch - FIRSTCH) + dti;
+ dti -= (dti >= 2*TABSZ) ? 2*TABSZ : (dti >= TABSZ) ? TABSZ : 0;
+ xlate_key = dti;
+ return(xch);
+ }
+ else
+ return(c);
+}
+
+/* return TRUE if the pwd is found, FALSE if not */
+int in_passfile(sessionlist_s *cs)
+{
+ mapi_global_s *nmg;
+ char *tf, *tp, *ui[4], tmp[1024], *dir;
+ int i, j, n;
+ FILE *tfd;
+
+ nmg = ms_global;
+
+ if(*nmg->pinerc == '{')
+ dir = nmg->pineExe;
+ else
+ dir = nmg->pinerc;
+
+ /* if(nmg->flags.passfile_checked) return FALSE; */
+ if(!(tf = (char *)fs_get(sizeof(char)*(strlen(dir) + strlen("pine.pwd") + 1)))){
+ /* nmg->flags.passfile_checked = TRUE; */
+ return FALSE;
+ }
+ strcpy(tf,dir);
+ if(tp = strrchr(tf, '\\')){
+ tp++;
+ strcpy(tp, "pine.pwd");
+ }
+ else /* don't know when this will ever happen */
+ strcpy(tf, "pine.pwd");
+ if(_access(tf, 00) == 0){
+ if(MSDEBUG)
+ fprintf(nmg->dfd,"found %s for passwords\r\n", tf);
+ if(!(tfd = fopen(tf,"r"))){
+ fs_give((void **)&tf);
+ /* nmg->flags.passfile_checked = TRUE; */
+ return FALSE;
+ }
+ else{
+ for(n = 0; fgets(tmp, 1024, tfd); n++){
+ /*** do any necessary DEcryption here ***/
+ xlate_key = n;
+ for(i = 0; tmp[i]; i++)
+ tmp[i] = xlate_out(tmp[i]);
+
+ if(i && tmp[i-1] == '\n')
+ tmp[i-1] = '\0'; /* blast '\n' */
+
+ ui[0] = ui[1] = ui[2] = ui[3] = NULL;
+ for(i = 0, j = 0; tmp[i] && j < 4; j++){
+ for(ui[j] = &tmp[i]; tmp[i] && tmp[i] != '\t'; i++)
+ ;
+
+ if(tmp[i])
+ tmp[i++] = '\0';
+ }
+
+ if(ui[0] && ui[1] && ui[2]){
+ if(strcmp(ui[2], cs->mb->host) == 0){
+ if((cs->mb->altflag && ui[3] && *ui[3] == '1')
+ || (!cs->mb->altflag && (!ui[3] || (*ui[3] == '0')))){
+ if(strcmp(ui[1], *cs->mb->user ? cs->mb->user
+ : nmg->prcvars[USER_ID]->val.p) == 0){
+ /* winner */
+ strcpy(cs->dlge.edit1, *cs->mb->user ? cs->mb->user
+ : nmg->prcvars[USER_ID]->val.p);
+ strcpy(cs->dlge.edit2, ui[0]);
+ fclose(tfd);
+ fs_give((void **)&tf);
+ /* nmg->flags.passfile_checked = TRUE; */
+ return TRUE;
+ }
+ }
+ }
+ }
+ }
+ fclose(tfd);
+ fs_give((void **)&tf);
+ }
+ }
+ else{
+ fs_give((void **)&tf);
+ /* nmg->flags.passfile_checked = TRUE; */
+ return FALSE;
+ }
+ /* nmg->flags.passfile_checked = TRUE; */
+ return FALSE;
+}
+
+int get_suggested_directory(char *dir)
+{
+ char *tmpdir;
+
+ if(tmpdir = getenv("TEMP")){
+ strcpy(dir, tmpdir);
+ return TRUE;
+ }
+ else if(tmpdir = getenv("TMP")){
+ strcpy(dir, tmpdir);
+ return TRUE;
+ }
+ else if(ms_global && ms_global->attachDir){
+ strcpy(dir, ms_global->attachDir);
+ return TRUE;
+ }
+ else{ /* should NEVER get here */
+ strcpy(dir, "C:\\");
+ return TRUE;
+ }
+ return FALSE;
+}
+
+
+/* return TRUE if file_ext is modified, FALSE if not */
+int get_suggested_file_ext(char *file_ext, PART *part, DWORD *file_extlen)
+{
+ char mime_type[1024], *tmp_ext;
+ int rv = !ERROR_SUCCESS;
+ PARAMETER *param;
+
+ if(part->body.subtype){
+ sprintf(mime_type, "%s/%s", body_types[part->body.type], part->body.subtype);
+ rv = LookupMIMEFileExt(file_ext, mime_type, file_extlen);
+ }
+ if(rv == ERROR_SUCCESS)
+ return TRUE;
+ else{
+ param = part->body.parameter;
+ while(param && (_stricmp("NAME", param->attribute)))
+ param = param->next;
+ if(!param){
+ if(part->body.type == TYPEMESSAGE){
+ /* don't try to recurse through attached messages yet */
+ strcpy(file_ext, ".txt");
+ return TRUE;
+ }
+ }
+ tmp_ext = strrchr(param->value, (int)'.');
+ if(!tmp_ext) return FALSE;
+ strcpy(file_ext, tmp_ext);
+ }
+ return TRUE;
+}
+
+/* return -1 for failure */
+int InitDebug()
+{
+ char path[1024];
+
+ if(!ms_global){
+ if((ms_global = new_mapi_global()) == NULL) return -1;
+ }
+ /*
+ * if debug file exists, turn on debugging mode
+ */
+ if(ms_global->debug == 1) /* debug file already initialized, somehow */
+ return 1;
+ get_suggested_directory(path);
+ if(path[strlen(path-1)] != '\\')
+ strcat(path, "\\");
+ strcat(path, "mapi_debug.txt");
+ if(_access(path, 00) == 0){
+ ms_global->debug = 1;
+ }
+ else{
+ get_suggested_directory(path);
+ if(path[strlen(path-1)] != '\\')
+ strcat(path, "\\");
+ strcat(path, "mapisend");
+ if(_access(path, 00) == 0){
+ ms_global->debug = 1;
+ }
+ }
+
+ if(ms_global->debug){
+ ms_global->dfd = fopen(path, "wb");
+ if(!ms_global->dfd){
+ ErrorBox("MAPISendMail: debug off: can't open debug file %.200s",
+ path);
+ ms_global->debug = 0; /* can't open the file, turn off debugging */
+ }
+ else if(ms_global->debug == 1){
+ ms_global->debugFile = (char *)fs_get((1+strlen(path))*sizeof(char));
+ strcpy(ms_global->debugFile, path);
+ }
+ }
+
+ if(ms_global->debug && (ms_global->dfd == NULL))
+ ms_global->debug = 0;
+
+ return ms_global->debug;
+}
+
+int GetPineData()
+{
+ HKEY pineKey;
+ BYTE pineKeyData[1024];
+ DWORD pineKeyDataSize;
+ DWORD pineKeyDataType;
+ char *defPath = "c:\\pine\\pine.exe";
+ char *pineExe = strrchr(defPath, '\\')+1;
+ char *freepineExe = NULL;
+ char *defAttachDir = "c:\\tmp";
+ char *penv = NULL;
+
+ /*
+ * get name of and path to pine.exe from registry
+ */
+ if (RegOpenKeyEx(
+ HKEY_LOCAL_MACHINE,
+ "SOFTWARE\\University of Washington\\Alpine\\1.0",
+ 0,
+ KEY_QUERY_VALUE,
+ &pineKey) == ERROR_SUCCESS) {
+ pineKeyDataSize = sizeof(pineKeyData);
+ if (RegQueryValueEx(
+ pineKey,
+ "PineEXE",
+ 0,
+ &pineKeyDataType,
+ pineKeyData,
+ &pineKeyDataSize) == ERROR_SUCCESS) {
+ freepineExe = (char *)fs_get((pineKeyDataSize + 1) * sizeof(char));
+ if ((pineExe = freepineExe) != NULL) {
+ strcpy(pineExe, pineKeyData);
+ }
+ else {
+ ErrorBox("MAPISendMail: can't fs_get %d bytes for pineExe",
+ pineKeyDataSize);
+ return 0;
+ }
+ if (MSDEBUG) {
+ fprintf(ms_global->dfd,"pine.exe pineKeyDataSize: %d\r\n", pineKeyDataSize);
+ fprintf(ms_global->dfd,"pine.exe pineKeyData: %s\r\n", pineKeyData);
+ }
+ }
+ pineKeyDataSize = sizeof(pineKeyData);
+ if (RegQueryValueEx(
+ pineKey,
+ "pinedir",
+ 0,
+ &pineKeyDataType,
+ pineKeyData,
+ &pineKeyDataSize) == ERROR_SUCCESS) {
+ ms_global->pineExe = (char *)fs_get(sizeof(char)*(pineKeyDataSize+strlen(pineExe)));
+ if (ms_global->pineExe) {
+ strncpy(ms_global->pineExe, pineKeyData, pineKeyDataSize);
+ strcat(ms_global->pineExe, pineExe);
+ }
+ else {
+ ErrorBox("MAPISendMail: can't fs_get %d bytes for av[0]",
+ pineKeyDataSize);
+ return 0;
+ }
+ if (MSDEBUG) {
+ fprintf(ms_global->dfd,"pine.exe pineKeyDataSize: %d\r\n", pineKeyDataSize);
+ fprintf(ms_global->dfd,"pine.exe pineKeyData: %s\r\n", pineKeyData);
+ }
+ }
+ RegCloseKey(pineKey);
+ }
+ if(!ms_global->pineExe){
+ ms_global->pineExe = (char *)fs_get((1+strlen(defPath))*sizeof(char));
+ if(!ms_global->pineExe){
+ ErrorBox("Couldn't fs_get for %s","pineExe");
+ return 0;
+ }
+ else
+ strcpy(ms_global->pineExe, defPath);
+ }
+
+ if(freepineExe)
+ ms_global->pineExeAlt = freepineExe;
+ else{
+ ms_global->pineExeAlt = (char *)fs_get((strlen(strrchr(defPath, '\\')+1)+1)*sizeof(char));
+ if(!ms_global->pineExeAlt){
+ ErrorBox("Couldn't fs_get for %s","pineExeAlt");
+ return 0;
+ }
+ else
+ strcpy(ms_global->pineExeAlt, strrchr(defPath, '\\')+1);
+ }
+
+ /*
+ * get path to pinerc from registry
+ */
+ if (RegOpenKeyEx(
+ HKEY_CURRENT_USER,
+ "Software\\University of Washington\\Alpine\\1.0",
+ 0,
+ KEY_QUERY_VALUE,
+ &pineKey) == ERROR_SUCCESS) {
+ pineKeyDataSize = sizeof(pineKeyData);
+ if( RegQueryValueEx(
+ pineKey,
+ "PineRC",
+ 0,
+ &pineKeyDataType,
+ pineKeyData,
+ &pineKeyDataSize) == ERROR_SUCCESS) {
+ if(*pineKeyData != '{' || ms_global->pineExe)
+ ms_global->attachDir = (char *)fs_get(sizeof(char)*(*pineKeyData == '{' ?
+ pineKeyDataSize + 1 :
+ strlen(ms_global->pineExe)+1));
+ ms_global->pinerc = (char *)fs_get(pineKeyDataSize);
+ if(ms_global->attachDir){
+ char *p;
+ if(*pineKeyData != '{'){
+ strncpy(ms_global->attachDir, pineKeyData, pineKeyDataSize);
+ ms_global->attachDir[pineKeyDataSize] = '\0';
+ }
+ else
+ strcpy(ms_global->attachDir, ms_global->pineExe);
+ p = strrchr(ms_global->attachDir, '\\');
+ if (p) *p = '\0';
+ }
+ if(ms_global->pinerc)
+ strncpy(ms_global->pinerc, pineKeyData, pineKeyDataSize);
+ else {
+ ErrorBox("MAPISendMail: can't fs_get %d bytes for pinercPath",
+ pineKeyDataSize);
+ return 0;
+ }
+ if (MSDEBUG) {
+ fprintf(ms_global->dfd, "pinerc pineKeyDataSize: %d\r\n", pineKeyDataSize);
+ fprintf(ms_global->dfd, "pinerc pineKeyData: %s\r\n", pineKeyData);
+ fprintf(ms_global->dfd, "attachDir: %s\r\n",
+ ms_global->attachDir ? ms_global->attachDir :
+ "NOT YET DEFINED");
+ }
+ }
+ pineKeyDataSize = sizeof(pineKeyData);
+ if( RegQueryValueEx(
+ pineKey,
+ "PineConf",
+ 0,
+ &pineKeyDataType,
+ pineKeyData,
+ &pineKeyDataSize) == ERROR_SUCCESS){
+ ms_global->pineconf = mstrdup(pineKeyData);
+ msprint1("ms_global->pineconf: %s (due to Registry setting)\r\n", ms_global->pineconf);
+ }
+ RegCloseKey(pineKey);
+ }
+
+ if(ms_global->attachDir == NULL){
+ if(ms_global->attachDir = (char *)fs_get((strlen(defAttachDir)+1)*sizeof(char)))
+ strcpy(ms_global->attachDir, defAttachDir);
+ else
+ ErrorBox("Can't find TEMP directory for %s!","attachments");
+ }
+
+
+ if(penv = getenv("PINERC")){
+ if(ms_global->pinerc)
+ fs_give((void **)&ms_global->pinerc);
+ if(ms_global->pinerc = (char *)fs_get((strlen(penv)+1)*sizeof(char)))
+ strcpy(ms_global->pinerc, penv);
+ else
+ ErrorBox("Couldn't fs_get for %s", "pinerc");
+ }
+ if(penv = getenv("PINECONF")){
+ if(ms_global->pineconf)
+ fs_give((void **)&ms_global->pineconf);
+ if(ms_global->pineconf = (char *)fs_get((strlen(penv)+1)*sizeof(char)))
+ strcpy(ms_global->pineconf, penv);
+ else
+ ErrorBox("Couldn't fs_get for %s", "pineconf");
+ }
+ else{
+
+ }
+ if(penv = getenv("PINERCEX")){
+ if(ms_global->pinercex)
+ fs_give((void **)&ms_global->pinercex);
+ if(ms_global->pinercex = mstrdup(penv))
+ strcpy(ms_global->pinercex, penv);
+ else
+ ErrorBox("Couldn't fs_get for %s", "pinercex");
+ }
+ if(MSDEBUG){
+ fprintf(ms_global->dfd,"ms_global->pineExe: %s\r\n",
+ (ms_global->pineExe) ? ms_global->pineExe : "NULL");
+ fprintf(ms_global->dfd,"ms_global->pineExeAlt: %s\r\n",
+ ms_global->pineExeAlt ? ms_global->pineExeAlt : "NULL");
+ fprintf(ms_global->dfd,"ms_global->attachDir: %s\r\n",
+ ms_global->attachDir ? ms_global->attachDir : "NULL");
+ fprintf(ms_global->dfd,"ms_global->pinerc: %s\r\n",
+ ms_global->pinerc ? ms_global->pinerc : "NULL");
+ fprintf(ms_global->dfd,"ms_global->pineconf: %s\r\n",
+ ms_global->pinerc ? ms_global->pineconf : "NULL");
+ fprintf(ms_global->dfd,"ms_global->pinercex: %s\r\n",
+ ms_global->pinerc ? ms_global->pinercex : "NULL");
+ }
+ return 1;
+}
+
+BOOL APIENTRY DllMain(
+ HANDLE hInst,
+ DWORD ul_reason_being_called,
+ LPVOID lpReserved)
+{
+ switch(ul_reason_being_called){
+ case DLL_THREAD_ATTACH:
+ /* if(ms_global)
+ * return 1;
+ */
+ case DLL_PROCESS_ATTACH:
+ if(!ms_global)
+ ms_global = new_mapi_global();
+ if(!ms_global) return 0;
+ ms_global->attached++;
+ ms_global->mhinst = hInst;
+ if(InitDebug() == -1){
+ ErrorBox("Mapi32.dll could not %s", "initialize");
+ return 0;
+ }
+ if(MSDEBUG && ms_global->attached <= 1){
+ time_t now;
+ struct tm *tm_now;
+ extern char datestamp[], hoststamp[];
+
+ now = time((time_t *)0);
+ tm_now = localtime(&now);
+ fprintf(ms_global->dfd, "pmapi32.dll for Alpine Version 2.10r\n");
+ fprintf(ms_global->dfd, " Build date: %s\r\n", datestamp);
+ fprintf(ms_global->dfd,
+ " please report all bugs to alpine-contact@u.washington.edu\r\n");
+ if(tm_now)
+ fprintf(ms_global->dfd,
+ "Created: %2.2d:%2.2d:%2.2d %d/%d/%d\r\n",
+ tm_now->tm_hour, tm_now->tm_min, tm_now->tm_sec,
+ tm_now->tm_mon+1, tm_now->tm_mday, tm_now->tm_year+1900);
+
+ fprintf(ms_global->dfd, "\r\n\r\n");
+ }
+ DEBUG_WRITE("%s called. Debug initialized (in DllMain)\r\n",
+ ul_reason_being_called == DLL_PROCESS_ATTACH ?
+ "DLL_PROCESS_ATTACH":"DLL_THREAD_ATTACH");
+ GetPineData();
+#include "../c-client-dll/linkage.c"
+ break;
+ case DLL_PROCESS_DETACH:
+ case DLL_THREAD_DETACH:
+ DEBUG_WRITE("\r\n%s called\r\n",
+ ul_reason_being_called == DLL_PROCESS_DETACH ?
+ "DLL_PROCESS_DETACH" : "DLL_THREAD_DETACH");
+ ms_global->attached--;
+ /* if(ms_global->open_stream)
+ * ms_global->open_stream = mail_close_full(ms_global->open_stream, NIL);
+ */
+ if(ms_global->attached <= 0 &&
+ ul_reason_being_called == DLL_PROCESS_DETACH){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd,
+ "detaching last thread/process. freeing mapi global struct\r\n");
+ free_mapi_global(ms_global);
+ }
+ break;
+ }
+ return 1;
+}
+
+static char *V="\r\n@(#) Alpine Simple Mapi Library Ver. 1.3\r\n";
+
+int
+UnderlineSpace(char *s)
+{
+ char *p;
+
+ if(p = strrchr(s, '\\'))
+ s = p++;
+
+ for(; *s; s++)
+ if(*s == ' ')
+ *s = '_';
+ return 1;
+}
+
+/*
+ * Given source file name and destination directory, make a binary copy
+ * of the file and return the full name of the copy (mangled as necessary
+ * to avoid conflicts). The return value will be a fs_get'd string
+ */
+char *
+TmpCopy(char *srcFile, int is_pinerc)
+{
+ char *dstName; /* constructed and fs_get'd full output pathname */
+ char *srcTail; /* last component of source pathname */
+ char *srcExt; /* extension, if any, of srcTail */
+ char dstDir[1024];
+ int i, cnt, c, len, spc = 0;
+ FILE *sfd, *dfd;
+
+ if (!srcFile) {
+ ErrorBox("TmpCopy: srcFile is %s", "NULL");
+ return NULL;
+ }
+ if(is_pinerc){
+ len = strlen(srcFile);
+ for(i = 0; i < len; i++){
+ if(srcFile[i] == ' ') spc = 1;
+ }
+ if(spc == 0) return mstrdup(srcFile);
+ }
+
+ get_suggested_directory(dstDir);
+ if (!dstDir) {
+ ErrorBox("TmpCopy: dstDir is %s", "NULL");
+ return NULL;
+ }
+
+ dstName = (char *)fs_get(sizeof(char)*(strlen(srcFile) + 5 +
+ max(strlen(dstDir), strlen(PINERC_FILE))));
+
+ if (dstName == NULL) {
+ ErrorBox("TmpCopy: can't fs_get space %d bytes for dstName",
+ strlen(srcFile)+5+max(strlen(dstDir),strlen(PINERC_FILE)));
+ return NULL;
+ }
+
+ if(!is_pinerc){
+ srcTail = strrchr(srcFile, '\\');
+ if (srcTail)
+ ++srcTail;
+ else
+ srcTail = srcFile;
+
+ srcExt = strrchr(srcTail, '.');
+
+ sfd = fopen(srcFile, "rb");
+ if (sfd == NULL) {
+ ErrorBox("TmpCopy: can't open %.200s for reading", srcFile);
+ fs_give((void **)&dstName);
+ return NULL;
+ }
+
+ i = sprintf(dstName, "%s%s%s", dstDir,
+ dstDir[strlen(dstDir)-1] == '\\' ? "" : "\\",
+ srcTail);
+ UnderlineSpace(dstName);
+ for (cnt = 0; cnt < 1000; ++cnt) {
+ int handle = _open(dstName, _O_CREAT|_O_EXCL , _S_IREAD|_S_IWRITE);
+ if (handle != -1) {
+ if (_close(handle)) /* this shouldn't be able to happen */
+ ErrorBox("TmpCopy: _close of new %.200s failed", dstName);
+ dfd = fopen(dstName, "wb");
+ if (dfd) break;
+ }
+ if (srcExt)
+ sprintf(dstName+i-strlen(srcExt), "%03d%s", cnt, srcExt);
+ else
+ sprintf(dstName+i, "%03d", cnt);
+ }
+ if (dfd == NULL) {
+ ErrorBox("TmpCopy: can't create anything like %.200s", dstName);
+ fclose(sfd);
+ fs_give((void **)&dstName);
+ return NULL;
+ }
+ }
+ else{ /* is_pinerc */
+ i = sprintf(dstName, "%s%s%s", dstDir,
+ dstDir[strlen(dstDir)-1] == '\\' ? "" : "\\",
+ PINERC_FILE);
+ dfd = fopen(dstName, "wb");
+ if(!dfd){
+ ErrorBox("Couldn't create temp %s for pine", "pinerc");
+ fs_give((void **)&dstName);
+ return NULL;
+ }
+ sfd = fopen(srcFile, "rb");
+ if (sfd == NULL) {
+ ErrorBox("TmpCopy: can't open %.200s for reading", srcFile);
+ fclose(dfd);
+ fs_give((void **)&dstName);
+ return NULL;
+ }
+ }
+ c = fgetc(sfd);
+ while(feof(sfd) == 0) {
+ putc(c, dfd);
+ c = fgetc(sfd);
+ }
+ if (ferror(dfd)) {
+ ErrorBox("TmpCopy: write error on %.200s", dstName);
+ fs_give((void **)&dstName);
+ fclose(dfd);
+ return NULL;
+ }
+ if (ferror(sfd)) {
+ ErrorBox("TmpCopy: read error on %.200s", srcFile);
+ fs_give((void **)&dstName);
+ fclose(sfd);
+ return NULL;
+ }
+ if (fclose(sfd)) {
+ ErrorBox("TmpCopy: fclose error on %.200s", srcFile);
+ }
+ if (fclose(dfd)) {
+ ErrorBox("TmpCopy: fclose error on %.200s", dstName);
+ }
+
+ return dstName;
+}
+
+int send_documents(char *files, char sep)
+{
+ int ac, i, tmplen, j;
+ char **av, *tmpfiles, *file, *tmpfree;
+ mapi_global_s *nmg;
+
+ nmg = ms_global;
+ ac = 3;
+ tmplen = strlen(files);
+ tmpfiles = (char *)fs_get(sizeof(char)*(tmplen + 1));
+ strcpy(tmpfiles,files);
+ for(i = 0; i <= tmplen; i++){
+ if(files[i] == sep || files[i] == '\0')
+ ac += 2;
+ }
+ ac += 2; /* just for safe measure */
+ av = (char **)fs_get(ac * sizeof(char *));
+ if(nmg->pinerc){
+ av[1] = mstrdup("-p");
+ /* copy pinerc to temp directory just in case it too
+ * has spaces in its directory
+ */
+ if(tmpfree = TmpCopy(nmg->pinerc, IS_PINERC)){
+ av[2] = quote(tmpfree);
+ fs_give((void **)&tmpfree);
+ }
+ else
+ av[2] = quote(nmg->pinerc);
+ }
+ for(i = 0, j = 3, file = tmpfiles; i <= tmplen; i++){
+ if(tmpfiles[i] == sep || i == tmplen){
+ tmpfiles[i] = '\0';
+ if(i - (file - tmpfiles) > 1){
+ tmpfree = TmpCopy(file, NOT_PINERC);
+ if(tmpfree){
+ av[j++] = mstrdup("-attach_and_delete");
+ av[j++] = quote(tmpfree);
+ fs_give((void **)&tmpfree);
+ }
+ }
+ }
+ }
+ av[j] = NULL;
+ av[0] = quote(nmg->pineExe);
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "spawning %s (else %s):\r\n",
+ ms_global->pineExe, ms_global->pineExeAlt);
+ fprintf(nmg->dfd, " av:\r\n");
+ for(i = 0; av[i]; i++)
+ fprintf(nmg->dfd, " av[%d]: %s\r\n", i, av[i]);
+ }
+
+ /* clean up quote()'s */
+ if (_spawnvp(_P_NOWAIT, ms_global->pineExe, av) == -1 &&
+ _spawnvp(_P_NOWAIT, ms_global->pineExeAlt, av) == -1){
+ ErrorBox("MAPISendMail: _spawnvp of %s failed", ms_global->pineExe);
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "_spawnvp %s and %s failed\r\n",
+ ms_global->pineExe,ms_global->pineExeAlt);
+ return(MAPI_E_FAILURE);
+ }
+ for(i = 0; av[i]; i++)
+ fs_give((void **)&av[i]);
+ fs_give((void **)&av);
+ return SUCCESS_SUCCESS;
+}
+
+char *
+message_structure_to_mailto_url(lpMapiMessage lpm)
+{
+ char **keyvals, **keyvalp, *url;
+ int keyvallen;
+ unsigned long i, url_len = 0;
+
+ if(lpm == NULL)
+ return NULL;
+
+ keyvallen = lpm->nRecipCount + 4; /* subject + body + from + recips + NULL */
+ keyvals = (char **)fs_get(keyvallen * sizeof(char *));
+ keyvalp = keyvals;
+
+ for(i = 0; i < lpm->nRecipCount; i++)
+ *keyvalp++ = encode_mailto_addr_keyval(&lpm->lpRecips[i]);
+ if(lpm->lpszSubject)
+ *keyvalp++ = encode_mailto_keyval("subject", lpm->lpszSubject);
+ if(lpm->lpOriginator)
+ *keyvalp++ = encode_mailto_addr_keyval(lpm->lpOriginator);
+ if(lpm->lpszNoteText)
+ *keyvalp++ = encode_mailto_keyval("body", lpm->lpszNoteText);
+ *keyvalp = NULL;
+
+ if(*keyvals == NULL){
+ fs_give((void **)&keyvals);
+ return(NULL);
+ }
+
+ url_len = keyvallen + 10; /* mailto url extra chars */
+ for(keyvalp = keyvals; *keyvalp; keyvalp++)
+ url_len += strlen(*keyvalp);
+
+ url = (char *)fs_get(url_len * sizeof(char));
+ sprintf(url, "mailto:?");
+ for(keyvalp = keyvals; *keyvalp; keyvalp++){
+ strcat(url, *keyvalp);
+ if(*(keyvalp+1))
+ strcat(url, "&");
+ fs_give((void **)&(*keyvalp));
+ }
+ fs_give((void **)&keyvals);
+ return url;
+}
+
+char *
+encode_mailto_addr_keyval(lpMapiRecipDesc lpmr)
+{
+ ADDRESS *adr = NULL;
+ char *addr, *retstr;
+ int use_quotes = 0;
+
+ adr = mapirecip2address(lpmr);
+ addr = (char *)fs_get((size_t)est_size(adr));
+ addr[0] = '\0';
+ rfc822_write_address(addr, adr);
+ mail_free_address(&adr);
+
+ retstr = encode_mailto_keyval(lpmr->ulRecipClass == MAPI_CC ? "cc"
+ : (lpmr->ulRecipClass == MAPI_BCC ? "bcc"
+ : (lpmr->ulRecipClass == MAPI_ORIG ? "from"
+ : "to")),
+ addr);
+ fs_give((void **)&addr);
+ return(retstr);
+}
+
+
+
+/*
+ * Hex conversion aids from alpine.h
+ */
+#define HEX_ARRAY "0123456789ABCDEF"
+#define HEX_CHAR1(C) HEX_ARRAY[((C) & 0xf0) >> 4]
+#define HEX_CHAR2(C) HEX_ARRAY[(C) & 0xf]
+
+/* strings.c macros */
+#define C2XPAIR(C, S) { \
+ *(S)++ = HEX_CHAR1(C); \
+ *(S)++ = HEX_CHAR2(C); \
+ }
+
+#define RFC1738_SAFE "$-_.+" /* "safe" */
+#define RFC1738_EXTRA "!*'()," /* "extra" */
+
+/* adapted from rfc1738_encode_mailto */
+char *
+encode_mailto_keyval(char *key, char* val)
+{
+ char *d, *ret = NULL, *v = val;
+
+ if(key && val){
+ ret = (char *)fs_get(sizeof(char) * (strlen(key) + (3*strlen(val)) + 2));
+ strcpy(ret, key);
+ d = ret + strlen(key);
+ *d++ = '=';
+ while(*v){
+ if(isalnum((unsigned char)*v)
+ || strchr(RFC1738_SAFE, *v)
+ || strchr(RFC1738_EXTRA, *v))
+ *d++ = *v++;
+ else{
+ *d++ = '%';
+ C2XPAIR(*v, d);
+ v++;
+ }
+ }
+ *d = '\0';
+ }
+
+ return(ret);
+}
+
+unsigned long
+send_msg_nodlg(LHANDLE lhSession, ULONG ulUIParam, lpMapiMessage lpMessage,
+ FLAGS flFlags, ULONG ulReserved)
+{
+ sessionlist_s *cs;
+ int tsession = 0, orig_in_recip = 0;
+ unsigned long i, orig_index;
+ ADDRESS *tadr = NULL, *tadr2 = NULL;
+ ENVELOPE *env = NULL;
+ BODY *body = NULL;
+ mapi_global_s *nmg = ms_global;
+ SENDSTREAM *sending_stream = NULL;
+ unsigned long rv;
+ time_t now;
+ struct tm *tm_now;
+ char *p = NULL;
+
+ if(nmg->pmapi_send_behavior == PMSB_NEVER_SEND)
+ return MAPI_E_USER_ABORT;
+ else if(nmg->pmapi_send_behavior == PMSB_ALWAYS_PROMPT){
+ if(MessageBox(NULL, "Really Send Message?", "pmapi32.dll", MB_YESNO|MB_ICONQUESTION) == IDNO)
+ return MAPI_E_USER_ABORT;
+ }
+ if((flFlags & MAPI_NEW_SESSION) || lhSession == 0){
+ cs = new_sessionlist();
+ tsession = 1;
+ }
+ else{
+ cs = get_session(lhSession);
+ if(!cs)
+ return MAPI_E_INVALID_SESSION;
+ }
+ cs->flags.mapi_logon_ui = (flFlags & MAPI_LOGON_UI) || (flFlags & MAPI_DIALOG) ? 1 : 0;
+ if(InitPineSpecific(cs) == -1){
+ rv = MAPI_E_LOGIN_FAILURE;
+ goto smn_cleanup;
+ }
+ msprint("Preparing to Send Message with no dialogs...\r\n");
+ /* Make an envelope */
+ env = (ENVELOPE *)fs_get(sizeof(ENVELOPE));
+ memset(env, 0, sizeof(ENVELOPE));
+ if(lpMessage->lpszSubject){
+ p = rfc1522_encode(tmp_20k_buf, SIZEOF_20KBUF, lpMessage->lpszSubject,
+ nmg->prcvars[CHARACTER_SET]->val.p);
+ env->subject = mstrdup(p);
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, " Subject: %s\r\n", env->subject);
+ }
+ /*
+ * Since it is "DateReceived", I think the right thing to do is ignore it,
+ * since we're sending, not receiving.
+ */
+ rfc822_date(tmp_20k_buf);
+ env->date = mstrdup(tmp_20k_buf);
+ msprint1(" Date: %s\r\n", env->date);
+ env->message_id = pmapi_generate_message_id();
+ msprint1(" Message-Id: %s\r\n", env->message_id);
+
+ for(i = 0; i < lpMessage->nRecipCount; i++){
+ if((&lpMessage->lpRecips[i])->ulRecipClass == MAPI_ORIG){
+ orig_in_recip = 1;
+ orig_index = i;
+ }
+ }
+
+ if(lpMessage->lpOriginator || orig_in_recip){
+ if((env->from = mapirecip2address(lpMessage->lpOriginator
+ ? lpMessage->lpOriginator
+ : (&lpMessage->lpRecips[orig_index])))
+ == NULL){
+ rv = MAPI_E_INVALID_RECIPS;
+ goto smn_cleanup;
+ }
+ if(MSDEBUG){
+ sprintf(tmp_20k_buf, "%.100s <%.100s@%.100s>", env->from->personal ? env->from->personal
+ : "", env->from->mailbox ? env->from->mailbox : "",
+ env->from->host ? env->from->host : "");
+ msprint1("From: %s\r\n", tmp_20k_buf);
+ }
+ }
+ else if(nmg->prcvars[USER_ID]->val.p && nmg->prcvars[USER_DOMAIN]->val.p){
+ /*
+ * judgment call: I guess we'll try to generate the from header if it's not
+ * given to us
+ */
+ env->from = mail_newaddr();
+ if(nmg->prcvars[PERSONAL_NAME]->val.p){
+ p = rfc1522_encode(tmp_20k_buf, SIZEOF_20KBUF, nmg->prcvars[PERSONAL_NAME]->val.p,
+ nmg->prcvars[CHARACTER_SET]->val.p);
+ env->from->personal = mstrdup(p);
+ }
+ env->from->mailbox = mstrdup(nmg->prcvars[USER_ID]->val.p);
+ env->from->host = mstrdup(nmg->prcvars[USER_DOMAIN]->val.p);
+ if(MSDEBUG){
+ sprintf(tmp_20k_buf, "%.100s <%.100s@%.100s>", env->from->personal ? env->from->personal
+ : "", env->from->mailbox ? env->from->mailbox : "",
+ env->from->host ? env->from->host : "");
+ msprint1("From: %s\r\n", tmp_20k_buf);
+ }
+ }
+ for(i = 0; i < lpMessage->nRecipCount; i++){
+ if((tadr = mapirecip2address(&lpMessage->lpRecips[i])) == NULL){
+ rv = MAPI_E_INVALID_RECIPS;
+ goto smn_cleanup;
+ }
+ switch (lpMessage->lpRecips[i].ulRecipClass) {
+ case MAPI_TO:
+ case MAPI_ORIG:
+ if(!env->to)
+ env->to = tadr;
+ else{
+ for(tadr2 = env->to; tadr2->next; tadr2 = tadr2->next);
+ tadr2->next = tadr;
+ }
+ msprint(" To: ");
+ break;
+ case MAPI_CC:
+ if(!env->cc)
+ env->cc = tadr;
+ else{
+ for(tadr2 = env->cc; tadr2->next; tadr2 = tadr2->next);
+ tadr2->next = tadr;
+ }
+ msprint(" Cc: ");
+ break;
+ case MAPI_BCC:
+ if(!env->bcc)
+ env->bcc = tadr;
+ else{
+ for(tadr2 = env->bcc; tadr2->next; tadr2 = tadr2->next);
+ tadr2->next = tadr;
+ }
+ msprint(" Bcc: ");
+ break;
+ default:
+ rv = MAPI_E_INVALID_RECIPS;
+ goto smn_cleanup;
+ break;
+ }
+ if(MSDEBUG){
+ sprintf(tmp_20k_buf, "%.100s <%.100s@%.100s>", tadr->personal ? tadr->personal
+ : "", tadr->mailbox ? tadr->mailbox : "",
+ tadr->host ? tadr->host : "");
+ msprint1("%s\r\n", tmp_20k_buf);
+ }
+ }
+ /* Now we have an envelope, let's make us a body */
+ if(lpMessage->lpszNoteText == NULL)
+ msprint("Empty Message Text\r\n");
+ body = mail_newbody();
+ if(lpMessage->nFileCount){
+ PART *p;
+ struct _stat sbuf;
+ unsigned long fsize, n;
+ FILE *sfd;
+ char c, *fn;
+
+ msprint1("Number of files to be Attached: %d\r\n", (void *)lpMessage->nFileCount);
+ body->type = TYPEMULTIPART;
+ body->nested.part = mail_newbody_part();
+ p = body->nested.part;
+ set_text_data(&p->body, lpMessage->lpszNoteText ? lpMessage->lpszNoteText
+ : "");
+
+ for(i = 0; i < lpMessage->nFileCount; i++){
+ p->next = mail_newbody_part();
+ p = p->next;
+ p->body.encoding = ENCBINARY;
+ if(lpMessage->lpFiles[i].lpszPathName == NULL)
+ return(MAPI_E_FAILURE);
+ if(lpMessage->lpFiles[i].lpszFileName == NULL
+ || lpMessage->lpFiles[i].lpszFileName[0] == '\0'){
+ fn = strrchr(lpMessage->lpFiles[i].lpszPathName, '\\');
+ if(!fn)
+ fn = lpMessage->lpFiles[i].lpszPathName;
+ else
+ fn++;
+ }
+ else
+ fn = lpMessage->lpFiles[i].lpszFileName;
+ if(lookup_file_mime_type(fn, &p->body) && (fn == lpMessage->lpFiles[i].lpszFileName))
+ lookup_file_mime_type(lpMessage->lpFiles[i].lpszPathName, &p->body);
+ msprint1(" Attaching file %s;", lpMessage->lpFiles[i].lpszPathName);
+ if(_stat(lpMessage->lpFiles[i].lpszPathName, &sbuf))
+ return(MAPI_E_FAILURE);
+ fsize = sbuf.st_size;
+ if((sfd = fopen(lpMessage->lpFiles[i].lpszPathName, "rb")) == NULL)
+ return(MAPI_E_FAILURE);
+ p->body.contents.text.data = fs_get((fsize+1)*sizeof(char));
+ n = 0;
+ c = fgetc(sfd);
+ while(feof(sfd) == 0){
+ p->body.contents.text.data[n++] = c;
+ if(n > fsize){
+ fsize += 20000;
+ fs_resize((void **)&p->body.contents.text.data, (fsize+1)*sizeof(char));
+ }
+ c = fgetc(sfd);
+ }
+ fclose(sfd);
+ p->body.contents.text.data[n] = '\0';
+ p->body.contents.text.size = n;
+ msprint1(" File size: %d\r\n", (void *)n);
+ if(fn){
+ p->body.parameter = mail_newbody_parameter();
+ p->body.parameter->attribute = mstrdup("name");
+ p->body.parameter->value = mstrdup(fn);
+
+ p->body.disposition.type = mstrdup("attachment");
+ p->body.disposition.parameter = mail_newbody_parameter();
+ p->body.disposition.parameter->attribute = mstrdup("filename");
+ p->body.disposition.parameter->value = mstrdup(fn);
+ }
+ }
+ }
+ else {
+ set_text_data(body, lpMessage->lpszNoteText ? lpMessage->lpszNoteText
+ : "");
+ msprint1(" Message Body size: %d\r\n", (void *)body->contents.text.size);
+ }
+
+ if(MSDEBUG){
+ now = time((time_t *)0);
+ tm_now = localtime(&now);
+ fprintf(ms_global->dfd, "%2.2d:%2.2d:%2.2d %d/%d/%d ",
+ tm_now->tm_hour, tm_now->tm_min, tm_now->tm_sec,
+ tm_now->tm_mon+1, tm_now->tm_mday, tm_now->tm_year+1900);
+ }
+ if(nmg->prcvars[SMTP_SERVER]->val.l && nmg->prcvars[SMTP_SERVER]->val.l[0]
+ && nmg->prcvars[SMTP_SERVER]->val.l[0][0]){
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "Preparing to open SMTP connection (%s ...)\r\n",
+ nmg->prcvars[SMTP_SERVER]->val.l[0]);
+ _flushall();
+ }
+ sending_stream = mapi_smtp_open(cs, nmg->prcvars[SMTP_SERVER]->val.l,
+ nmg->prcfeats[ENABLE8BIT]->is_set ? SOP_8BITMIME : NIL);
+ }
+ else {
+ rv = MAPI_E_FAILURE;
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "Error! No SMTP server defined!\r\n");
+ }
+ goto smn_cleanup;
+ }
+ if(!sending_stream){
+ rv = MAPI_E_FAILURE;
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "Couldn't open SMTP connection!\r\n");
+ }
+ goto smn_cleanup;
+ }
+ if(!smtp_mail(sending_stream, "MAIL", env, body)){
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "Attempt to Send Failed\r\n");
+ }
+ rv = MAPI_E_FAILURE;
+ }
+ else {
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "Message SENT!\r\n");
+ }
+ if(!nmg->fccfolder)
+ msprint("No fcc defined\r\n");
+ else { /* Now try to write to fcc */
+ STRBUFFER_S *sb;
+ MAILSTREAM *fccstream;
+ STRING msg;
+
+ msprint1("FCCing to %s\r\n", nmg->fccfolder);
+ sb = (STRBUFFER_S *)fs_get(sizeof(STRBUFFER_S));
+ sb->buf = (char *)fs_get(20000*sizeof(char));
+ sb->cur_bytes = 0;
+ sb->increment = 20000;
+ sb->bufsize = 20000;
+ rfc822_output(tmp_20k_buf, env, body, pmapi_soutr, sb, 1);
+ INIT(&msg, mail_string, (void *)sb->buf, sb->cur_bytes);
+ fccstream = mapi_mail_open(cs, NULL, nmg->fccfolder, ms_global->debug ? OP_DEBUG : NIL);
+ if(fccstream){
+ if(mail_append(fccstream, nmg->fccfolder, &msg) == NIL)
+ msprint1("Fcc to %s failed\r\n", nmg->fccfolder);
+ else
+ msprint1("Fcc to %s SUCCEEDED\r\n", nmg->fccfolder);
+ mail_close(fccstream);
+ }
+ else
+ msprint1("Open of %s failed, abandoning FCC\r\n", nmg->fccfolder);
+ if(sb->buf)
+ fs_give((void **)&sb->buf);
+ if(sb)
+ fs_give((void **)&sb);
+ }
+ if((flFlags & MAPI_LOGON_UI) || (flFlags & MAPI_DIALOG))
+ MessageBox(NULL, "Message SENT!\r\n", "pmapi32.dll", MB_OK|MB_ICONINFORMATION);
+ rv = SUCCESS_SUCCESS;
+ }
+ smtp_close(sending_stream);
+ smn_cleanup:
+ if(env)
+ mail_free_envelope(&env);
+ if(body)
+ mail_free_body(&body);
+ if(tsession)
+ fs_give((void **)&cs);
+ return(rv);
+}
+
+int
+set_text_data(BODY *body, char *txt)
+{
+ char *p;
+ int has_8bit = 0;
+ PARAMETER *pm;
+
+ for(p = txt; *p; p++)
+ if(*p & 0x80)
+ has_8bit++;
+
+ body->contents.text.data = mstrdup(txt);
+ body->contents.text.size = strlen(txt);
+ if(has_8bit){
+ body->encoding = ENC8BIT;
+ if(!body->parameter)
+ pm = body->parameter = mail_newbody_parameter();
+ else {
+ for(pm = body->parameter; pm->next; pm = pm->next);
+ pm->next = mail_newbody_parameter();
+ pm = pm->next;
+ }
+ pm->attribute = mstrdup("charset");
+ if(ms_global->prcvars[CHARACTER_SET]->val.p)
+ pm->value = mstrdup(ms_global->prcvars[CHARACTER_SET]->val.p);
+ else
+ pm->value = mstrdup("X-UNKNOWN");
+ }
+ return 0;
+}
+
+long
+pmapi_soutr(STRBUFFER_S *s, char *str)
+{
+ unsigned long i;
+
+ if(s->cur_bytes >= s->bufsize){
+ fs_resize((void **)&s->buf, s->bufsize+ s->increment);
+ s->bufsize += s->increment;
+ }
+ for(i = 0; str[i]; i++){
+ s->buf[s->cur_bytes++] = str[i];
+ if(s->cur_bytes >= s->bufsize){
+ fs_resize((void **)&s->buf, s->bufsize+ s->increment);
+ s->bufsize += s->increment;
+ }
+ }
+ s->buf[s->cur_bytes] = '\0';
+ return T;
+}
+
+ADDRESS *
+mapirecip2address(lpMapiRecipDesc lpmrd)
+{
+ ADDRESS *adr = NULL;
+ static char *fakedomain = "@", *p;
+ mapi_global_s *nmg = ms_global;
+
+ if(!lpmrd->lpszAddress)
+ return(NULL);
+ rfc822_parse_adrlist(&adr, _strnicmp(lpmrd->lpszAddress, "SMTP:", 5) == 0
+ ? lpmrd->lpszAddress + 5 : lpmrd->lpszAddress,
+ nmg->prcvars[USER_DOMAIN]->val.p
+ ? nmg->prcvars[USER_DOMAIN]->val.p : fakedomain);
+ if(!adr)
+ return(NULL);
+ if(adr->next || adr->error){
+ mail_free_address(&adr);
+ return(NULL);
+ }
+
+ if(lpmrd->lpszName && adr->personal)
+ fs_give((void **)&adr->personal);
+ if(lpmrd->lpszName){
+ p = rfc1522_encode(tmp_20k_buf, SIZEOF_20KBUF, lpmrd->lpszName,
+ nmg->prcvars[CHARACTER_SET]->val.p);
+ adr->personal = mstrdup(p);
+ }
+ return(adr);
+}
+
+/*
+ * given a fs_get'd string, return a newly fs_get'd quoted copy
+ */
+char *
+quote(char *old)
+{
+ char *new, *newp, *oldp;
+ int newSize = strlen(old)*2+3;
+
+ if (!old) return mstrdup(old);
+ if(!strchr(old, ' ')) return mstrdup(old);
+
+ newp = new = (char *)fs_get(sizeof(char)*newSize); /* worst case */
+ if (new == NULL) {
+ ErrorBox("quote: fs_get of %d bytes failed", newSize);
+ return old;
+ }
+
+ *newp++ = '"';
+ for (oldp=old; *oldp; ++oldp) {
+ switch(*oldp) {
+ case '"': *newp++ = '\\'; /* fall through */
+ default : *newp++ = *oldp;
+ }
+ }
+ *newp++ = '"';
+ *newp = '\0';
+ return(new);
+}
+
+
+int GetPCPineVersion(int *major, int *minor, int *minorminor)
+{
+ *major = 4;
+ *minor = 52;
+ *minorminor = 0;
+
+ return 1;
+}
+
+int
+msprint(char *str)
+{
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "%s", str);
+ _flushall();
+ return 0;
+}
+
+int
+msprint1(char *str, void *arg1)
+{
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, str, arg1);
+ _flushall();
+ return 0;
+}
+
+int
+msprint_message_structure(lpMapiMessage lpm)
+{
+ unsigned long i;
+
+ if(MSDEBUG){
+ msprint1("lpMapiMessage: %p\r\n", lpm);
+ if(!lpm)
+ return 1;
+ msprint1(" ulReserved: %d\r\n", (void *)lpm->ulReserved);
+ msprint1(" lpszSubsect: %s\r\n", lpm->lpszSubject ? lpm->lpszSubject : "(NULL)");
+ msprint1(" lpszNoteText size: %d\r\n", lpm->lpszNoteText
+ ? (void *)strlen(lpm->lpszNoteText) : (void *)0);
+ if(lpm->lpszNoteText)
+ msprint1("\tleading text: %.10s\r\n", lpm->lpszNoteText);
+ msprint1(" lpszMessageType: %s\r\n", lpm->lpszMessageType ? lpm->lpszMessageType : "(NULL)");
+ msprint1(" lpszDateReceived: %s\r\n", lpm->lpszDateReceived ? lpm->lpszDateReceived : "(NULL)");
+ msprint1(" lpszConversationID: %s\r\n", lpm->lpszConversationID ? lpm->lpszConversationID : "(NULL)");
+ msprint1(" flFlags: %d\r\n", (void *)lpm->flFlags);
+ msprint(" Originator:\r\n");
+ msprint_recipient_structure(lpm->lpOriginator, 0);
+ msprint1(" nRecipCount: %d\r\n", (void *)lpm->nRecipCount);
+ for(i = 0; i < lpm->nRecipCount; i++)
+ msprint_recipient_structure(&lpm->lpRecips[i], 1);
+ msprint1(" nFileCount: %d\r\n", (void *)lpm->nFileCount);
+ for(i = 0; i < lpm->nFileCount; i++)
+ msprint_file_structure(&lpm->lpFiles[i]);
+ msprint("\r\n");
+ }
+ return 0;
+}
+
+int
+msprint_recipient_structure(lpMapiRecipDesc lmrd, int mapi_orig_is_unexpected)
+{
+ if(MSDEBUG){
+ msprint1(" lpMapiRecipDesc: %p\r\n", (void *)lmrd);
+ if(lmrd == NULL)
+ return 1;
+ msprint1(" ulReserved: %d\r\n", (void *)lmrd->ulReserved);
+ msprint1(" ulRecipClass: %s\r\n", lmrd->ulRecipClass == MAPI_ORIG ? "MAPI_ORIG"
+ : lmrd->ulRecipClass == MAPI_TO ? "MAPI_TO" : lmrd->ulRecipClass == MAPI_CC
+ ? "MAPI_CC" : "MAPI_BCC");
+ if(mapi_orig_is_unexpected && lmrd->ulRecipClass == MAPI_ORIG){
+ msprint(" # NOTE: it is seemingly strange behavior that a MAPI client would use\r\n # MAPI_ORIG instead of the lpOriginator. This may result in unexpected behavior.\r\n");
+ }
+ msprint1(" lpszName: %s\r\n", lmrd->lpszName ? lmrd->lpszName : "(NULL)");
+ msprint1(" lpszAddress: %s\r\n", lmrd->lpszAddress ? lmrd->lpszAddress : "(NULL)");
+ msprint1(" ulEIDSize: %p\r\n", (void *)lmrd->ulEIDSize);
+ msprint1(" lpEntryID: %p\r\n", (void *)lmrd->lpEntryID);
+ }
+ return 0;
+}
+
+
+int
+msprint_file_structure(lpMapiFileDesc lmfd)
+{
+ if(MSDEBUG){
+ msprint1(" lpMapiFileDesc: %p\r\n", (void *)lmfd);
+ if(lmfd == NULL)
+ return 1;
+ msprint1(" ulReserved: %d\r\n", (void *)lmfd->ulReserved);
+ msprint1(" flFlags: %d\r\n", (void *)lmfd->flFlags);
+ msprint1(" nPosition: %d\r\n", (void *)lmfd->nPosition);
+ msprint1(" lpszPathName: %s\r\n", lmfd->lpszPathName ? lmfd->lpszPathName : "(NULL)");
+ msprint1(" lpszFileName: %s\r\n", lmfd->lpszFileName ? lmfd->lpszFileName : "(NULL)");
+ msprint1(" lpFileType: %p\r\n", (void *)lmfd->lpFileType);
+ }
+ return 0;
+}
+
+
+char *mstrdup(char *old)
+{
+ char *tmp;
+
+ tmp = fs_get((strlen(old)+1) * sizeof(char));
+ strcpy(tmp, old);
+
+ return tmp;
+}
+
+int
+est_size(a)
+ ADDRESS *a;
+{
+ int cnt = 0;
+
+ for(; a; a = a->next){
+
+ /* two times personal for possible quoting */
+ cnt += 2 * (a->personal ? strlen(a->personal) : 0);
+ cnt += (a->mailbox ? strlen(a->mailbox) : 0);
+ cnt += (a->adl ? strlen(a->adl) : 0);
+ cnt += (a->host ? strlen(a->host) : 0);
+
+ /*
+ * add room for:
+ * possible single space between fullname and addr
+ * left and right brackets
+ * @ sign
+ * possible : for route addr
+ * , <space>
+ *
+ * So I really think that adding 7 is enough. Instead, I'll add 10.
+ */
+ cnt += 10;
+ }
+
+ return(max(cnt, 50)); /* just making sure */
+}
+
+void ErrorBoxFunc(char *msg)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd,"ErrorBox: %s\r\n", msg);
+ fclose(ms_global->dfd);
+ ms_global->dfd = fopen(ms_global->debugFile, "ab");
+ if(!ms_global->dfd){
+ MessageBox(NULL, "debug file problems! Debugging turned off.",
+ "mapi32.dll",
+ MB_OK|MB_ICONERROR);
+ ms_global->debug = 0;
+ fs_give((void **)&ms_global->debugFile);
+ ms_global->debugFile = NULL;
+ }
+ }
+ MessageBox(NULL, msg, "mapi32.dll", MB_OK|MB_ICONERROR);
+}
+
+/*----------------------------------------------------------------------
+ This was borrowed from reply.c, and modified
+ Generate a unique message id string.
+
+ Args: ps -- The usual pine structure
+
+ Result: Alloc'd unique string is returned
+
+Uniqueness is gaurenteed by using the host name, process id, date to the
+second and a single unique character
+*----------------------------------------------------------------------*/
+char *
+pmapi_generate_message_id()
+{
+ static short osec = 0, cnt = 0;
+ char *id;
+ time_t now;
+ struct tm *now_x;
+
+ now = time((time_t *)0);
+ now_x = localtime(&now);
+ id = (char *)fs_get(128 * sizeof(char));
+
+ if(now_x->tm_sec == osec){
+ cnt++;
+ }else{
+ cnt = 0;
+ osec = now_x->tm_sec;
+ }
+ sprintf(id,"<Pmapi32.%04d%02d%02d%02d%02d%02d%X.%d@%.50s>",
+ (now_x->tm_year) + 1900, now_x->tm_mon + 1,
+ now_x->tm_mday, now_x->tm_hour, now_x->tm_min, now_x->tm_sec,
+ cnt, getpid(), mylocalhost());
+
+ return(id);
+}
diff --git a/mapi/pmapi.def b/mapi/pmapi.def
new file mode 100644
index 00000000..fb633335
--- /dev/null
+++ b/mapi/pmapi.def
@@ -0,0 +1,17 @@
+LIBRARY pmapi32
+VERSION 4.60
+
+EXPORTS
+ MAPILogon @1
+ MAPILogoff @2
+ MAPIFindNext @3
+ MAPIReadMail @4
+ MAPISendMail @5
+ MAPIAddress @6
+ MAPIDeleteMail @7
+ MAPIDetails @8
+ MAPIFreeBuffer @9
+ MAPIResolveName @10
+ MAPISaveMail @11
+ MAPISendDocuments @12
+ GetPCPineVersion @13
diff --git a/mapi/pmapi.h b/mapi/pmapi.h
new file mode 100644
index 00000000..2a8d28f8
--- /dev/null
+++ b/mapi/pmapi.h
@@ -0,0 +1,244 @@
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "windows.h"
+
+#include "mapi.h"
+#include "io.h"
+#include "fcntl.h"
+#include "sys/stat.h"
+#include "string.h"
+#include "stdio.h"
+#include "errno.h"
+#include "process.h"
+#include "resource.h"
+#include "time.h"
+#undef ERROR
+#include "../c-client-dll/mail.h"
+#include "../c-client-dll/rfc822.h"
+#include "../c-client-dll/osdep.h"
+#include "../c-client-dll/smtp.h"
+#include "../c-client-dll/misc.h"
+#include "ctype.h"
+
+#define USER_ID 0
+#define PERSONAL_NAME 1
+#define USER_DOMAIN 2
+#define SMTP_SERVER 3
+#define INBOX_PATH 4
+#define FEATURE_LIST 5
+#define CHARACTER_SET 6
+#define FOLDER_COLLECTIONS 7
+#define PMAPI_SEND_BEHAVIOR 8
+#define DEFAULT_FCC 9
+#define PMAPI_SUPPRESS_DIALOGS 10
+#define PMAPI_STRICT_NO_DIALOG 11
+#define NUMPRCVARS 12
+#define ENABLE8BIT 0
+#define NUMPRCFEATS 1
+#define PMSB_ALWAYS_PROMPT 0
+#define PMSB_ALWAYS_SEND 1
+#define PMSB_NEVER_SEND 2
+#define PMSD_NO 0
+#define PMSD_YES 1
+#define PMSD_PROMPT 2
+#define errBufSize 300 /* for buffers to sprintf %.200s error messages into */
+#define BUFLEN 1024
+#define EDITLEN 128
+#define MSDEBUG ms_global && ms_global->debug
+#define NOT_PINERC 0
+#define IS_PINERC 1
+#define PINERC_FILE "tmpmapiuwpinerc"
+#define ErrorBox(msg,parm){ \
+ char buf[errBufSize]; \
+ sprintf(buf, msg, parm); \
+ ErrorBoxFunc(buf); \
+ } /* a macro so parm can be a pointer or a value as per % format */
+#define DEBUG_WRITE(msg, parm) { if(MSDEBUG) fprintf(ms_global->dfd,msg,parm);}
+
+#ifdef ANSI
+#define PROTO(args) args
+#else
+#define PROTO(args) ()
+#endif
+
+/* used for pine pwd file */
+#define FIRSTCH 0x20
+#define LASTCH 0x7e
+#define TABSZ (LASTCH - FIRSTCH + 1)
+
+
+typedef struct rc_entry{
+ char *var;
+ union {
+ char *p;
+ char **l;
+ } val;
+ int islist;
+ int ispmapivar;
+} rc_entry_s;
+
+typedef struct rc_feat {
+ char *var;
+ int is_set;
+} rc_feat_s;
+
+typedef struct STRLIST{
+ char *str;
+ struct STRLIST *next;
+} STRLIST_S;
+
+typedef struct file_struct{
+ char *filename;
+ struct file_struct *next;
+} file_s;
+
+typedef enum {RecipDesc, Message} BufType;
+
+typedef struct mbuffer_list{
+ void *buf;
+ int arraysize; /* should always be 1 unless it's one of those silly arrays */
+ BufType type;
+ struct mbuffer_list *next;
+} MBUFFER_LIST_S;
+
+typedef struct strbuffer{
+ char *buf;
+ unsigned long cur_bytes;
+ unsigned long increment;
+ unsigned long bufsize;
+} STRBUFFER_S;
+
+typedef struct dlg_edits{
+ char edit1[EDITLEN];
+ char edit2[EDITLEN];
+} dlg_edits_s;
+
+typedef struct pw_cache {
+ char user[EDITLEN];
+ char pwd[EDITLEN];
+ char host[EDITLEN];
+ int validpw;
+ struct pw_cache *next;
+} pw_cache_s;
+
+typedef struct sessionl{
+ NETMBX *mb;
+ dlg_edits_s dlge;
+ pw_cache_s *pwc;
+ MAILSTREAM *open_stream;
+ char *currently_open;
+ struct {
+ unsigned dlg_cancel:1;
+ unsigned int mapi_logon_ui:1;
+ unsigned int check_stream:1;
+ /* int passfile_checked; */
+ } flags;
+ file_s *fs;
+ lpMapiMessage FAR lpm;
+ HWND mhwnd;
+ unsigned long session_number;
+ struct sessionl *next;
+} sessionlist_s;
+
+typedef struct mapi_global{
+ char *debugFile;
+ int debug;
+ FILE *dfd;
+ char *pineExe;
+ char *pineExeAlt;
+ char *pinerc;
+ char *pineconf;
+ char *pinercex;
+ char *fccfolder;
+ int inited;
+ char *tmpmbxptr;
+ rc_entry_s *prcvars[NUMPRCVARS];
+ rc_feat_s *prcfeats[NUMPRCFEATS];
+ int pmapi_send_behavior;
+ int pmapi_suppress_dialogs;
+ int pmapi_strict_no_dialog;
+ sessionlist_s *sessionlist;
+ sessionlist_s *cs; /* the current session, used for logins */
+ unsigned long next_session;
+ unsigned long attach_no;
+ unsigned long attached;
+ MBUFFER_LIST_S *mapi_bufs;
+ char *attachDir;
+ HINSTANCE mhinst;
+} mapi_global_s;
+
+extern struct mapi_global *ms_global;
+
+void ErrorBoxFunc(char *msg);
+char *quote(char *old);
+char *mstrdup(char *old);
+int msprint(char *str);
+int msprint1(char *str, void *arg1);
+int msprint_message_structure(lpMapiMessage lpm);
+int msprint_recipient_structure(lpMapiRecipDesc lmrd, int mapi_orig_is_unexpected);
+int msprint_file_structure(lpMapiFileDesc lmfd);
+
+int est_size(ADDRESS *a);
+int send_documents(char *files, char sep);
+unsigned long send_msg_nodlg(LHANDLE lhSession, ULONG ulUIParam,
+ lpMapiMessage lpMessage, FLAGS flFlags, ULONG ulReserved);
+ADDRESS *mapirecip2address(lpMapiRecipDesc lpmrd);
+long pmapi_soutr(STRBUFFER_S *s, char *str);
+char *TmpCopy(char *srcFile, int is_pinerc);
+sessionlist_s *new_sessionlist();
+sessionlist_s *free_sessionlist_node(sessionlist_s *cs);
+sessionlist_s *get_session(unsigned long num);
+lpMapiRecipDesc new_MapiRecipDesc(int arraysize);
+void free_MapiRecipDesc(lpMapiRecipDesc buf, int arraysize);
+lpMapiMessage new_MapiMessage(int arraysize);
+void free_MapiMessage(lpMapiMessage buf, int arraysize);
+int new_mbuffer(void *buf, int arraysize, BufType type);
+int free_mbuffer(void *buf);
+int InitPineSpecific(sessionlist_s *cs);
+MAILSTREAM *mapi_mail_open(sessionlist_s *cs, MAILSTREAM *stream, char *name, long options);
+MAILSTREAM *check_mailstream(sessionlist_s *cs);
+unsigned long convert_to_msgno(char *msgid);
+int fetch_structure_and_attachments(long msgno, long flags,
+ FLAGS MAPIflags, sessionlist_s *cs);
+char *message_structure_to_mailto_url(lpMapiMessage lpm);
+ULONG FAR PASCAL MAPISendMail(LHANDLE lhSession, ULONG ulUIParam, lpMapiMessage lpMessage,
+ FLAGS flFlags, ULONG ulReserved);
+ULONG FAR PASCAL MAPILogon(ULONG ulUIParam, LPTSTR lpszProfileName, LPTSTR lpszPassword,
+ FLAGS flFlags, ULONG ulReserved, LPLHANDLE lplhSession);
+ULONG FAR PASCAL MAPILogoff (LHANDLE lhSession, ULONG ulUIParam, FLAGS flFlags, ULONG ulReserved);
+ULONG FAR PASCAL MAPIFindNext (LHANDLE lhSession, ULONG ulUIParam, LPSTR lpszMessageType,
+ LPSTR lpszSeedMessageID, FLAGS flFlags, ULONG ulReserved,
+ LPSTR lpszMessageID);
+ULONG FAR PASCAL MAPIReadMail(LHANDLE lhSession, ULONG ulUIParam, LPSTR lpszMessageID,
+ FLAGS flFlags, ULONG ulReserved, lpMapiMessage FAR *lppMessage);
+ULONG FAR PASCAL MAPIAddress(LHANDLE lhSession, ULONG ulUIParam, LPTSTR lpszCaption,
+ ULONG nEditFields, LPTSTR lpszLabels, ULONG nRecips,
+ lpMapiRecipDesc lpRecips, FLAGS flFlags, ULONG ulReserved,
+ LPULONG lpnNewRecips, lpMapiRecipDesc FAR * lppNewRecips);
+ULONG FAR PASCAL MAPIDeleteMail(LHANDLE lhSession, ULONG ulUIParam, LPTSTR lpszMessageID,
+ FLAGS flFlags, ULONG ulReserved);
+ULONG FAR PASCAL MAPIDetails(LHANDLE lhSession, ULONG ulUIParam, lpMapiRecipDesc lpRecip,
+ FLAGS flFlags, ULONG ulReserved);
+ULONG FAR PASCAL MAPIFreeBuffer(LPVOID pv);
+ULONG FAR PASCAL MAPIResolveName(LHANDLE lhSession, ULONG ulUIParam, LPTSTR lpszName,
+ FLAGS flFlags, ULONG ulReserved, lpMapiRecipDesc FAR * lppRecip);
+ULONG FAR PASCAL MAPISaveMail(LHANDLE lhSession, ULONG ulUIParam, lpMapiMessage lpMessage,
+ FLAGS flFlags, ULONG ulReserved, LPTSTR lpszMessageID);
+ULONG FAR PASCAL MAPISendDocuments(ULONG ulUIParam, LPTSTR lpszDelimChar, LPTSTR lpszFullPaths,
+ LPTSTR lpszFileNames, ULONG ulReserved);
+
+/* rfc1522.c */
+char *rfc1522_encode PROTO((char *, size_t, unsigned char *, char *));
+void get_pair PROTO((char *, char **, char **, int, int));
+void removing_leading_and_trailing_white_space PROTO((char *));
diff --git a/mapi/pmapi.rc b/mapi/pmapi.rc
new file mode 100644
index 00000000..a648cd14
--- /dev/null
+++ b/mapi/pmapi.rc
@@ -0,0 +1,153 @@
+//Microsoft Developer Studio generated resource script.
+//
+#include "resource.h"
+
+#define APSTUDIO_READONLY_SYMBOLS
+/////////////////////////////////////////////////////////////////////////////
+//
+// Generated from the TEXTINCLUDE 2 resource.
+//
+#define APSTUDIO_HIDDEN_SYMBOLS
+#include "windows.h"
+#undef APSTUDIO_HIDDEN_SYMBOLS
+#define IDC_STATIC (-1) // all static controls
+
+/////////////////////////////////////////////////////////////////////////////
+#undef APSTUDIO_READONLY_SYMBOLS
+
+/////////////////////////////////////////////////////////////////////////////
+// English (U.S.) resources
+
+#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
+#ifdef _WIN32
+LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
+#pragma code_page(1252)
+#endif //_WIN32
+
+#ifdef APSTUDIO_INVOKED
+/////////////////////////////////////////////////////////////////////////////
+//
+// TEXTINCLUDE
+//
+
+1 TEXTINCLUDE DISCARDABLE
+BEGIN
+ "resource.h\0"
+END
+
+2 TEXTINCLUDE DISCARDABLE
+BEGIN
+ "#include ""afxres.h""\r\n"
+ "\0"
+END
+
+3 TEXTINCLUDE DISCARDABLE
+BEGIN
+ "\r\n"
+ "\0"
+END
+
+#endif // APSTUDIO_INVOKED
+
+
+/////////////////////////////////////////////////////////////////////////////
+//
+// Dialog
+//
+
+IDD_DIALOG1 DIALOG DISCARDABLE 0, 0, 284, 95
+STYLE DS_SYSMODAL | DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
+CAPTION "Login"
+FONT 8, "MS Sans Serif"
+BEGIN
+ LTEXT "Login: ",IDC_STATIC,20,44,20,8
+ EDITTEXT IDC_LOGIN,45,42,158,12,ES_AUTOHSCROLL
+ LTEXT "Password: ",IDC_STATIC,7,57,36,8
+ EDITTEXT IDC_PASSWORD,45,55,158,12,ES_PASSWORD | ES_AUTOHSCROLL
+ DEFPUSHBUTTON "OK",IDOK,7,73,50,14
+ PUSHBUTTON "Cancel",IDCANCEL,57,73,50,14
+ LTEXT "Attempting to open the following folder:",IDC_STATIC,7,
+ 18,131,8
+ LTEXT "Some server here ",IDC_SERVER,7,30,269,8
+END
+
+
+/////////////////////////////////////////////////////////////////////////////
+//
+// DESIGNINFO
+//
+
+#ifdef APSTUDIO_INVOKED
+GUIDELINES DESIGNINFO DISCARDABLE
+BEGIN
+ IDD_DIALOG1, DIALOG
+ BEGIN
+ LEFTMARGIN, 7
+ RIGHTMARGIN, 276
+ TOPMARGIN, 7
+ BOTTOMMARGIN, 87
+ END
+END
+#endif // APSTUDIO_INVOKED
+
+
+#ifndef _MAC
+/////////////////////////////////////////////////////////////////////////////
+//
+// Version
+//
+
+VS_VERSION_INFO VERSIONINFO
+ FILEVERSION 2,01,0,0
+ PRODUCTVERSION 2,01,0,0
+ FILEFLAGSMASK 0x3fL
+#ifdef _DEBUG
+ FILEFLAGS 0x29L
+#else
+ FILEFLAGS 0x28L
+#endif
+ FILEOS 0x40004L
+ FILETYPE 0x1L
+ FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "040904b0"
+ BEGIN
+ VALUE "Comments", "alpine info: http://www.washington.edu/alpine\0"
+ VALUE "CompanyName", "University of Washington\0"
+ VALUE "FileDescription", "Simple MAPI DLL for Alpine for Windows\0"
+ VALUE "FileVersion", "2.10\0"
+ VALUE "InternalName", "pmapi32\0"
+ VALUE "LegalCopyright", "Copyright ? 2006-2009\0"
+ VALUE "LegalTrademarks", "Apache License, Version 2.0\0"
+ VALUE "OriginalFilename", "pmapi32.dll\0"
+ VALUE "PrivateBuild", " \0"
+ VALUE "ProductName", "Simple MAPI for Alpine for Windows\0"
+ VALUE "ProductVersion", "2.10\0"
+ VALUE "SpecialBuild", " \0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x409, 1200
+ END
+END
+
+#endif // !_MAC
+
+#endif // English (U.S.) resources
+/////////////////////////////////////////////////////////////////////////////
+
+
+
+#ifndef APSTUDIO_INVOKED
+/////////////////////////////////////////////////////////////////////////////
+//
+// Generated from the TEXTINCLUDE 3 resource.
+//
+
+
+/////////////////////////////////////////////////////////////////////////////
+#endif // not APSTUDIO_INVOKED
+
diff --git a/mapi/resource.h b/mapi/resource.h
new file mode 100644
index 00000000..072b84c4
--- /dev/null
+++ b/mapi/resource.h
@@ -0,0 +1,19 @@
+//{{NO_DEPENDENCIES}}
+// Microsoft Developer Studio generated include file.
+// Used by select.rc
+//
+#define IDD_DIALOG1 101
+#define IDC_PASSWORD 1000
+#define IDC_LOGIN 1001
+#define IDC_SERVER 1003
+#define IDC_COMBO2 1005
+// Next default values for new objects
+//
+#ifdef APSTUDIO_INVOKED
+#ifndef APSTUDIO_READONLY_SYMBOLS
+#define _APS_NEXT_RESOURCE_VALUE 103
+#define _APS_NEXT_COMMAND_VALUE 40001
+#define _APS_NEXT_CONTROL_VALUE 1007
+#define _APS_NEXT_SYMED_VALUE 101
+#endif
+#endif
diff --git a/mapi/rfc1522.c b/mapi/rfc1522.c
new file mode 100644
index 00000000..f77a8c27
--- /dev/null
+++ b/mapi/rfc1522.c
@@ -0,0 +1,557 @@
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+/*
+ * rfc1522.c
+ *
+ * right now this is just rfc1522_encode (taken straight out of pine/strings.c,
+ * but if were to become necessary,
+ * it could be made to do rfc1522_decode too, and it already has some strings functions.
+ */
+#include "pmapi.h"
+
+#define RFC1522_INIT "=?"
+#define RFC1522_INIT_L 2
+#define RFC1522_TERM "?="
+#define RFC1522_TERM_L 2
+#define RFC1522_DLIM "?"
+#define RFC1522_DLIM_L 1
+#define RFC1522_MAXW 75
+#define ESPECIALS "()<>@,;:\"/[]?.="
+#define RFC1522_OVERHEAD(S) (RFC1522_INIT_L + RFC1522_TERM_L + \
+ (2 * RFC1522_DLIM_L) + strlen(S) + 1);
+#define RFC1522_ENC_CHAR(C) (((C) & 0x80) || !rfc1522_valtok(C) \
+ || (C) == '_' )
+#define SPACE ' ' /* space character */
+#define ESCAPE '\033' /* the escape */
+#define UNKNOWN_CHARSET "X-UNKNOWN"
+
+/*
+ * Hex conversion aids
+ */
+#define HEX_ARRAY "0123456789ABCDEF"
+#define HEX_CHAR1(C) HEX_ARRAY[((C) & 0xf0) >> 4]
+#define HEX_CHAR2(C) HEX_ARRAY[(C) & 0xf]
+
+#define C2XPAIR(C, S) { \
+ *(S)++ = HEX_CHAR1(C); \
+ *(S)++ = HEX_CHAR2(C); \
+ }
+
+
+int rfc1522_token PROTO((char *, int (*) PROTO((int)), char *,
+ char **));
+int rfc1522_valtok PROTO((int));
+int rfc1522_valenc PROTO((int));
+int rfc1522_valid PROTO((char *, char **, char **, char **,
+ char **));
+char *rfc1522_8bit PROTO((void *, int));
+char *rfc1522_binary PROTO((void *, int));
+unsigned char *rfc1522_encoded_word PROTO((unsigned char *, int, char *));
+char *strindex PROTO((char *, int));
+void sstrcpy PROTO((char **, char *));
+void sstrncpy PROTO((char **, char *, int));
+
+int removing_double_quotes PROTO((char *));
+
+static char *known_escapes[] = {
+ "(B", "(J", "$@", "$B", /* RFC 1468 */
+ "(H",
+ NULL};
+/* different for non-Windows */
+
+int
+match_escapes(esc_seq)
+ char *esc_seq;
+{
+ char **p;
+ int n;
+
+ for(p = known_escapes; *p && strncmp(esc_seq, *p, n = strlen(*p)); p++)
+ ;
+
+ return(*p ? n + 1 : 0);
+}
+
+/*----------------------------------------------------------------------
+ A replacement for strchr or index ...
+
+ Returns a pointer to the first occurrence of the character
+ 'ch' in the specified string or NULL if it doesn't occur
+
+ ....so we don't have to worry if it's there or not. We bring our own.
+If we really care about efficiency and think the local one is more
+efficient the local one can be used, but most of the things that take
+a long time are in the c-client and not in pine.
+ ----*/
+char *
+strindex(buffer, ch)
+ char *buffer;
+ int ch;
+{
+ do
+ if(*buffer == ch)
+ return(buffer);
+ while (*buffer++ != '\0');
+
+ return(NULL);
+}
+
+/*----------------------------------------------------------------------
+ copy the source string onto the destination string returning with
+ the destination string pointer at the end of the destination text
+
+ motivation for this is to avoid twice passing over a string that's
+ being appended to twice (i.e., strcpy(t, x); t += strlen(t))
+ ----*/
+void
+sstrcpy(d, s)
+ char **d;
+ char *s;
+{
+ while((**d = *s++) != '\0')
+ (*d)++;
+}
+
+void
+sstrncpy(d, s, n)
+ char **d;
+ char *s;
+ int n;
+{
+ while(n-- > 0 && (**d = *s++) != '\0')
+ (*d)++;
+}
+
+/*
+ * rfc1522_token - scan the given source line up to the end_str making
+ * sure all subsequent chars are "valid" leaving endp
+ * a the start of the end_str.
+ * Returns: TRUE if we got a valid token, FALSE otherwise
+ */
+int
+rfc1522_token(s, valid, end_str, endp)
+ char *s;
+ int (*valid) PROTO((int));
+ char *end_str;
+ char **endp;
+{
+ while(*s){
+ if((char) *s == *end_str /* test for matching end_str */
+ && ((end_str[1])
+ ? !strncmp((char *)s + 1, end_str + 1, strlen(end_str + 1))
+ : 1)){
+ *endp = s;
+ return(TRUE);
+ }
+
+ if(!(*valid)(*s++)) /* test for valid char */
+ break;
+ }
+
+ return(FALSE);
+}
+
+
+/*
+ * rfc1522_valtok - test for valid character in the RFC 1522 encoded
+ * word's charset and encoding fields.
+ */
+int
+rfc1522_valtok(c)
+ int c;
+{
+ return(!(c == SPACE || iscntrl(c & 0x7f) || strindex(ESPECIALS, c)));
+}
+
+
+/*
+ * rfc1522_valenc - test for valid character in the RFC 1522 encoded
+ * word's encoded-text field.
+ */
+int
+rfc1522_valenc(c)
+ int c;
+{
+ return(!(c == '?' || c == SPACE) && isprint((unsigned char)c));
+}
+
+
+/*
+ * rfc1522_valid - validate the given string as to it's rfc1522-ness
+ */
+int
+rfc1522_valid(s, charset, enc, txt, endp)
+ char *s;
+ char **charset;
+ char **enc;
+ char **txt;
+ char **endp;
+{
+ char *c, *e, *t, *p;
+ int rv;
+
+ rv = rfc1522_token(c = s+RFC1522_INIT_L, rfc1522_valtok, RFC1522_DLIM, &e)
+ && rfc1522_token(++e, rfc1522_valtok, RFC1522_DLIM, &t)
+ && rfc1522_token(++t, rfc1522_valenc, RFC1522_TERM, &p)
+ && p - s <= RFC1522_MAXW;
+
+ if(charset)
+ *charset = c;
+
+ if(enc)
+ *enc = e;
+
+ if(txt)
+ *txt = t;
+
+ if(endp)
+ *endp = p;
+
+ return(rv);
+}
+
+
+/*
+ * rfc1522_encode - encode the given source string ala RFC 1522,
+ * IF NECESSARY, into the given destination buffer.
+ * Don't bother copying if it turns out encoding
+ * isn't necessary.
+ *
+ * Returns: pointer to either the destination buffer containing the
+ * encoded text, or a pointer to the source buffer if we didn't
+ * have to encode anything.
+ */
+char *
+rfc1522_encode(d, len, s, charset)
+ char *d;
+ size_t len; /* length of d */
+ unsigned char *s;
+ char *charset;
+{
+ unsigned char *p, *q;
+ int n;
+
+ if(!s)
+ return((char *) s);
+
+ if(!charset)
+ charset = UNKNOWN_CHARSET;
+
+ /* look for a reason to encode */
+ for(p = s, n = 0; *p; p++)
+ if((*p) & 0x80){
+ n++;
+ }
+ else if(*p == RFC1522_INIT[0]
+ && !strncmp((char *) p, RFC1522_INIT, RFC1522_INIT_L)){
+ if(rfc1522_valid((char *) p, NULL, NULL, NULL, (char **) &q))
+ p = q + RFC1522_TERM_L - 1; /* advance past encoded gunk */
+ }
+ else if(*p == ESCAPE && match_escapes((char *)(p+1))){
+ n++;
+ }
+
+ if(n){ /* found, encoding to do */
+ char *rv = d, *t,
+ enc = (n > (2 * (p - s)) / 3) ? 'B' : 'Q';
+
+ while(*s){
+ if(d-rv < len-1-(RFC1522_INIT_L+2*RFC1522_DLIM_L+1)){
+ sstrcpy(&d, RFC1522_INIT); /* insert intro header, */
+ sstrcpy(&d, charset); /* character set tag, */
+ sstrcpy(&d, RFC1522_DLIM); /* and encoding flavor */
+ *d++ = enc;
+ sstrcpy(&d, RFC1522_DLIM);
+ }
+
+ /*
+ * feed lines to encoder such that they're guaranteed
+ * less than RFC1522_MAXW.
+ */
+ p = rfc1522_encoded_word(s, enc, charset);
+ if(enc == 'B') /* insert encoded data */
+ sstrncpy(&d, t = rfc1522_binary(s, p - s), len-1-(d-rv));
+ else /* 'Q' encoding */
+ sstrncpy(&d, t = rfc1522_8bit(s, p - s), len-1-(d-rv));
+
+ sstrncpy(&d, RFC1522_TERM, len-1-(d-rv)); /* insert terminator */
+ fs_give((void **) &t);
+ if(*p) /* more src string follows */
+ sstrncpy(&d, "\015\012 ", len-1-(d-rv)); /* insert cont. line */
+
+ s = p; /* advance s */
+ }
+
+ rv[len-1] = '\0';
+ return(rv);
+ }
+ else
+ return((char *) s); /* no work for us here */
+}
+
+
+
+/*
+ * rfc1522_encoded_word -- cut given string into max length encoded word
+ *
+ * Return: pointer into 's' such that the encoded 's' is no greater
+ * than RFC1522_MAXW
+ *
+ * NOTE: this line break code is NOT cognizant of any SI/SO
+ * charset requirements nor similar strategies using escape
+ * codes. Hopefully this will matter little and such
+ * representation strategies don't also include 8bit chars.
+ */
+unsigned char *
+rfc1522_encoded_word(s, enc, charset)
+ unsigned char *s;
+ int enc;
+ char *charset;
+{
+ int goal = RFC1522_MAXW - RFC1522_OVERHEAD(charset);
+
+ if(enc == 'B') /* base64 encode */
+ for(goal = ((goal / 4) * 3) - 2; goal && *s; goal--, s++)
+ ;
+ else /* special 'Q' encoding */
+ for(; goal && *s; s++)
+ if((goal -= RFC1522_ENC_CHAR(*s) ? 3 : 1) < 0)
+ break;
+
+ return(s);
+}
+
+
+
+/*
+ * rfc1522_8bit -- apply RFC 1522 'Q' encoding to the given 8bit buffer
+ *
+ * Return: alloc'd buffer containing encoded string
+ */
+char *
+rfc1522_8bit(src, slen)
+ void *src;
+ int slen;
+{
+ char *ret = (char *) fs_get ((size_t) (3*slen + 2));
+ char *d = ret;
+ unsigned char c;
+ unsigned char *s = (unsigned char *) src;
+
+ while (slen--) { /* for each character */
+ if (((c = *s++) == '\015') && (*s == '\012') && slen) {
+ *d++ = '\015'; /* true line break */
+ *d++ = *s++;
+ slen--;
+ }
+ else if(c == SPACE){ /* special encoding case */
+ *d++ = '_';
+ }
+ else if(RFC1522_ENC_CHAR(c)){
+ *d++ = '='; /* quote character */
+ C2XPAIR(c, d);
+ }
+ else
+ *d++ = (char) c; /* ordinary character */
+ }
+
+ *d = '\0'; /* tie off destination */
+ return(ret);
+}
+
+
+/*
+ * rfc1522_binary -- apply RFC 1522 'B' encoding to the given 8bit buffer
+ *
+ * Return: alloc'd buffer containing encoded string
+ */
+char *
+rfc1522_binary (src, srcl)
+ void *src;
+ int srcl;
+{
+ static char *v =
+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
+ unsigned char *s = (unsigned char *) src;
+ char *ret, *d;
+
+ d = ret = (char *) fs_get ((size_t) ((((srcl + 2) / 3) * 4) + 1));
+ for (; srcl; s += 3) { /* process tuplets */
+ /* byte 1: high 6 bits (1) */
+ *d++ = v[s[0] >> 2];
+ /* byte 2: low 2 bits (1), high 4 bits (2) */
+ *d++ = v[((s[0] << 4) + (--srcl ? (s[1] >> 4) : 0)) & 0x3f];
+ /* byte 3: low 4 bits (2), high 2 bits (3) */
+ *d++ = srcl ? v[((s[1] << 2) + (--srcl ? (s[2] >> 6) :0)) & 0x3f] :'=';
+ /* byte 4: low 6 bits (3) */
+ *d++ = srcl ? v[s[2] & 0x3f] : '=';
+ if(srcl)
+ srcl--; /* count third character if processed */
+ }
+
+ *d = '\0'; /* tie off string */
+ return(ret); /* return the resulting string */
+}
+
+
+/*
+ * Function to parse the given string into two space-delimited fields
+ * Quotes may be used to surround labels or values with spaces in them.
+ * Backslash negates the special meaning of a quote.
+ * Unescaping of backslashes only happens if the pair member is quoted,
+ * this provides for backwards compatibility.
+ *
+ * Args -- string -- the source string
+ * label -- the first half of the string, a return value
+ * value -- the last half of the string, a return value
+ * firstws -- if set, the halves are delimited by the first unquoted
+ * whitespace, else by the last unquoted whitespace
+ * strip_internal_label_quotes -- unescaped quotes in the middle of the label
+ * are removed. This is useful for vars
+ * like display-filters and url-viewers
+ * which may require quoting of an arg
+ * inside of a _TOKEN_.
+ */
+void
+get_pair(string, label, value, firstws, strip_internal_label_quotes)
+ char *string, **label, **value;
+ int firstws;
+ int strip_internal_label_quotes;
+{
+ char *p, *q, *tmp, *token = NULL;
+ int quoted = 0;
+
+ *label = *value = NULL;
+
+ /*
+ * This for loop just finds the beginning of the value. If firstws
+ * is set, then it begins after the first whitespace. Otherwise, it begins
+ * after the last whitespace. Quoted whitespace doesn't count as
+ * whitespace. If there is no unquoted whitespace, then there is no
+ * label, there's just a value.
+ */
+ for(p = string; p && *p;){
+ if(*p == '"') /* quoted label? */
+ quoted = (quoted) ? 0 : 1;
+
+ if(*p == '\\' && *(p+1) == '"') /* escaped quote? */
+ p++; /* skip it... */
+
+ if(isspace((unsigned char)*p) && !quoted){ /* if space, */
+ while(*++p && isspace((unsigned char)*p)) /* move past it */
+ ;
+
+ if(!firstws || !token)
+ token = p; /* remember start of text */
+ }
+ else
+ p++;
+ }
+
+ if(token){ /* copy label */
+ *label = p = (char *)fs_get(((token - string) + 1) * sizeof(char));
+
+ /* make a copy of the string */
+ tmp = (char *)fs_get(((token - string) + 1) * sizeof(char));
+ strncpy(tmp, string, token - string);
+ tmp[token-string] = '\0';
+
+ removing_leading_and_trailing_white_space(tmp);
+ quoted = removing_double_quotes(tmp);
+
+ for(q = tmp; *q; q++){
+ if(quoted && *q == '\\' && (*(q+1) == '"' || *(q+1) == '\\'))
+ *p++ = *++q;
+ else if(!(strip_internal_label_quotes && *q == '"'))
+ *p++ = *q;
+ }
+
+ *p = '\0'; /* tie off label */
+ fs_give((void **)&tmp);
+ if(*label == '\0')
+ fs_give((void **)label);
+ }
+ else
+ token = string;
+
+ if(token){ /* copy value */
+ *value = p = (char *)fs_get((strlen(token) + 1) * sizeof(char));
+
+ tmp = cpystr(token);
+ removing_leading_and_trailing_white_space(tmp);
+ quoted = removing_double_quotes(tmp);
+
+ for(q = tmp; *q ; q++){
+ if(quoted && *q == '\\' && (*(q+1) == '"' || *(q+1) == '\\'))
+ *p++ = *++q;
+ else
+ *p++ = *q;
+ }
+
+ *p = '\0'; /* tie off value */
+ fs_give((void **)&tmp);
+ }
+}
+
+void
+removing_leading_and_trailing_white_space(string)
+ char *string;
+{
+ register char *p, *q = NULL;
+
+ if(!string)
+ return;
+
+ for(p = string; *p; p++) /* find the first non-blank */
+ if(!isspace((unsigned char)*p)){
+ while(*string = *p++){ /* copy back from there... */
+ q = (!isspace((unsigned char)*string)) ? NULL : (!q) ? string : q;
+ string++;
+ }
+
+ if(q)
+ *q = '\0';
+
+ return;
+ }
+
+ if(*string != '\0')
+ *string = '\0';
+}
+
+/*----------------------------------------------------------------------
+ Remove one set of double quotes surrounding string in place
+ Returns 1 if quotes were removed
+
+ Args: string -- string to remove quotes from
+ ----*/
+int
+removing_double_quotes(string)
+ char *string;
+{
+ register char *p;
+ int ret = 0;
+
+ if(string && string[0] == '"' && string[1] != '\0'){
+ p = string + strlen(string) - 1;
+ if(*p == '"'){
+ ret++;
+ *p = '\0';
+ for(p = string; *p; p++)
+ *p = *(p+1);
+ }
+ }
+
+ return(ret);
+}
diff --git a/mapi/smapi.c b/mapi/smapi.c
new file mode 100644
index 00000000..6beb87a8
--- /dev/null
+++ b/mapi/smapi.c
@@ -0,0 +1,653 @@
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "pmapi.h"
+
+ULONG FAR PASCAL MAPISendMail(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ lpMapiMessage lpMessage,
+ FLAGS flFlags,
+ ULONG ulReserved)
+{
+ ULONG i;
+ int ac = 0, rv = 0, can_suppress_dialog = 0, has_recips = 0;
+ char **av, *tmpfree, *url;
+
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPISendMail\r\n");
+ fprintf(ms_global->dfd, " MAPI_DIALOG is %s set\r\n",
+ flFlags & MAPI_DIALOG ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %s set\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %s set\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+ msprint_message_structure(lpMessage);
+
+ url = message_structure_to_mailto_url(lpMessage);
+
+ for(i = 0; i < lpMessage->nRecipCount; i++){
+ if((&lpMessage->lpRecips[i])->ulRecipClass != MAPI_ORIG)
+ has_recips = 1;
+ }
+ if((flFlags & MAPI_DIALOG) && has_recips &&
+ (lpMessage->lpszSubject
+ || lpMessage->lpszNoteText
+ || lpMessage->nFileCount)){
+ if(ms_global->pmapi_suppress_dialogs == PMSD_YES)
+ can_suppress_dialog = 1;
+ else if(ms_global->pmapi_suppress_dialogs == PMSD_PROMPT){
+ if(MessageBox(NULL, "Edit Message Before Sending?", "pmapi32.dll", MB_YESNO|MB_ICONQUESTION) == IDNO)
+ can_suppress_dialog = 1;
+ }
+ }
+ if(can_suppress_dialog ||
+ ((flFlags & MAPI_DIALOG) == 0)){
+ rv = send_msg_nodlg(lhSession, ulUIParam, lpMessage, flFlags, ulReserved);
+ return(rv);
+ }
+
+ if (lpMessage == NULL){
+ /* lpMessage->lpFiles == NULL ||
+ lpMessage->lpFiles->lpszPathName == NULL) */
+ /* this old code checked to see that there were attachments */
+ /* I think it should be all right for there not to be attachments */
+
+ ErrorBox("MAPISendMail: %s pointer in lpMessage argument", "NULL");
+ return 0;
+ }
+
+ /*
+ * allocate space for spawn's argv array:
+ * 2 for each of the nFileCount attachments
+ * +4 for the -p pinerc, and av[0] and trailing NULL
+ * +2 for the url
+ */
+ {
+ int avSize = (6+2*lpMessage->nFileCount)*sizeof(*av);
+ av = (char **)fs_get(avSize);
+ if (av == NULL) {
+ ErrorBox("MAPISendMail: fs_get of %d bytes for av failed", (avSize));
+ return MAPI_E_FAILURE;
+ }
+ }
+
+ /*
+ * establish a default path to the pine executable which will
+ * probably be replaced with a value from the registry
+ */
+ if(ms_global && ms_global->pineExe){
+ av[ac++] = quote(ms_global->pineExe);
+ if(!av[0]) {
+ ErrorBox("Cannot fs_get for %s","pine");
+ return MAPI_E_FAILURE;
+ }
+ }
+ else return MAPI_E_FAILURE;
+ if(ms_global->pinerc){
+ av[ac++] = mstrdup("-p");
+ if(tmpfree = TmpCopy(ms_global->pinerc, IS_PINERC)){
+ av[ac++] = quote(tmpfree);
+ fs_give((void **)&tmpfree);
+ }
+ else
+ av[ac++] = quote(ms_global->pinerc);
+ }
+ if(url){
+ av[ac++] = mstrdup("-url");
+ av[ac++] = url;
+ }
+
+ /*
+ * make a temporary copy of each attachment in attachDir,
+ * add the new filename (suitably quoted) to pine's argument list
+ */
+ for (i=0; i < lpMessage->nFileCount; ++i) {
+ char *oldPath = lpMessage->lpFiles[i].lpszPathName;
+ char *newCopy, *tmpfree;
+ tmpfree = TmpCopy(oldPath, NOT_PINERC);
+ if(tmpfree == NULL)
+ return MAPI_E_ATTACHMENT_NOT_FOUND;
+ newCopy = quote(tmpfree);
+ fs_give((void **)&tmpfree);
+ if (newCopy) {
+ av[ac++] = mstrdup("-attach_and_delete");
+ av[ac++] = newCopy;
+ }
+ else{
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "TmpCopy returned null\r\n");
+ }
+ if (MSDEBUG) {
+ fprintf(ms_global->dfd,"Attachment %d: old path: %s\r\n--\r\n",
+ i,oldPath);
+ fprintf(ms_global->dfd,">>: %s\r\n--\r\n",ms_global->attachDir);
+ fprintf(ms_global->dfd,">>: tmp path: %s\r\n--\r\n",
+ (newCopy?newCopy:"NULL"));
+ }
+ }
+ av[ac++] = NULL;
+
+ if(MSDEBUG) {
+ fprintf(ms_global->dfd, "spawning %s (else %s):\r\n",
+ ms_global->pineExe, ms_global->pineExeAlt);
+ for (i=0; av[i]; ++i)
+ fprintf(ms_global->dfd, "av[%d] = %s\r\n", i, av[i]);
+ }
+
+ _flushall();
+ if (_spawnvp(_P_NOWAIT, ms_global->pineExe, av) == -1 &&
+ _spawnvp(_P_NOWAIT, ms_global->pineExeAlt, av) == -1)
+ {
+ ErrorBox("MAPISendMail: _spawnvp of %s failed", ms_global->pineExe);
+ if(MSDEBUG) fprintf(ms_global->dfd, "_spawnvp %s and %s failed\r\n",
+ ms_global->pineExe,ms_global->pineExeAlt);
+ return(MAPI_E_FAILURE);
+ }
+
+ /*
+ * close and free allocated resources
+ */
+ if (av[0]) fs_give((void **)&av[0]);
+ for (i=1; av[i]; i++) {
+ if (av[i]) fs_give((void **)&av[i]);
+ }
+ fs_give((void **)&av);
+
+ return SUCCESS_SUCCESS;
+}
+
+
+ULONG FAR PASCAL MAPILogon(
+ ULONG ulUIParam,
+ LPTSTR lpszProfileName,
+ LPTSTR lpszPassword,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ LPLHANDLE lplhSession)
+{
+ mapi_global_s *nmg = ms_global;
+ sessionlist_s *cs;
+ sessionlist_s *ts;
+
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPILogon\r\n");
+ fprintf(ms_global->dfd, " MAPI_FORCE_DOWNLOAD is %s set\r\n",
+ flFlags & MAPI_FORCE_DOWNLOAD ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %s set\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %s set\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_PASSWORD_UI is %s set\r\n",
+ flFlags & MAPI_PASSWORD_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " ulUIParam is %p\r\n", ulUIParam);
+ if(lpszProfileName)
+ fprintf(ms_global->dfd, " profile name is %s\r\n", lpszProfileName);
+ fprintf(ms_global->dfd, " lplhSession is %p\r\n", lplhSession);
+ if(lplhSession)
+ fprintf(ms_global->dfd, " session number is %p\r\n", *lplhSession);
+ fclose(ms_global->dfd);
+ ms_global->dfd = fopen(ms_global->debugFile, "ab");
+ if(!ms_global->dfd){
+ ms_global->debug = 0;
+ ErrorBox("Problem with debug file %s! Debugging turned off",
+ ms_global->debugFile);
+ fs_give((void **)&ms_global->debugFile);
+ ms_global->debugFile = NULL;
+
+ }
+ }
+ if(lplhSession == NULL){
+ if(MSDEBUG){
+ fprintf(nmg->dfd,
+ "lplhSession is a NULL pointer, returning MAPI_E_FAILURE\r\n");
+ }
+ return MAPI_E_FAILURE;
+ }
+ if((flFlags & MAPI_NEW_SESSION) || !nmg->sessionlist){
+ cs = new_sessionlist();
+ *lplhSession = cs->session_number;
+
+ if(nmg->sessionlist == NULL)
+ nmg->sessionlist = cs;
+ else{
+ ts = nmg->sessionlist;
+ while(ts->next) ts = ts->next;
+ ts->next = cs;
+ }
+ }
+ else{
+ if(!*lplhSession) *lplhSession = nmg->sessionlist->session_number;
+ else
+ cs = get_session(*lplhSession);
+ if(!cs)
+ return MAPI_E_INVALID_SESSION;
+ }
+ cs->flags.mapi_logon_ui = ((flFlags & MAPI_LOGON_UI) || (flFlags & MAPI_PASSWORD_UI))
+ ? 1 : 0;
+ if((flFlags & MAPI_LOGON_UI) || (flFlags & MAPI_PASSWORD_UI))
+ if(InitPineSpecific(cs) == -1) return MAPI_E_FAILURE;
+
+ if(MSDEBUG){
+ fprintf(nmg->dfd,
+ "lplhSession is returning %p for session handle\r\n", *lplhSession);
+ _flushall();
+ }
+ return SUCCESS_SUCCESS;
+}
+
+ULONG FAR PASCAL MAPILogoff (
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ FLAGS flFlags,
+ ULONG ulReserved)
+{
+ sessionlist_s *cs;
+
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPILogoff\r\n");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+
+ cs = get_session(lhSession);
+ if(!cs) return MAPI_E_INVALID_SESSION;
+ if(!cs->open_stream) return SUCCESS_SUCCESS;
+ cs->open_stream = mail_close_full(cs->open_stream, 0);
+ cs->open_stream = NULL;
+ if(cs->currently_open){
+ fs_give((void **)&cs->currently_open);
+ cs->currently_open = NULL;
+ }
+ cs->dlge.edit1[0] = '\0';
+ cs->dlge.edit2[0] = '\0';
+ /* ms_global->flags.passfile_checked = FALSE; */
+ return SUCCESS_SUCCESS;
+}
+
+ULONG FAR PASCAL MAPIFindNext (
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ LPSTR lpszMessageType,
+ LPSTR lpszSeedMessageID,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ LPSTR lpszMessageID)
+{
+ mapi_global_s *nmg = ms_global;
+ sessionlist_s *cs;
+ char tmp[1024], tmpseq[1024];
+ int msg_found;
+ unsigned long tmp_msgno, i, cur_msg = 0;
+ MESSAGECACHE *telt;
+
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "\r\nMAPIFindNext Called\r\n");
+ fprintf(ms_global->dfd, " MAPI_GUARANTEE_FIFO is %s set\r\n",
+ flFlags & MAPI_GUARANTEE_FIFO ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_LONG_MSGID is %s set\r\n",
+ flFlags & MAPI_LONG_MSGID ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_MAPI_UNREAD_ONLY is %s set\r\n",
+ flFlags & MAPI_UNREAD_ONLY ? "" : "NOT");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ fprintf(ms_global->dfd, " ulUIParam is %d\r\n", ulUIParam);
+ fprintf(ms_global->dfd, "message type is %s\r\n",
+ lpszMessageType ? lpszMessageType : "NOT SET");
+ fprintf(ms_global->dfd, "seed message id is %s\r\n",
+ lpszSeedMessageID ? lpszSeedMessageID : "NOT SET");
+ _flushall();
+ }
+
+ cs = get_session(lhSession);
+ if(!cs){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "Session number %p is invalid\r\n", lhSession);
+ return MAPI_E_INVALID_SESSION;
+ }
+
+ if(InitPineSpecific(cs) == -1) return MAPI_E_FAILURE;
+
+ if(!check_mailstream(cs))
+ return MAPI_E_FAILURE;
+ if(lpszSeedMessageID == NULL || *lpszSeedMessageID == '\0')
+ cur_msg = 0;
+ else{
+ cur_msg = convert_to_msgno(lpszSeedMessageID);
+ }
+ if(flFlags & MAPI_UNREAD_ONLY){
+ if(cur_msg + 1 > cs->open_stream->nmsgs)
+ return MAPI_E_NO_MESSAGES;
+ tmp_msgno = cur_msg+1;
+ msg_found = FALSE;
+ while(!msg_found && tmp_msgno <= cs->open_stream->nmsgs){
+ sprintf(tmp, "%d", tmp_msgno);
+ strcpy(tmpseq, tmp);
+ if(tmp_msgno+1 <= cs->open_stream->nmsgs){
+ sprintf(tmp,":%d", min(cs->open_stream->nmsgs,tmp_msgno+100));
+ strcat(tmpseq, tmp);
+ }
+ mail_fetch_flags(cs->open_stream, tmpseq, NIL);
+ for(i = tmp_msgno;
+ i <= (unsigned long)min(cs->open_stream->nmsgs,tmp_msgno+100);
+ i++){
+ telt = mail_elt(cs->open_stream, i);
+ if(telt->seen == 0){
+ msg_found = TRUE;
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "msgno %d is the next UNREAD message after %d",
+ i, cur_msg);
+ break;
+ }
+ }
+ if(!msg_found){
+ if(i == cs->open_stream->nmsgs){
+ if(MSDEBUG)
+ fprintf(nmg->dfd,"No UNREAD messages found after %d\r\n",
+ cur_msg);
+ return MAPI_E_NO_MESSAGES;
+ }
+ tmp_msgno += 100;
+ }
+ }
+ if(msg_found)
+ cur_msg = i;
+ else return MAPI_E_NO_MESSAGES;
+ }
+ else{
+ if(cur_msg+1 > cs->open_stream->nmsgs)
+ return MAPI_E_NO_MESSAGES;
+ cur_msg++;
+ }
+
+ sprintf(lpszMessageID,"%d", cur_msg);
+
+ if(MSDEBUG)
+ fprintf(nmg->dfd, " Next message found is %d\r\n", cur_msg);
+ return SUCCESS_SUCCESS;
+}
+
+
+ULONG FAR PASCAL MAPIReadMail(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ LPSTR lpszMessageID,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ lpMapiMessage FAR *lppMessage)
+{
+ mapi_global_s *nmg = ms_global;
+ unsigned rv;
+ unsigned long msgno = 0, flags;
+ sessionlist_s *cs;
+
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "\r\nIn MAPIReadMail\r\n");
+ fprintf(nmg->dfd, " MAPI_PEEK is %s\r\n",
+ flFlags & MAPI_PEEK ? "TRUE":"FALSE");
+ fprintf(nmg->dfd, " MAPI_BODY_AS_FILE is %s\r\n",
+ flFlags & MAPI_BODY_AS_FILE ? "TRUE":"FALSE");
+ fprintf(nmg->dfd, " MAPI_ENVELOPE_ONLY is %s\r\n",
+ flFlags & MAPI_ENVELOPE_ONLY ? "TRUE":"FALSE");
+ fprintf(nmg->dfd, " MAPI_SUPPRESS_ATTACH is %s\r\n",
+ flFlags & MAPI_SUPPRESS_ATTACH ? "TRUE":"FALSE");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+
+ cs = get_session(lhSession);
+ if(!cs){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "Session number %p is invalid\r\n", lhSession);
+ return MAPI_E_INVALID_SESSION;
+ }
+
+ if(InitPineSpecific(cs) == -1) return MAPI_E_FAILURE;
+
+ if(!check_mailstream(cs))
+ return MAPI_E_FAILURE;
+
+ msgno = convert_to_msgno(lpszMessageID);
+
+ if(msgno == 0){
+ if(MSDEBUG)
+ fprintf(nmg->dfd, "Invalid Message ID: %s\r\n", lpszMessageID);
+ return MAPI_E_INVALID_MESSAGE;
+ }
+
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "lpszMessageID: %s, converted msgno: %d\r\n",
+ lpszMessageID, msgno);
+ }
+
+ if(flFlags & MAPI_PEEK)
+ flags = FT_PEEK;
+ else flags = NIL;
+
+ rv = fetch_structure_and_attachments(msgno, flags, flFlags, cs);
+ if(rv == MAPI_E_FAILURE)
+ return rv;
+ else if(rv == SUCCESS_SUCCESS){
+ *lppMessage = cs->lpm;
+ return rv;
+ }
+ else
+ return rv;
+}
+
+ULONG FAR PASCAL MAPIAddress(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ LPTSTR lpszCaption,
+ ULONG nEditFields,
+ LPTSTR lpszLabels,
+ ULONG nRecips,
+ lpMapiRecipDesc lpRecips,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ LPULONG lpnNewRecips,
+ lpMapiRecipDesc FAR * lppNewRecips)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPIAddress\r\n");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %s set\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %s set\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+ return MAPI_E_NOT_SUPPORTED;
+}
+
+ULONG FAR PASCAL MAPIDeleteMail(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ LPTSTR lpszMessageID,
+ FLAGS flFlags,
+ ULONG ulReserved)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPIDeleteMail\r\n");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+ return MAPI_E_NOT_SUPPORTED;
+}
+
+ULONG FAR PASCAL MAPIDetails(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ lpMapiRecipDesc lpRecip,
+ FLAGS flFlags,
+ ULONG ulReserved)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPIDetails\r\n");
+ fprintf(ms_global->dfd, " MAPI_NO_MODIFY is %s set\r\n",
+ flFlags & MAPI_AB_NOMODIFY ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %s set\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %s set\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+ return MAPI_E_NOT_SUPPORTED;
+}
+
+ULONG FAR PASCAL MAPIFreeBuffer(
+ LPVOID pv)
+{
+ mapi_global_s *nmg = ms_global;
+
+ if(MSDEBUG){
+ fprintf(nmg->dfd, "\r\nMAPIFreeBuffer called, buffer is %p\r\n", pv);
+ _flushall();
+ }
+ free_mbuffer(pv);
+ return SUCCESS_SUCCESS;
+}
+
+ULONG FAR PASCAL MAPIResolveName(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ LPTSTR lpszName,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ lpMapiRecipDesc FAR * lppRecip)
+{
+ mapi_global_s *nmg = ms_global;
+ sessionlist_s *cs, *tsession;
+ static char *fakedomain = "@";
+ ADDRESS *adrlist = NULL;
+ char *adrstr, *tadrstr, *tadrstrbuf;
+
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPIResolveName\r\n");
+ fprintf(ms_global->dfd, " MAPI_NO_MODIFY is %sset\r\n",
+ flFlags & MAPI_AB_NOMODIFY ? "" : "NOT ");
+ fprintf(ms_global->dfd, " MAPI_DIALOG is %sset\r\n",
+ flFlags & MAPI_DIALOG ? "" : "NOT ");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %sset\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT ");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %sset\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT ");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ fprintf(ms_global->dfd, " String to Resolve is %s\r\n", lpszName);
+ _flushall();
+ }
+
+ if((flFlags & MAPI_NEW_SESSION) || lhSession == 0)
+ tsession = cs = new_sessionlist();
+ else {
+ cs = get_session(lhSession);
+ if(!cs){
+ if(MSDEBUG)
+ fprintf(ms_global->dfd, "Session number %p is invalid\r\n", lhSession);
+ return MAPI_E_INVALID_SESSION;
+ }
+ }
+ cs->flags.mapi_logon_ui = (flFlags & MAPI_LOGON_UI) ? 1 : 0;
+ if(InitPineSpecific(cs) == -1) return MAPI_E_FAILURE;
+ tadrstrbuf = tadrstr = mstrdup(lpszName);
+ removing_leading_and_trailing_white_space(tadrstr);
+ if(_strnicmp(tadrstr, "SMTP:", 5) == 0){
+ tadrstr += 5;
+ if(tadrstr[0] == '(' && tadrstr[strlen(tadrstr) - 1] == ')'){
+ tadrstr[strlen(tadrstr)-1] = '\0';
+ tadrstr++;
+ removing_leading_and_trailing_white_space(tadrstr);
+ }
+ }
+ rfc822_parse_adrlist(&adrlist, tadrstr,
+ nmg->prcvars[USER_DOMAIN]->val.p ? nmg->prcvars[USER_DOMAIN]->val.p
+ : fakedomain);
+ fs_give((void **)&tadrstrbuf);
+ if(!adrlist || adrlist->next){ /* I guess there aren't supposed to be multiple addresses, */
+ /* which is pretty lame */
+ mail_free_address(&adrlist);
+ if(tsession)
+ fs_give((void **)&tsession);
+ msprint("Returning MAPI_E_AMBIGUOUS_RECIPIENT\r\n");
+ return MAPI_E_AMBIGUOUS_RECIPIENT;
+ }
+ if(!adrlist->host || *adrlist->host == '@'){
+ mail_free_address(&adrlist);
+ if(tsession)
+ fs_give((void **)&tsession);
+ msprint("Returning MAPI_E_AMBIGUOUS_RECIPIENT\r\n");
+ return MAPI_E_AMBIGUOUS_RECIPIENT;
+ }
+
+ (*lppRecip) = new_MapiRecipDesc(1);
+ if(adrlist->personal){
+ (*lppRecip)->lpszName = mstrdup(adrlist->personal);
+ adrlist->personal = NULL;
+ }
+ adrstr = (char *)fs_get((8 + strlen(adrlist->mailbox) + strlen(adrlist->host)) * sizeof(char));
+ sprintf(adrstr, "SMTP:%s@%s", adrlist->mailbox, adrlist->host);
+ (*lppRecip)->lpszAddress = adrstr;
+
+ /* The spec says it's a recipient, so set the thing to MAPI_TO */
+ (*lppRecip)->ulRecipClass = MAPI_TO;
+
+ mail_free_address(&adrlist);
+ msprint1(" Returning with name: %s\r\n", (*lppRecip)->lpszName ? (*lppRecip)->lpszName : "(no name)");
+ msprint1(" address: %s\r\n", (*lppRecip)->lpszAddress ? (*lppRecip)->lpszAddress : "(no address)");
+ msprint(" ulRecipClass: MAPI_TO\r\n");
+ msprint("Returning SUCCESS_SUCCESS\r\n");
+ return SUCCESS_SUCCESS;
+}
+
+ULONG FAR PASCAL MAPISaveMail(
+ LHANDLE lhSession,
+ ULONG ulUIParam,
+ lpMapiMessage lpMessage,
+ FLAGS flFlags,
+ ULONG ulReserved,
+ LPTSTR lpszMessageID)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPISaveMail\r\n");
+ fprintf(ms_global->dfd, " MAPI_LOGON_UI is %s set\r\n",
+ flFlags & MAPI_LOGON_UI ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_LONG_MSGID is %s set\r\n",
+ flFlags & MAPI_LONG_MSGID ? "" : "NOT");
+ fprintf(ms_global->dfd, " MAPI_NEW_SESSION is %s set\r\n",
+ flFlags & MAPI_NEW_SESSION ? "" : "NOT");
+ fprintf(ms_global->dfd, " session number is %p\r\n", lhSession);
+ _flushall();
+ }
+ return MAPI_E_NOT_SUPPORTED;
+}
+
+ULONG FAR PASCAL MAPISendDocuments(
+ ULONG ulUIParam,
+ LPTSTR lpszDelimChar,
+ LPTSTR lpszFullPaths,
+ LPTSTR lpszFileNames,
+ ULONG ulReserved)
+{
+ if(MSDEBUG){
+ fprintf(ms_global->dfd, "\r\nIn MAPISendDocuments\r\n");
+ fprintf(ms_global->dfd, " lpszDelimChar: %c\r\n", *lpszDelimChar);
+ fprintf(ms_global->dfd, " lpszFullPaths: %s\r\n", lpszFullPaths);
+ fprintf(ms_global->dfd, " lpszFileNames: %s\r\n", lpszFileNames);
+ _flushall();
+ }
+
+ return send_documents(lpszFullPaths, *lpszDelimChar);
+}
generated by cgit v1.2.3-54-g00ecf (git 2.44.0) at 2024-06-30 22:32:24 +0000