AssocMgr reverted to rev333

git-svn-id: http://svn.miranda-ng.org/main/trunk@338 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 869 insertions, 0 deletions

diff --git a/plugins/AssocMgr/test.c b/plugins/AssocMgr/test.c
new file mode 100644
index 0000000000..73112af5a5
--- /dev/null
+++ b/plugins/AssocMgr/test.c
@@ -0,0 +1,869 @@
+/*

+

+'File Association Manager'-Plugin for Miranda IM

+

+Copyright (C) 2005-2007 H. Herkenrath

+

+This program is free software; you can redistribute it and/or

+modify it under the terms of the GNU General Public License

+as published by the Free Software Foundation; either version 2

+of the License, or (at your option) any later version.

+

+This program is distributed in the hope that it will be useful,

+but WITHOUT ANY WARRANTY; without even the implied warranty of

+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+GNU General Public License for more details.

+

+You should have received a copy of the GNU General Public License

+along with this program (AssocMgr-License.txt); if not, write to the Free Software

+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

+*/

+

+// -- Includes

+#include "common.h"

+

+/*

+#define AIM_SUPPORT_TEST

+#define ICQ_SUPPORT_TEST

+#define YAHOO_SUPPORT_TEST

+#define MSN_SUPPORT_TEST

+#define GG_SUPPORT_TEST

+#define JABBER_SUPPORT_TEST

+*/

+

+// -----------------------------------------

+

+extern HINSTANCE hInst;

+

+/* a copy of those in m_assocmgr.h, as we did not #include those helpers */

+__inline static int AssocMgr_AddNewFileTypeT(const char *ext,const char *mime,const TCHAR *desc,const TCHAR *verb,HINSTANCE hinst,UINT iconid,const char *service,DWORD flags)

+{

+	FILETYPEDESC ftd;

+	ftd.cbSize=sizeof(FILETYPEDESC);

+	ftd.pszFileExt=ext;

+	ftd.pszMimeType=mime;

+	ftd.ptszDescription=desc;

+	ftd.hInstance=hinst;

+	ftd.nIconResID=iconid;

+	ftd.ptszVerbDesc=verb;

+	ftd.pszService=service;

+	ftd.flags=flags|FTDF_TCHAR;

+	return CallService(MS_ASSOCMGR_ADDNEWFILETYPE,0,(LPARAM)&ftd);

+}

+

+static int __inline AssocMgr_AddNewUrlType(const char *prefix,const char *desc,HINSTANCE hinst,UINT iconid,const char *service,DWORD flags)

+{

+	URLTYPEDESC utd;

+	utd.cbSize=sizeof(URLTYPEDESC);

+	utd.pszProtoPrefix=prefix;

+	utd.pszDescription=desc;

+	utd.hInstance=hinst;

+	utd.nIconResID=iconid;

+	utd.pszService=service;

+	utd.flags=flags&~UTDF_UNICODE;

+	return CallService(MS_ASSOCMGR_ADDNEWURLTYPE,0,(LPARAM)&utd);

+}

+

+// -----------------------------------------

+

+#ifdef AIM_SUPPORT_TEST

+

+#define AIM_PROTOCOL_NAME  "AIM"

+#define IDI_AOL  28

+#define MOD_KEY_CL  "CList"

+#define AIM_KEY_NL  "NotOnList"

+struct oscar_data {	HINSTANCE hInstance; } static conn;

+static __inline HANDLE find_contact(const char *nick) { nick; return NULL; }

+static __inline HANDLE add_contact(const char *nick) { nick; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+static __inline void aim_gchat_joinrequest(const char *room, int exchange) { room; exchange; MessageBoxA(NULL,"Join group chat!",room,MB_OK); return; }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceParseLink;

+

+static int ServiceParseAimLink(WPARAM wParam,LPARAM lParam)

+{

+    char *arg=(char*)lParam;

+	UNREFERENCED_PARAMETER(wParam);

+    if(arg==NULL) return 1; /* sanity check */

+	/* skip leading prefix */

+	arg=strchr(arg,':');

+	if(arg==NULL) return 1; /* parse failed */

+	for (++arg;*arg=='/';++arg);

+	/*

+		add user:      aim:addbuddy?screenname=NICK&groupname=GROUP

+		send message:  aim:goim?screenname=NICK&message=MSG

+		open chatroom: aim:gochat?roomname=ROOM&exchange=NUM

+	*/

+    /* add a contact to the list */

+    if (!_strnicmp(arg,"addbuddy?",9)) {

+        char *tok,*sn=NULL,*group=NULL;

+        ADDCONTACTSTRUCT acs;

+        PROTOSEARCHRESULT psr;

+		if (*(arg+=9)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"screenname=",11) && *(tok+11)!=0)

+                sn=Netlib_UrlDecode(tok+11);

+            if (!_strnicmp(tok,"groupname=",10) && *(tok+10)!=0)

+                group=Netlib_UrlDecode(tok+10);  /* group is currently ignored */

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(sn==NULL) return 1; /* parse failed */

+        if(find_contact(sn)==NULL) { /* does not yet check if sn is current user */

+            acs.handleType=HANDLE_SEARCHRESULT;

+            acs.szProto=AIM_PROTOCOL_NAME;

+            acs.psr=&psr;

+            ZeroMemory(&psr,sizeof(PROTOSEARCHRESULT));

+            psr.cbSize=sizeof(PROTOSEARCHRESULT);

+            psr.nick=sn;

+            CallService(MS_ADDCONTACT_SHOW,(WPARAM)NULL,(LPARAM)&acs);

+        }

+		return 0;

+    }

+    /* send a message to a contact */

+    else if (!_strnicmp(arg,"goim?",5)) {

+        char *tok,*sn=NULL,*msg=NULL;

+        HANDLE hContact;

+        if (*(arg+=5)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"screenname=",11) && *(tok+11)!=0)

+                sn=Netlib_UrlDecode(tok+11);

+            if (!_strnicmp(tok,"message=",8) && *(tok+8)!=0)

+                msg=Netlib_UrlDecode(tok+8);

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(sn==NULL) return 1; /* parse failed */

+		if(ServiceExists(MS_MSG_SENDMESSAGE)) {

+            hContact=find_contact(sn);

+            if(hContact==NULL) {

+                hContact=add_contact(sn); /* does not yet check if sn is current user */

+				if(hContact!=NULL)

+	                DBWriteContactSettingByte(hContact,MOD_KEY_CL,AIM_KEY_NL,1);

+            }

+            if(hContact!=NULL)

+                CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)msg);

+		}

+		return 0;

+    }

+    /* open a chatroom */

+    else if (!_strnicmp(arg,"gochat?",7)) {

+        char *tok,*rm=NULL;

+        int exchange=0;

+        if (*(arg+=7)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"roomname=",9) && *(tok+9)!=0)

+                rm=Netlib_UrlDecode(tok+9);

+            if (!_strnicmp(tok,"exchange=",9))

+                exchange=atoi(Netlib_UrlDecode(tok+9)); 

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(rm==NULL || exchange<=0) return 1; /* parse failed */

+        aim_gchat_joinrequest(rm,exchange);

+		return 0;

+    }

+    return 1; /* parse failed */

+}

+

+static int AimLinksModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+    char service_name[MAXMODULELABELLENGTH];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+    mir_snprintf(service_name,sizeof(service_name),"%s%s",AIM_PROTOCOL_NAME,"ParseAimLink");

+	/* or "AOL Instant Messenger Links" */

+    AssocMgr_AddNewUrlType("aim:",Translate("AIM Link Protocol"),conn.hInstance,IDI_AOL,service_name,0);

+    return 0;

+}

+

+void aim_links_init()

+{

+    char service_name[MAXMODULELABELLENGTH];

+    //LOG(LOG_DEBUG,"Links: init");

+    mir_snprintf(service_name,sizeof(service_name),"%s%s",AIM_PROTOCOL_NAME,"ParseAimLink");

+    hServiceParseLink=CreateServiceFunction(service_name,ServiceParseAimLink);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,AimLinksModulesLoaded);

+}

+

+void aim_links_destroy()

+{

+    //LOG(LOG_DEBUG,"Links: destroy");

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceParseLink);

+}

+#endif

+

+// -----------------------------------------

+

+#ifdef ICQ_SUPPORT_TEST

+

+#define gpszICQProtoName  "ICQ"

+#define IDI_ICQ  101

+#define hInst  GetModuleHandleA("ICQ")

+static __inline HANDLE HContactFromUIN(DWORD dwUIN,int *Added) { dwUIN; Added; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+static __inline HANDLE ICQFindFirstContact(void) { return NULL; }

+static __inline HANDLE ICQFindNextContact(HANDLE hContact) { hContact; return NULL; }

+static __inline void AddToCache(HANDLE hContact,DWORD dwUin) { hContact; dwUin; }

+static __inline DWORD ICQGetContactSettingUIN(HANDLE hContact) { hContact; return 0; }

+static __inline HANDLE HandleFromCacheByUin(DWORD dwUin) { dwUin; return NULL; }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+typedef struct {

+  PROTOSEARCHRESULT hdr;

+  DWORD uin;

+  BYTE auth;

+  char* uid;

+} ICQSEARCHRESULT;

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceOpenFile;

+

+static void TrimString(char *str)

+{

+	int len,start;

+	len=lstrlenA(str);

+	while(str[0]!='\0' && (unsigned char)str[len-1]<=' ') str[--len]=0;

+	for(start=0;str[start] && (unsigned char)str[start]<=' ';++start);

+	MoveMemory(str,str+start,len-start+1);

+}

+

+static BOOL IsEmpty(const char *str)

+{

+	int i;

+	for(i=0;str[i]!='\0';i++)

+		if(str[i]!=' ' && str[i]!='\r' && str[i]!='\n')

+			return FALSE;

+	return TRUE;

+}

+

+#define ICQFILE_MESSAGEUSER  1

+#define ICQFILE_ADDUSER      2

+typedef struct {

+	int type;

+	char uin[64];

+	char email[128];

+	char nick[128];

+	char firstName[64];

+	char lastName[64];

+} ICQFILEINFO;

+

+static HANDLE IsHContactFromUIN(DWORD uin)

+{

+	HANDLE hContact;

+	DWORD dwUin;

+	hContact=HandleFromCacheByUin(uin);

+	if(hContact!=NULL) return hContact;

+	hContact=ICQFindFirstContact();

+	while(hContact!=NULL) {

+		dwUin=ICQGetContactSettingUIN(hContact);

+		if(dwUin==uin) {

+			AddToCache(hContact,dwUin);

+			return hContact;

+		}

+		hContact=ICQFindNextContact(hContact);

+	}

+	return NULL;

+}

+

+static void AddIcqUser(ICQFILEINFO *info)

+{

+	ADDCONTACTSTRUCT acs;

+	ICQSEARCHRESULT psr;

+	DWORD uin;

+	/* check that uin does not belong to current user */

+	uin=atoi(info->uin);

+	if(uin!=0 && uin!=ICQGetContactSettingUIN(NULL)) {

+		/* not yet present? */

+		if(IsHContactFromUIN(uin)==NULL) {

+			acs.handleType=HANDLE_SEARCHRESULT;

+			acs.szProto=gpszICQProtoName;

+			acs.psr=(PROTOSEARCHRESULT*)&psr;

+			ZeroMemory(&psr,sizeof(ICQSEARCHRESULT));

+			psr.hdr.cbSize=sizeof(ICQSEARCHRESULT);

+			if(info->nick[0]) psr.hdr.nick=info->nick;

+			else psr.hdr.nick=info->uin;

+			if(info->email[0]) psr.hdr.email=info->email;

+			if(info->firstName[0]) psr.hdr.firstName=info->firstName;

+			if(info->lastName[0]) psr.hdr.lastName=info->lastName;

+			psr.uin=uin;

+			psr.auth=1; /* authentication needed flag */

+			psr.uid=NULL; /* icq contact */

+			CallService(MS_ADDCONTACT_SHOW,(WPARAM)NULL,(LPARAM)&acs);

+		}

+	}

+}

+

+static void MessageIcqUser(ICQFILEINFO *info)

+{

+	HANDLE hContact;

+	if(ServiceExists(MS_MSG_SENDMESSAGE)) {

+		hContact=HContactFromUIN(atoi(info->uin),NULL); /* adds the contact if needed */

+		if(hContact!=NULL)

+			CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)NULL);

+	}

+}

+

+static int IcqOpenFile(WPARAM wParam,LPARAM lParam)

+{

+    TCHAR *pszFile=(TCHAR*)lParam; /* TCHAR is specified on AssocMgr_AddNewFileTypeT() */

+	FILE *fp;

+	ICQFILEINFO info;

+	char line[4096],*sep;

+	UNREFERENCED_PARAMETER(wParam);

+	/*

+		send message:

+		[ICQ Message User]

+		UIN=1234567

+

+		add user:

+		(all the .uin files I've seen only have UIN= in them)

+		[ICQ User]

+		UIN=1234567

+		Email=

+		NickName=

+		FirstName=

+		LastName=

+	*/

+	if(pszFile==NULL) return 1; /* sanity check */

+	fp=_tfopen(pszFile,_T("rt"));

+	if(fp==NULL) return 1; /* open failed */

+	info.type=0;

+	while(!feof(fp)) {

+		if(fgets(line,sizeof(line),fp)==NULL) break;

+		TrimString(line);

+		if(IsEmpty(line)) continue;

+		if(line[0]=='[') {

+			ZeroMemory(&info,sizeof(info));

+			if (!lstrcmpiA(line,"[ICQ Message User]"))

+				info.type=ICQFILE_MESSAGEUSER;

+			else if (!lstrcmpiA(line,"[ICQ User]"))

+				info.type=ICQFILE_ADDUSER;

+			continue;

+		}

+		if(info.type==0) continue;

+		sep=strchr(line,'=');

+		if(sep==NULL) { info.type=0; break; } /* format error */

+		*(sep++)='\0';

+		if (!lstrcmpA("UIN",line)) lstrcpynA(info.uin,sep,sizeof(info.uin)); /* buffer safe */

+		else if (!lstrcmpA("Email",line)) lstrcpynA(info.email,sep,sizeof(info.email)); /* buffer safe */

+		else if (!lstrcmpA("NickName",line)) lstrcpynA(info.nick,sep,sizeof(info.nick)); /* buffer safe */

+		else if (!lstrcmpA("FirstName",line)) lstrcpynA(info.firstName,sep,sizeof(info.firstName)); /* buffer safe */

+		else if (!lstrcmpA("LastName",line)) lstrcpynA(info.lastName,sep,sizeof(info.lastName)); /* buffer safe */

+	}

+	fclose(fp);

+	switch(info.type) {

+		case ICQFILE_MESSAGEUSER: MessageIcqUser(&info); return 0;

+		case ICQFILE_ADDUSER:     AddIcqUser(&info); return 0;

+		default: return 1; /* open failed */

+	}

+}

+

+static int IcqFilesModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+	char szService[MAX_PATH+32];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+	strcat(strcpy(szService,gpszICQProtoName),"OpenFile");

+	/* .icq files are not used, just by the ProtoLink plugin */

+    //AssocMgr_AddNewFileTypeT(".icq","application/x-icq",TranslateT("ICQ Link Shortcut"),TranslateT("&Add to Contact List..."),hInst,IDI_ICQ,szService,FTDF_BROWSERAUTOOPEN|FTDF_ISTEXT|FTDF_ISSHORTCUT|FTDF_DEFAULTDISABLED);

+    AssocMgr_AddNewFileTypeT(".uin","application/x-icq",TranslateT("ICQ Link Shortcut"),TranslateT("&Add to Contact List..."),hInst,IDI_ICQ,szService,FTDF_BROWSERAUTOOPEN|FTDF_ISTEXT|FTDF_ISSHORTCUT);

+    return 0;

+}

+

+void InitIcqFiles(void)

+{

+	char szService[MAX_PATH+32];

+	strcat(strcpy(szService,gpszICQProtoName),"OpenFile");

+    hServiceOpenFile=CreateServiceFunction(szService,IcqOpenFile);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,IcqFilesModulesLoaded);

+}

+

+void UninitIcqFiles(void)

+{

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceOpenFile);

+}

+

+#undef hInst

+#endif

+

+// -----------------------------------------

+

+#ifdef YAHOO_SUPPORT_TEST

+

+#define yahooProtocolName "YAHOO"

+#define IDI_YAHOO  10101

+#define hinstance  GetModuleHandleA("YAHOO")

+static __inline HANDLE getbuddyH(const char *yahoo_id) { yahoo_id; return NULL; }

+static __inline HANDLE add_buddy(const char *yahoo_id,const char *yahoo_name,DWORD flags) { yahoo_id; yahoo_name; flags; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceParseYmsgrLink;

+

+static int ServiceParseYmsgrLink(WPARAM wParam,LPARAM lParam)

+{

+    char *arg=(char*)lParam;

+	UNREFERENCED_PARAMETER(wParam);

+    if(arg==NULL) return 1; /* sanity check */

+	/* 

+		add user:       ymsgr:addfriend?ID

+		send message:   ymsgr:sendim?ID&m=MESSAGE

+		add chatroom:   ymsgr:chat?ROOM

+	*/

+	/* skip leading prefix */

+	arg=strchr(arg,':');

+	if(arg==NULL) return 1; /* parse failed */

+	for (++arg;*arg=='/';++arg);

+    /* add a contact to the list */

+    if (!_strnicmp(arg,"addfriend?",10)) {

+        char *tok,*id=NULL;

+        ADDCONTACTSTRUCT acs;

+        PROTOSEARCHRESULT psr;

+        if (*(arg+=10)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        if(tok!=NULL) id=Netlib_UrlDecode(tok);

+        if(id==NULL || *id==0) return 1; /* parse failed */

+        if(getbuddyH(id)==NULL) { /* does not yet check if id is current user */

+            acs.handleType=HANDLE_SEARCHRESULT;

+            acs.szProto=yahooProtocolName;

+            acs.psr=&psr;

+            ZeroMemory(&psr,sizeof(PROTOSEARCHRESULT));

+            psr.cbSize=sizeof(PROTOSEARCHRESULT);

+            psr.nick=id;

+            CallService(MS_ADDCONTACT_SHOW,(WPARAM)NULL,(LPARAM)&acs);

+        }

+		return 0;

+    }

+    /* send a message to a contact */

+    else if (!_strnicmp(arg,"sendim?",7)) {

+        char *tok,*id=NULL,*msg=NULL;

+        HANDLE hContact;

+        if (*(arg+=7)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        if(tok!=NULL) id=tok;

+		while(tok!=NULL) {

+            if (!_strnicmp(tok,"m=",2) && *(tok+2)!=0)

+                msg=Netlib_UrlDecode(tok+2);

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(id==NULL || *id==0) return 1; /* parse failed */

+		if(ServiceExists(MS_MSG_SENDMESSAGE)) { /* does not yet check if sn is current user */

+	        hContact=add_buddy(id,id,PALF_TEMPORARY); /* ensure contact is on list */

+		    if(hContact!=NULL)

+			    CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)msg);

+		}

+		return 0;

+	}

+    /* open a chatroom */

+    else if (!_strnicmp(arg,"chat?",5)) {

+        char *tok,*rm=NULL;

+        if (*(arg+=5)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        if(tok!=NULL) rm=Netlib_UrlDecode(tok);

+        if(rm==NULL) return 1; /* parse failed */

+        /* not yet implemented (rm contains name of chatroom)*/

+		return 0;

+    }

+    return 1; /* parse failed */

+}

+

+static int YmsgrLinksModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+    char szService[MAXMODULELABELLENGTH];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+    mir_snprintf(szService,sizeof(szService),"%s%s",yahooProtocolName,"ParseYmsgrLink");

+    AssocMgr_AddNewUrlType("ymsgr:",Translate("Yahoo Link Protocol"),hinstance,IDI_YAHOO,szService,0);

+    return 0;

+}

+

+void YmsgrLinksInit(void)

+{

+    char szService[MAXMODULELABELLENGTH];

+    mir_snprintf(szService,sizeof(szService),"%s%s",yahooProtocolName,"ParseYmsgrLink");

+	hServiceParseYmsgrLink=CreateServiceFunction(szService,ServiceParseYmsgrLink);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,YmsgrLinksModulesLoaded);

+}

+

+void YmsgrLinksUninit(void)

+{

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceParseYmsgrLink);

+}

+

+#undef hinstance

+#endif

+

+// -----------------------------------------

+

+#ifdef MSN_SUPPORT_TEST

+

+#define msnProtocolName "MSN"

+#define IDI_MSN  101

+#define hInst  GetModuleHandleA("MSN")

+static __inline HANDLE MSN_HContactFromEmailT(const char *msnEmail) { msnEmail; return NULL; }

+static __inline HANDLE MSN_HContactFromEmail(const char *msnEmail,const char *msnNick,int addIfNeeded,int temporary) { msnEmail; msnNick; addIfNeeded; temporary; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceParseMsnimLink;

+

+static int ServiceParseMsnimLink(WPARAM wParam,LPARAM lParam)

+{

+    char *arg=(char*)lParam;

+	UNREFERENCED_PARAMETER(wParam);

+    if(arg==NULL) return 1; /* sanity check */

+	/* 

+		add user:      msnim:add?contact=netpassport@emailaddress.com

+		send message:  msnim:chat?contact=netpassport@emailaddress.com

+		voice chat:    msnim:voice?contact=netpassport@emailaddress.com

+		video chat:    msnim:video?contact=netpassport@emailaddress.com

+	*/

+	/* skip leading prefix */

+	arg=strchr(arg,':');

+	if(arg==NULL) return 1; /* parse failed */

+	for (++arg;*arg=='/';++arg);

+    /* add a contact to the list */

+    if (!_strnicmp(arg,"add?",4)) {

+        char *tok,*email=NULL;

+        ADDCONTACTSTRUCT acs;

+        PROTOSEARCHRESULT psr;

+        if (*(arg+=4)==0) return 1; /* parse failed */

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"contact=",8) && *(tok+11)!=0)

+                email=Netlib_UrlDecode(tok+11);

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(email==NULL || *email==0) return 1; /* parse failed */

+        if(MSN_HContactFromEmailT(email)==NULL) { /* does not yet check if email is current user */

+            acs.handleType=HANDLE_SEARCHRESULT;

+            acs.szProto=AIM_PROTOCOL_NAME;

+            acs.psr=&psr;

+            ZeroMemory(&psr,sizeof(PROTOSEARCHRESULT));

+            psr.cbSize=sizeof(PROTOSEARCHRESULT);

+            psr.nick=email;

+			psr.email=email;

+            CallService(MS_ADDCONTACT_SHOW,(WPARAM)NULL,(LPARAM)&acs);

+        }

+		return 0;

+    }

+    /* send a message to a contact */

+	/* "voice" and "video" not yet implemented, perform same action as "chat" */

+    else if (!_strnicmp(arg,"chat?",5) || !_strnicmp(arg,"voice?",6) || !_strnicmp(arg,"video?",6)) {

+        char *tok,*email=NULL;

+        HANDLE hContact;

+        if (*(arg+=5)==0) return 1; /* parse failed */

+		if (*arg=='?' && *(++arg)==0) return 1; /* for "voice?" and "video?" */

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"contact=",8) && *(tok+11)!=0)

+                email=Netlib_UrlDecode(tok+11);

+            tok=strtok(NULL,"&"); /* next token */

+        }

+        if(email==NULL || *email==0) return 1; /* parse failed */

+		if(ServiceExists(MS_MSG_SENDMESSAGE)) {

+            hContact=MSN_HContactFromEmail(email,email,TRUE,TRUE); /* does not yet check if email is current user */

+            if(hContact!=NULL)

+                CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)NULL);

+		}

+		return 0;

+    }

+    return 1; /* parse failed */

+}

+

+static int MsnLinksModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+    char szService[MAXMODULELABELLENGTH];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+    mir_snprintf(szService,sizeof(szService),"%s%s",msnProtocolName,"ParseMsnimLink");

+    AssocMgr_AddNewUrlType("msnim:",Translate("MSN Link Protocol"),hInst,IDI_MSN,szService,0);

+    return 0;

+}

+

+int LoadMsnLinks(void)

+{

+    char szService[MAXMODULELABELLENGTH];

+    mir_snprintf(szService,sizeof(szService),"%s%s",msnProtocolName,"ParseMsnimLink");

+	hServiceParseMsnimLink=CreateServiceFunction(szService,ServiceParseMsnimLink);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,MsnLinksModulesLoaded);

+	return 0;

+}

+

+void UnloadMsnLinks(void)

+{

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceParseMsnimLink);

+}

+

+#undef hInst

+#endif

+

+// -----------------------------------------

+

+#ifdef GG_SUPPORT_TEST

+

+#define GG_PROTO  "GG"

+#define IDI_GG  251

+#define hInstance  GetModuleHandleA("GG")

+typedef DWORD uin_t;

+static __inline HANDLE gg_getcontact(uin_t uin,int create,int inlist,char *szNick) { uin; create; inlist; szNick; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceParseLink;

+

+static int ServiceParseLink(WPARAM wParam,LPARAM lParam)

+{

+    char *arg=(char*)lParam;

+	UNREFERENCED_PARAMETER(wParam);

+    if(arg==NULL) return 1; /* sanity check */

+	/* send message:  gg:UID */

+	/* skip leading prefix */

+	arg=strchr(arg,':');

+	if(arg==NULL) return 1; /* parse failed */

+	for (++arg;*arg=='/';++arg);

+    /* send a message to a contact */

+	{	HANDLE hContact;

+		if(ServiceExists(MS_MSG_SENDMESSAGE)) {

+            hContact=gg_getcontact(atoi(arg),TRUE,FALSE,arg);

+            if(hContact!=NULL)

+                CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)NULL);

+		}

+    }

+    return 0;

+}

+

+static int LinksModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+    char szService[MAXMODULELABELLENGTH];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+    mir_snprintf(szService,sizeof(szService),"%s%s",GG_PROTO,"ParseMsnimLink");

+    AssocMgr_AddNewUrlType("gg:",Translate("Gadu-Gadu Link Protocol"),hInstance,IDI_GG,szService,0);

+    return 0;

+}

+

+void gg_registerlinks(void)

+{

+    char szService[MAXMODULELABELLENGTH];

+    mir_snprintf(szService,sizeof(szService),"%s%s",GG_PROTO,"ParseLink");

+	hServiceParseLink=CreateServiceFunction(szService,ServiceParseLink);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,LinksModulesLoaded);

+}

+

+void gg_unregisterlinks(void)

+{

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceParseLink);

+}

+

+#undef hInstance

+#endif

+

+// -----------------------------------------

+

+#ifdef JABBER_SUPPORT_TEST

+

+#define jabberProtoName  "JABBER"

+#define IDI_JABBER  102

+#define hInst  GetModuleHandleA("JABBER")

+static __inline HANDLE JabberHContactFromJID(const char *jid) { jid; return NULL; }

+static __inline HANDLE JabberDBCreateContact(char *jid,char *nick,BOOL temporary,BOOL stripResource) { jid; nick; temporary; stripResource; return (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); }

+#include <m_protosvc.h>

+#include <m_addcontact.h>

+#include <m_message.h>

+

+#include "m_assocmgr.h"

+static HANDLE hHookModulesLoaded;

+static HANDLE hServiceParseXmppURI;

+

+static int ServiceParseXmppURI(WPARAM wParam,LPARAM lParam)

+{

+    char *arg=(char*)lParam;

+	char *jid;

+	UNREFERENCED_PARAMETER(wParam);

+    if(arg==NULL) return 1; /* sanity check */

+	/* skip leading prefix */

+	arg=strchr(arg,':');

+	if(arg==NULL) return 1; /* parse failed */

+	for (++arg;*arg=='/';++arg);

+	/*

+		complete specification: http://www.xmpp.org/extensions/xep-0147.html

+		send message:           xmpp:JID?message;subject=TEXT&body=TEXT

+		add user:               xmpp:JID?roster

+		remove user:            xmpp:JID?remove

+	*/

+	/* user id */

+	arg=strchr(jid=arg,'?');

+	if(arg==NULL) arg+=lstrlenA(arg); /* points to terminating nul */

+	else *(arg++)=0;

+	if (*jid==0) return 1; /* parse failed */

+    /* send a message to a contact */

+    else if (*arg==0 || (!_strnicmp(arg,"message",7) && (*(arg+7)==';' || *(arg+7)==0))) {

+        char *tok,*subj=NULL,*body=NULL;

+        HANDLE hContact;

+		char msg[1024];

+		arg+=7;

+		while(*arg==';') ++arg;

+        tok=strtok(arg,"&"); /* first token */

+        while(tok!=NULL) {

+            if (!_strnicmp(tok,"subject=",8) && *(tok+8)!=0)

+                subj=Netlib_UrlDecode(tok+8);

+            if (!_strnicmp(tok,"body=",5) && *(tok+5)!=0)

+                body=Netlib_UrlDecode(tok+5);

+            tok=strtok(NULL,"&"); /* next token */

+        }

+		if(ServiceExists(MS_MSG_SENDMESSAGE)) {

+            hContact=JabberDBCreateContact(jid,jid,TRUE,FALSE);

+			if(subj!=NULL && body!=NULL) {

+				mir_snprintf(msg,sizeof(msg),"%.128s %s",subj,body);

+				body=msg;

+			} else if(body==NULL) body=subj;

+            if(hContact!=NULL)

+                CallService(MS_MSG_SENDMESSAGE,(WPARAM)hContact,(LPARAM)body);

+		}

+		return 0;

+    }

+    /* add user to contact list */

+    else if (!_strnicmp(arg,"roster",6) && (*(arg+6)==';' || *(arg+6)==0)) {

+        ADDCONTACTSTRUCT acs;

+        PROTOSEARCHRESULT psr;

+        if(JabberHContactFromJID(jid)==NULL) { /* does not yet check if jid belongs to current user */

+            acs.handleType=HANDLE_SEARCHRESULT;

+            acs.szProto=jabberProtoName;

+            acs.psr=&psr;

+            ZeroMemory(&psr,sizeof(PROTOSEARCHRESULT));

+            psr.cbSize=sizeof(PROTOSEARCHRESULT);

+            psr.nick=jid;

+            CallService(MS_ADDCONTACT_SHOW,(WPARAM)NULL,(LPARAM)&acs);

+        }

+		return 0;

+    }

+	/* remove user from contact list */

+    else if (!_strnicmp(arg,"remove",6) && (*(arg+6)==';' || *(arg+6)==0)) {

+		HANDLE hContact;

+		hContact=JabberHContactFromJID(jid);

+        if(hContact==NULL) /* not yet implemented: show standard miranda dialog here */

+			CallService(MS_DB_CONTACT_DELETE,(WPARAM)hContact,0);

+		return 0;

+    }

+    /* add user subscription */

+    else if (!_strnicmp(arg,"subscribe",9) && (*(arg+9)==';' || *(arg+9)==0)) {

+		/* not yet implemented */

+		return 0;

+    }

+	/* remove user subscription */

+    else if (!_strnicmp(arg,"unsubscribe",11) && (*(arg+11)==';' || *(arg+11)==0)) {

+		/* not yet implemented */

+		return 0;

+    }

+    return 1; /* parse failed */

+}

+

+static int JabberLinksModulesLoaded(WPARAM wParam,LPARAM lParam)

+{

+    char szService[MAXMODULELABELLENGTH];

+	UNREFERENCED_PARAMETER(wParam);

+	UNREFERENCED_PARAMETER(lParam);

+    mir_snprintf(szService,sizeof(szService),"%s%s",jabberProtoName,"ParseXmppURI");

+    AssocMgr_AddNewUrlType("xmpp:",Translate("Jabber Link Protocol"),hInst,IDI_JABBER,szService,0);

+    return 0;

+}

+

+int JabberLinksInit()

+{

+    char szService[MAXMODULELABELLENGTH];

+    mir_snprintf(szService,sizeof(szService),"%s%s",jabberProtoName,"ParseXmppURI");

+	hServiceParseXmppURI=CreateServiceFunction(szService,ServiceParseXmppURI);

+    hHookModulesLoaded=HookEvent(ME_SYSTEM_MODULESLOADED,JabberLinksModulesLoaded);

+	return 0;

+}

+

+int JabberLinksUninit()

+{

+    UnhookEvent(hHookModulesLoaded);

+    DestroyServiceFunction(hServiceParseXmppURI);

+	return 0;

+}

+

+#undef hInst

+#endif

+

+// -----------------------------------------

+

+/*

+static HANDLE hServiceTest;

+static int TestingService(WPARAM wParam,LPARAM lParam)

+{

+	UNREFERENCED_PARAMETER(wParam);

+	MessageBoxEx(NULL,(TCHAR*)lParam,_T("Testing Service"),MB_OK|MB_SETFOREGROUND|MB_TOPMOST|MB_TASKMODAL,LANGIDFROMLCID((LCID)CallService(MS_LANGPACK_GETLOCALE,0,0)));

+	return 0;

+}

+*/

+

+void InitTest(void)

+{

+	#ifdef AIM_SUPPORT_TEST

+	conn.hInstance=GetModuleHandleA("AIM");

+	aim_links_init();

+	#endif

+	#ifdef ICQ_SUPPORT_TEST

+	InitIcqFiles();

+	#endif

+	#ifdef YAHOO_SUPPORT_TEST

+	YmsgrLinksInit();

+	#endif

+	#ifdef MSN_SUPPORT_TEST

+	LoadMsnLinks();

+	#endif

+	#ifdef GG_SUPPORT_TEST

+	gg_registerlinks();

+	#endif

+	#ifdef JABBER_SUPPORT_TEST

+	JabberLinksInit();

+	#endif

+	//hServiceTest=CreateServiceFunction("AssocMgr/TestingService",TestingService);

+	//AssocMgr_AddNewFileTypeT(".mir",NULL,TranslateT("Miranda Installer Package (demo purpose)"),TranslateT("&Install"),hInst,IDI_MIRANDAFILE,"AssocMgr/TestingService",0);

+}

+

+void UninitTest(void)

+{

+	#ifdef AIM_SUPPORT_TEST

+	aim_links_destroy();

+	#endif

+	#ifdef ICQ_SUPPORT_TEST

+	UninitIcqFiles();

+	#endif

+	#ifdef YAHOO_SUPPORT_TEST

+	YmsgrLinksUninit();

+	#endif

+	#ifdef MSN_SUPPORT_TEST

+	UnloadMsnLinks();

+	#endif

+	#ifdef GG_SUPPORT_TEST

+	gg_unregisterlinks();

+	#endif

+	#ifdef JABBER_SUPPORT_TEST

+	JabberLinksUninit();

+	#endif

+	//DestroyServiceFunction(hServiceTest);

+}