X-Git-Url: http://git.harvie.cz/?p=mirrors%2Flibpurple-core-answerscripts.git;a=blobdiff_plain;f=answerscripts.c;h=d562e51687bf4c06a4a046047dd423298f44cda8;hp=7b5ab7c4922313466a8a5a421b8a0102132e4dd0;hb=70427fcc3bd8686c5f1ed38557c174863bad9b31;hpb=c77055a9e791c2addc0397bdaec4cc61f5695c70

diff --git a/answerscripts.c b/answerscripts.c
index 7b5ab7c..d562e51 100755
--- a/answerscripts.c
+++ b/answerscripts.c
@@ -61,11 +61,10 @@ int answerscripts_process_message_cb(answerscripts_job *job) {
 
 static void received_im_msg_cb(PurpleAccount *account, char *who, char *buffer, PurpleConversation *conv, PurpleMessageFlags flags, void *data) {
 	if (conv == NULL) conv = purple_conversation_new(PURPLE_CONV_TYPE_IM, account, who); //* A workaround to avoid skipping of the first message as a result on NULL-conv: */
+	PurpleBuddy *buddy = purple_find_buddy(account, who);
 
 	//Get message
 	message = purple_markup_strip_html(buffer);
-	//printf("\nHarvie received: %s: %s\n", who, message); //debug
-	//purple_conv_im_send(purple_conversation_get_im_data(conv), ":-*"); //debug
 
 	/* Here are prototypes of some functions interesting to implement github feature request #3
 
@@ -84,9 +83,12 @@ static void received_im_msg_cb(PurpleAccount *account, char *who, char *buffer,
 	const char * 	purple_group_get_name (PurpleGroup *group)
 	*/
 
+	//Get buddy group
+	const char *from_group = purple_group_get_name(purple_buddy_get_group(buddy));
+
 	//Get protocol ID
 	const char *protocol_id = purple_account_get_protocol_id(account);
-	if(!strncmp(protocol_id,PROTOCOL_PREFIX,strlen(PROTOCOL_PREFIX))) protocol_id += strlen(PROTOCOL_PREFIX); //trim out protocol prefix (eg.: "prpl-irc" => "irc")
+	if(!strncmp(protocol_id,PROTOCOL_PREFIX,strlen(PROTOCOL_PREFIX))) protocol_id += strlen(PROTOCOL_PREFIX); //trim out PROTOCOL_PREFIX (eg.: "prpl-irc" => "irc")
 
 	//Get status
 	PurpleStatus *status = purple_account_get_active_status(account);
@@ -107,6 +109,7 @@ static void received_im_msg_cb(PurpleAccount *account, char *who, char *buffer,
 	//Export variables to environment
 	setenv(ENV_PREFIX "MSG", message, 1);
 	setenv(ENV_PREFIX "FROM", who, 1);
+	setenv(ENV_PREFIX "FROM_GROUP", from_group, 1);
 	setenv(ENV_PREFIX "PROTOCOL", protocol_id, 1);
 	setenv(ENV_PREFIX "STATUS", status_id, 1);
 	setenv(ENV_PREFIX "STATUS_MSG", status_msg, 1);