git.oblomov.eu Git - wine/blob - dlls/inetcomm/imaptransport.c

   1 /*
   2  * IMAP Transport
   3  *
   4  * Copyright 2008 Hans Leidekker for CodeWeavers
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #define COBJMACROS
  22
  23 #include <stdarg.h>
  24 #include <stdio.h>
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winnt.h"
  29 #include "winuser.h"
  30 #include "objbase.h"
  31 #include "mimeole.h"
  32 #include "wine/debug.h"
  33
  34 #include "inetcomm_private.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(inetcomm);
  37
  38 typedef struct
  39 {
  40     InternetTransport InetTransport;
  41     ULONG refs;
  42 } IMAPTransport;
  43
  44 static HRESULT WINAPI IMAPTransport_QueryInterface(IIMAPTransport *iface, REFIID riid, void **ppv)
  45 {
  46     TRACE("(%s, %p)\n", debugstr_guid(riid), ppv);
  47
  48     if (IsEqualIID(riid, &IID_IUnknown) ||
  49         IsEqualIID(riid, &IID_IInternetTransport) ||
  50         IsEqualIID(riid, &IID_IIMAPTransport))
  51     {
  52         *ppv = iface;
  53         IUnknown_AddRef(iface);
  54         return S_OK;
  55     }
  56     *ppv = NULL;
  57     FIXME("no interface for %s\n", debugstr_guid(riid));
  58     return E_NOINTERFACE;
  59 }
  60
  61 static ULONG WINAPI IMAPTransport_AddRef(IIMAPTransport *iface)
  62 {
  63     IMAPTransport *This = (IMAPTransport *)iface;
  64     return InterlockedIncrement((LONG *)&This->refs);
  65 }
  66
  67 static ULONG WINAPI IMAPTransport_Release(IIMAPTransport *iface)
  68 {
  69     IMAPTransport *This = (IMAPTransport *)iface;
  70     ULONG refs = InterlockedDecrement((LONG *)&This->refs);
  71     if (!refs)
  72     {
  73         TRACE("destroying %p\n", This);
  74         if (This->InetTransport.Status != IXP_DISCONNECTED)
  75             InternetTransport_DropConnection(&This->InetTransport);
  76         if (This->InetTransport.pCallback) ITransportCallback_Release(This->InetTransport.pCallback);
  77         HeapFree(GetProcessHeap(), 0, This);
  78     }
  79     return refs;
  80 }
  81
  82 static HRESULT WINAPI IMAPTransport_GetServerInfo(IIMAPTransport *iface,
  83     LPINETSERVER pInetServer)
  84 {
  85     IMAPTransport *This = (IMAPTransport *)iface;
  86
  87     TRACE("(%p)\n", pInetServer);
  88     return InternetTransport_GetServerInfo(&This->InetTransport, pInetServer);
  89 }
  90
  91 static IXPTYPE WINAPI IMAPTransport_GetIXPType(IIMAPTransport *iface)
  92 {
  93     TRACE("()\n");
  94     return IXP_IMAP;
  95 }
  96
  97 static HRESULT WINAPI IMAPTransport_IsState(IIMAPTransport *iface,
  98     IXPISSTATE isstate)
  99 {
 100     FIXME("(%d): stub\n", isstate);
 101     return E_NOTIMPL;
 102 }
 103
 104 static HRESULT WINAPI IMAPTransport_InetServerFromAccount(
 105     IIMAPTransport *iface, IImnAccount *pAccount, LPINETSERVER pInetServer)
 106 {
 107     IMAPTransport *This = (IMAPTransport *)iface;
 108
 109     TRACE("(%p, %p)\n", pAccount, pInetServer);
 110     return InternetTransport_InetServerFromAccount(&This->InetTransport, pAccount, pInetServer);
 111 }
 112
 113 static HRESULT WINAPI IMAPTransport_Connect(IIMAPTransport *iface,
 114     LPINETSERVER pInetServer, boolean fAuthenticate, boolean fCommandLogging)
 115 {
 116     IMAPTransport *This = (IMAPTransport *)iface;
 117     HRESULT hr;
 118
 119     TRACE("(%p, %s, %s)\n", pInetServer, fAuthenticate ? "TRUE" : "FALSE", fCommandLogging ? "TRUE" : "FALSE");
 120
 121     hr = InternetTransport_Connect(&This->InetTransport, pInetServer, fAuthenticate, fCommandLogging);
 122     return hr;
 123 }
 124
 125 static HRESULT WINAPI IMAPTransport_HandsOffCallback(IIMAPTransport *iface)
 126 {
 127     IMAPTransport *This = (IMAPTransport *)iface;
 128
 129     TRACE("()\n");
 130     return InternetTransport_HandsOffCallback(&This->InetTransport);
 131 }
 132
 133 static HRESULT WINAPI IMAPTransport_Disconnect(IIMAPTransport *iface)
 134 {
 135     FIXME("(): stub\n");
 136     return E_NOTIMPL;
 137 }
 138
 139 static HRESULT WINAPI IMAPTransport_DropConnection(IIMAPTransport *iface)
 140 {
 141     IMAPTransport *This = (IMAPTransport *)iface;
 142
 143     TRACE("()\n");
 144     return InternetTransport_DropConnection(&This->InetTransport);
 145 }
 146
 147 static HRESULT WINAPI IMAPTransport_GetStatus(IIMAPTransport *iface,
 148     IXPSTATUS *pCurrentStatus)
 149 {
 150     IMAPTransport *This = (IMAPTransport *)iface;
 151
 152     TRACE("()\n");
 153     return InternetTransport_GetStatus(&This->InetTransport, pCurrentStatus);
 154 }
 155
 156 static HRESULT WINAPI IMAPTransport_InitNew(IIMAPTransport *iface,
 157     LPSTR pszLogFilePath, IIMAPCallback *pCallback)
 158 {
 159     IMAPTransport *This = (IMAPTransport *)iface;
 160
 161     TRACE("(%s, %p)\n", debugstr_a(pszLogFilePath), pCallback);
 162
 163     if (!pCallback)
 164         return E_INVALIDARG;
 165
 166     if (pszLogFilePath)
 167         FIXME("not using log file of %s, use Wine debug logging instead\n",
 168             debugstr_a(pszLogFilePath));
 169
 170     IIMAPCallback_AddRef(pCallback);
 171     This->InetTransport.pCallback = (ITransportCallback *)pCallback;
 172     This->InetTransport.fInitialised = TRUE;
 173
 174     return S_OK;
 175 }
 176
 177 static HRESULT WINAPI IMAPTransport_NewIRangeList(IIMAPTransport *iface,
 178     IRangeList **pprlNewRangeList)
 179 {
 180     FIXME("(%p): stub\n", pprlNewRangeList);
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT WINAPI IMAPTransport_Capability(IIMAPTransport *iface,
 185     DWORD *pdwCapabilityFlags)
 186 {
 187     FIXME("(%p): stub\n", pdwCapabilityFlags);
 188     return E_NOTIMPL;
 189 }
 190
 191 static HRESULT WINAPI IMAPTransport_Select(IIMAPTransport *iface,
 192     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 193 {
 194     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 195     return E_NOTIMPL;
 196 }
 197
 198 static HRESULT WINAPI IMAPTransport_Examine(IIMAPTransport *iface,
 199     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 200 {
 201     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 202     return E_NOTIMPL;
 203 }
 204
 205 static HRESULT WINAPI IMAPTransport_Create(IIMAPTransport *iface,
 206     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 207 {
 208     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 209     return E_NOTIMPL;
 210 }
 211
 212 static HRESULT WINAPI IMAPTransport_Delete(IIMAPTransport *iface,
 213     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 214 {
 215     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 216     return E_NOTIMPL;
 217 }
 218
 219 static HRESULT WINAPI IMAPTransport_Rename(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 220     IIMAPCallback *pCBHandler, LPSTR lpszMailboxName, LPSTR lpszNewMailboxName)
 221 {
 222     FIXME("(%ld, %ld, %p, %s, %s): stub\n", wParam, lParam, pCBHandler,
 223           debugstr_a(lpszMailboxName), debugstr_a(lpszNewMailboxName));
 224     return E_NOTIMPL;
 225 }
 226
 227 static HRESULT WINAPI IMAPTransport_Subscribe(IIMAPTransport *iface,
 228     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 229 {
 230     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 231     return E_NOTIMPL;
 232 }
 233
 234 static HRESULT WINAPI IMAPTransport_Unsubscribe(IIMAPTransport *iface,
 235     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName)
 236 {
 237     FIXME("(%ld, %ld, %p, %s): stub\n", wParam, lParam, pCBHandler, debugstr_a(lpszMailboxName));
 238     return E_NOTIMPL;
 239 }
 240
 241 static HRESULT WINAPI IMAPTransport_List(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 242     IIMAPCallback *pCBHandler, LPSTR lpszMailboxNameReference, LPSTR lpszMailboxNamePattern)
 243 {
 244     FIXME("(%ld, %ld, %p, %s, %s): stub\n", wParam, lParam, pCBHandler,
 245           debugstr_a(lpszMailboxNameReference), debugstr_a(lpszMailboxNamePattern));
 246     return E_NOTIMPL;
 247 }
 248
 249 static HRESULT WINAPI IMAPTransport_Lsub(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 250     IIMAPCallback *pCBHandler, LPSTR lpszMailboxNameReference, LPSTR lpszMailboxNamePattern)
 251 {
 252     FIXME("(%ld, %ld, %p, %s, %s): stub\n", wParam, lParam, pCBHandler,
 253           debugstr_a(lpszMailboxNameReference), debugstr_a(lpszMailboxNamePattern));
 254     return E_NOTIMPL;
 255 }
 256
 257 static HRESULT WINAPI IMAPTransport_Append(IIMAPTransport *iface,
 258     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszMailboxName,
 259     LPSTR lpszMessageFlags, FILETIME ftMessageDateTime, LPSTREAM lpstmMessageToSave)
 260 {
 261     FIXME("(%ld, %ld, %p, %s, %s, %p): stub\n", wParam, lParam, pCBHandler,
 262           debugstr_a(lpszMailboxName), debugstr_a(lpszMessageFlags), lpstmMessageToSave);
 263     return E_NOTIMPL;
 264 }
 265
 266 static HRESULT WINAPI IMAPTransport_Close(IIMAPTransport *iface,
 267     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler)
 268 {
 269     FIXME("(%ld, %ld, %p): stub\n", wParam, lParam, pCBHandler);
 270     return E_NOTIMPL;
 271 }
 272
 273 static HRESULT WINAPI IMAPTransport_Expunge(IIMAPTransport *iface,
 274     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler)
 275 {
 276     FIXME("(%ld, %ld, %p): stub\n", wParam, lParam, pCBHandler);
 277     return E_NOTIMPL;
 278 }
 279
 280 static HRESULT WINAPI IMAPTransport_Search(IIMAPTransport *iface,
 281     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler, LPSTR lpszSearchCriteria,
 282     boolean bReturnUIDs, IRangeList *pMsgRange, boolean bUIDRangeList)
 283 {
 284     FIXME("(%ld, %ld, %p, %s, %d, %p, %d): stub\n", wParam, lParam, pCBHandler,
 285           debugstr_a(lpszSearchCriteria), bReturnUIDs, pMsgRange, bUIDRangeList);
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI IMAPTransport_Fetch(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 290     IIMAPCallback *pCBHandler, IRangeList *pMsgRange, boolean bUIDMsgRange, LPSTR lpszFetchArgs)
 291 {
 292     FIXME("(%ld, %ld, %p, %p, %d, %s): stub\n", wParam, lParam, pCBHandler, pMsgRange,
 293           bUIDMsgRange, debugstr_a(lpszFetchArgs));
 294     return E_NOTIMPL;
 295 }
 296
 297 static HRESULT WINAPI IMAPTransport_Store(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 298     IIMAPCallback *pCBHandler, IRangeList *pMsgRange, boolean bUIDRangeList, LPSTR lpszStoreArgs)
 299 {
 300     FIXME("(%ld, %ld, %p, %p, %d, %s): stub\n", wParam, lParam, pCBHandler, pMsgRange,
 301           bUIDRangeList, debugstr_a(lpszStoreArgs));
 302     return E_NOTIMPL;
 303 }
 304
 305 static HRESULT WINAPI IMAPTransport_Copy(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 306     IIMAPCallback *pCBHandler, IRangeList *pMsgRange, boolean bUIDRangeList, LPSTR lpszMailboxName)
 307 {
 308     FIXME("(%ld, %ld, %p, %p, %d, %s): stub\n", wParam, lParam, pCBHandler, pMsgRange,
 309           bUIDRangeList, debugstr_a(lpszMailboxName));
 310     return E_NOTIMPL;
 311 }
 312
 313 static HRESULT WINAPI IMAPTransport_Noop(IIMAPTransport *iface,
 314     WPARAM wParam, LPARAM lParam, IIMAPCallback *pCBHandler)
 315 {
 316     FIXME("(%ld, %ld, %p): stub\n", wParam, lParam, pCBHandler);
 317     return E_NOTIMPL;
 318 }
 319
 320 static HRESULT WINAPI IMAPTransport_ResizeMsgSeqNumTable(IIMAPTransport *iface, DWORD dwSizeOfMbox)
 321 {
 322     FIXME("(%u): stub\n", dwSizeOfMbox);
 323     return E_NOTIMPL;
 324 }
 325
 326 static HRESULT WINAPI IMAPTransport_UpdateSeqNumToUID(IIMAPTransport *iface,
 327     DWORD dwMsgSeqNum, DWORD dwUID)
 328 {
 329     FIXME("(%u, %u): stub\n", dwMsgSeqNum, dwUID);
 330     return E_NOTIMPL;
 331 }
 332
 333 static HRESULT WINAPI IMAPTransport_RemoveSequenceNum(IIMAPTransport *iface, DWORD dwDeletedMsgSeqNum)
 334 {
 335     FIXME("(%u): stub\n", dwDeletedMsgSeqNum);
 336     return E_NOTIMPL;
 337 }
 338
 339 static HRESULT WINAPI IMAPTransport_MsgSeqNumToUID(IIMAPTransport *iface, DWORD dwMsgSeqNum,
 340     DWORD *pdwUID)
 341 {
 342     FIXME("(%u, %p): stub\n", dwMsgSeqNum, pdwUID);
 343     return E_NOTIMPL;
 344 }
 345
 346 static HRESULT WINAPI IMAPTransport_GetMsgSeqNumToUIDArray(IIMAPTransport *iface,
 347     DWORD **ppdwMsgSeqNumToUIDArray, DWORD *pdwNumberOfElements)
 348 {
 349     FIXME("(%p, %p): stub\n", ppdwMsgSeqNumToUIDArray, pdwNumberOfElements);
 350     return E_NOTIMPL;
 351 }
 352
 353 static HRESULT WINAPI IMAPTransport_GetHighestMsgSeqNum(IIMAPTransport *iface, DWORD *pdwHighestMSN)
 354 {
 355     FIXME("(%p): stub\n", pdwHighestMSN);
 356     return E_NOTIMPL;
 357 }
 358
 359 static HRESULT WINAPI IMAPTransport_ResetMsgSeqNumToUID(IIMAPTransport *iface)
 360 {
 361     FIXME("(): stub\n");
 362     return E_NOTIMPL;
 363 }
 364
 365 static HRESULT WINAPI IMAPTransport_SetDefaultCBHandler(IIMAPTransport *iface, IIMAPCallback *pCBHandler)
 366 {
 367     FIXME("(%p): stub\n", pCBHandler);
 368     return E_NOTIMPL;
 369 }
 370
 371 static HRESULT WINAPI IMAPTransport_Status(IIMAPTransport *iface, WPARAM wParam, LPARAM lParam,
 372     IIMAPCallback *pCBHandler, LPSTR pszMailboxName, LPSTR pszStatusCmdArgs)
 373 {
 374     FIXME("(%ld, %ld, %p, %s, %s): stub\n", wParam, lParam, pCBHandler,
 375           debugstr_a(pszMailboxName), debugstr_a(pszStatusCmdArgs));
 376     return E_NOTIMPL;
 377 }
 378
 379 static const IIMAPTransportVtbl IMAPTransportVtbl =
 380 {
 381     IMAPTransport_QueryInterface,
 382     IMAPTransport_AddRef,
 383     IMAPTransport_Release,
 384     IMAPTransport_GetServerInfo,
 385     IMAPTransport_GetIXPType,
 386     IMAPTransport_IsState,
 387     IMAPTransport_InetServerFromAccount,
 388     IMAPTransport_Connect,
 389     IMAPTransport_HandsOffCallback,
 390     IMAPTransport_Disconnect,
 391     IMAPTransport_DropConnection,
 392     IMAPTransport_GetStatus,
 393     IMAPTransport_InitNew,
 394     IMAPTransport_NewIRangeList,
 395     IMAPTransport_Capability,
 396     IMAPTransport_Select,
 397     IMAPTransport_Examine,
 398     IMAPTransport_Create,
 399     IMAPTransport_Delete,
 400     IMAPTransport_Rename,
 401     IMAPTransport_Subscribe,
 402     IMAPTransport_Unsubscribe,
 403     IMAPTransport_List,
 404     IMAPTransport_Lsub,
 405     IMAPTransport_Append,
 406     IMAPTransport_Close,
 407     IMAPTransport_Expunge,
 408     IMAPTransport_Search,
 409     IMAPTransport_Fetch,
 410     IMAPTransport_Store,
 411     IMAPTransport_Copy,
 412     IMAPTransport_Noop,
 413     IMAPTransport_ResizeMsgSeqNumTable,
 414     IMAPTransport_UpdateSeqNumToUID,
 415     IMAPTransport_RemoveSequenceNum,
 416     IMAPTransport_MsgSeqNumToUID,
 417     IMAPTransport_GetMsgSeqNumToUIDArray,
 418     IMAPTransport_GetHighestMsgSeqNum,
 419     IMAPTransport_ResetMsgSeqNumToUID,
 420     IMAPTransport_SetDefaultCBHandler,
 421     IMAPTransport_Status
 422 };
 423
 424 HRESULT WINAPI CreateIMAPTransport(IIMAPTransport **ppTransport)
 425 {
 426     HRESULT hr;
 427     IMAPTransport *This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
 428     if (!This)
 429         return E_OUTOFMEMORY;
 430
 431     This->InetTransport.u.vtblIMAP = &IMAPTransportVtbl;
 432     This->refs = 0;
 433     hr = InternetTransport_Init(&This->InetTransport);
 434     if (FAILED(hr))
 435     {
 436         HeapFree(GetProcessHeap(), 0, This);
 437         return hr;
 438     }
 439
 440     *ppTransport = (IIMAPTransport *)&This->InetTransport.u.vtblIMAP;
 441     IIMAPTransport_AddRef(*ppTransport);
 442
 443     return S_OK;
 444 }
 445
 446 static HRESULT WINAPI IMAPTransportCF_QueryInterface(LPCLASSFACTORY iface,
 447     REFIID riid, LPVOID *ppv)
 448 {
 449     *ppv = NULL;
 450     if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IClassFactory))
 451     {
 452         *ppv = iface;
 453         IUnknown_AddRef(iface);
 454         return S_OK;
 455     }
 456     return E_NOINTERFACE;
 457 }
 458
 459 static ULONG WINAPI IMAPTransportCF_AddRef(LPCLASSFACTORY iface)
 460 {
 461     return 2; /* non-heap based object */
 462 }
 463
 464 static ULONG WINAPI IMAPTransportCF_Release(LPCLASSFACTORY iface)
 465 {
 466     return 1; /* non-heap based object */
 467 }
 468
 469 static HRESULT WINAPI IMAPTransportCF_CreateInstance(LPCLASSFACTORY iface,
 470     LPUNKNOWN pUnk, REFIID riid, LPVOID *ppv)
 471 {
 472     HRESULT hr;
 473     IIMAPTransport *pImapTransport;
 474
 475     TRACE("(%p, %s, %p)\n", pUnk, debugstr_guid(riid), ppv);
 476
 477     *ppv = NULL;
 478
 479     if (pUnk)
 480         return CLASS_E_NOAGGREGATION;
 481
 482     hr = CreateIMAPTransport(&pImapTransport);
 483     if (FAILED(hr))
 484         return hr;
 485
 486     hr = IIMAPTransport_QueryInterface(pImapTransport, riid, ppv);
 487     IIMAPTransport_Release(pImapTransport);
 488
 489     return hr;
 490 }
 491
 492 static HRESULT WINAPI IMAPTransportCF_LockServer(LPCLASSFACTORY iface, BOOL fLock)
 493 {
 494     FIXME("(%d), stub!\n",fLock);
 495     return S_OK;
 496 }
 497
 498 static const IClassFactoryVtbl IMAPTransportCFVtbl =
 499 {
 500     IMAPTransportCF_QueryInterface,
 501     IMAPTransportCF_AddRef,
 502     IMAPTransportCF_Release,
 503     IMAPTransportCF_CreateInstance,
 504     IMAPTransportCF_LockServer
 505 };
 506 static const IClassFactoryVtbl *IMAPTransportCF = &IMAPTransportCFVtbl;
 507
 508 HRESULT IMAPTransportCF_Create(REFIID riid, LPVOID *ppv)
 509 {
 510     return IClassFactory_QueryInterface((IClassFactory *)&IMAPTransportCF, riid, ppv);
 511 }