static void received_chat_msg_cb(PurpleAccount *account, char *sender, char *buffer, PurpleConversation *chat, PurpleMessageFlags flags, void *data) { gboolean on_focus; char *message, *notification; int len; DEBUG_MSG("received_chat_msg_cb\n"); g_return_if_fail( is_allowed(account) ); on_focus = purple_prefs_get_bool("/plugins/core/pidgin-gntp/on_focus"); if(chat != NULL && !on_focus && chat->ui_ops->has_focus(chat)) return; // copy string to temporary variable) message = malloc(s_strlen(buffer)+1); strcpy(message, buffer); special_entries(message); strip_tags(message); len = s_strlen(sender) + s_strlen(message) + 3; // message notification = malloc( len ); g_snprintf(notification, len, "%s: %s", sender, message); gntp_notify("chat-msg-received", NULL, "Chat Message", notification, NULL); free(message); free(notification); }
static void received_im_msg_cb(PurpleAccount *account, char *sender, char *buffer, PurpleConversation *conv, PurpleMessageFlags flags, void *data) { gboolean on_focus; char *message, *notification, *buddy_nick, *iconpath; PurpleBuddy* buddy; PurpleBuddyIcon* icon; int len; DEBUG_MSG("received_im_msg_cb\n"); g_return_if_fail( is_allowed(account) ); on_focus = purple_prefs_get_bool("/plugins/core/pidgin-gntp/on_focus"); if(conv != NULL && !on_focus && conv->ui_ops->has_focus(conv)) return; // copy string to temporary variable) message = malloc(s_strlen(buffer)+1); strcpy(message, buffer); special_entries(message); strip_tags(message); // nickname buddy = purple_find_buddy(account, sender); if(buddy == NULL) buddy_nick = sender; else buddy_nick = (char*)purple_buddy_get_alias( buddy ); len = s_strlen(buddy_nick) + s_strlen(message) + 3; // message notification = malloc( len ); g_snprintf(notification, len, "%s: %s", buddy_nick, message); // icon icon = purple_buddy_get_icon( buddy ); iconpath = purple_buddy_icon_get_full_path( icon ); gntp_notify("im-msg-received", iconpath, "IM Message", notification, NULL); free(message); free(notification); }
int main(int argc, char *argv[]) { char *all_in, *group_in, *subclass_in, *order_in ; char *family_in, *genus_in, *species_in, *tri_in, *show_infras ; char *loc_in, *x_in, *y_in ; request_level_t request_level ; char name_html[128], *name_plain ; char qstr[512] ; void *qd ; taxon *root ; taxon *group_p, *subc_p, *ord_p, *fam_p, *gen_p, *spec_p, *tri_p, *quad_p ; int has_orders, has_subclasses ; int is_ext = !strcmp(argv[0], "b98_list_ext") ? 1 : 0 ; /* get CGI vars */ decode_query_string(11, "all", &all_in, "group", &group_in, "subclass", &subclass_in, "order", &order_in, "family", &family_in, "genus", &genus_in, "species", &species_in, "tri", &tri_in, "loc", &loc_in, "x", &x_in, "y", &y_in) ; /* process mouse click */ if (nonempty(x_in)) { loc_in = map_convert_xy_to_name(atoi(x_in), atoi(y_in), MAP_DIR, MAP_NAME, "abbr") ; if (!nonempty(loc_in)) return_nothing() ; } /* determine "request level" of request */ if (nonempty(all_in)) request_level = ALL ; else if (nonempty(group_in)) request_level = GROUP ; else if (nonempty(subclass_in)) request_level = SUBCLASS ; else if (nonempty(order_in)) request_level = ORDER ; else if (nonempty(family_in)) request_level = FAMILY ; else if (nonempty(genus_in)) { if (nonempty(species_in)) if (nonempty(tri_in)) request_level = TRI ; else request_level = SPECIES ; else request_level = GENUS ; } else request_level = ERROR ; /* build MG query string */ switch(request_level) { case ALL: sprintf(qstr, "qqall") ; break; case GROUP: sprintf(qstr, "qqgrp%s", group_in) ; break ; case SUBCLASS: sprintf(qstr, "qqsbc%s", subclass_in) ; break ; case ORDER: sprintf(qstr, "qqord%s", order_in) ; break ; case FAMILY: sprintf(qstr, "qqfam%s", family_in) ; break ; case GENUS: sprintf(qstr, "qqgen%s", genus_in) ; break ; case SPECIES: case TRI: /* eliminate dashes in species names */ { char *temp_s, *dash_loc ; temp_s = strdup(species_in) ; if ((dash_loc = strchr(temp_s, '-')) != NULL) strcpy(dash_loc, dash_loc+1) ; sprintf(qstr, "qqgen%s&qqspe%s", genus_in, temp_s) ; free(temp_s) ; if (request_level == TRI) { temp_s = strdup(tri_in) ; if ((dash_loc = strchr(temp_s, '-')) != NULL) strcpy(dash_loc, dash_loc+1) ; sprintf(qstr+strlen(qstr), "&qqtri%s", temp_s) ; free(temp_s) ; } } break ; } if (nonempty(loc_in)) sprintf(qstr+strlen(qstr), "&qqloc%s", loc_in) ; /* execute MG query */ mg_bool_query(qstr, MG_COLL_DIR, MG_COLL_NAME, &qd) ; /* process MG query results */ if (mg_get_num_returned(qd) == 0) return_nothing() ; root = NULL ; { char s[256] ; void *lp=NULL ; int docnum ; do { clear_name_vars() ; docnum = mg_get_doc_num(qd) ; mg_setup_doc_line_producer(qd, docnum, &lp) ; while (mg_dlp_more_lines(lp)) { if (!strncmp(s, "qqgrp", 5)) strcpy(group_out, s+5) ; else if (!strncmp(s, "qqsbc", 5)) strcpy(subclass_out, s+5) ; else if (!strncmp(s, "qqord", 5)) strcpy(order_out, s+5) ; else if (!strncmp(s, "qqfam", 5)) strcpy(family_out, s+5) ; else if (!strncmp(s, "qqgen", 5)) strcpy(genus_out, s+5) ; else if (!strncmp(s, "qqhyb", 5)) hybrid = (!strncmp(s+5, "yes", 3) ? 1 : 0) ; else if (!strncmp(s, "qqspr", 5)) strcpy(species_out, s+5) ; else if (!strncmp(s, "qqtrs", 5)) strcpy(trirank_out, s+5) ; else if (!strncmp(s, "qqtrr", 5)) strcpy(tri_out, s+5) ; else if (!strncmp(s, "qqqus", 5)) strcpy(quadrank_out, s+5) ; else if (!strncmp(s, "qqqur", 5)) strcpy(quad_out, s+5) ; mg_dlp_next_line(lp, s) ; } switch (group_out[0]) { case 'P': group_p = insert_taxon_item(&root, "1Pteridophytes", NULL, 1) ; break ; case 'G': group_p = insert_taxon_item(&root, "2Gymnosperms", NULL, 1) ; break ; case 'M': group_p = insert_taxon_item(&root, "3Monocots", NULL, 1) ; break ; case 'D': group_p = insert_taxon_item(&root, "4Dicots", NULL, 1) ; break ; } subc_p = insert_taxon_child(group_p, subclass_out, NULL, 1) ; ord_p = insert_taxon_child(subc_p, order_out, NULL, 1) ; fam_p = insert_taxon_child(ord_p, family_out, NULL, 1) ; gen_p = insert_taxon_child(fam_p, genus_out, NULL, 1) ; spec_p = insert_taxon_child(gen_p, species_out, new_int(hybrid), 1) ; if (nonempty(tri_out)) { tri_p = insert_taxon_child(spec_p, tri_out, new_int(!strcmp(trirank_out, "var") ? 1 : 0), 1) ; if (nonempty(quad_out)) { quad_p = insert_taxon_child(tri_p, quad_out, new_int(!strcmp(quadrank_out, "var") ? 1 : 0), 1) ; } } } while (mg_goto_next_doc(qd)) ; } /* generate HTML page */ /* HTTP header */ return_header("text/html") ; build_name(name_html, request_level, 0) ; name_plain = strip_tags(name_html) ; puts("<html>") ; puts("<head>") ; printf("<title>BONAP Distribution Data: ") ; if (request_level == SPECIES || request_level == TRI) printf("subspecies/varieties ") ; else printf("taxa ") ; printf("of %s", name_plain) ; if (nonempty(loc_in)) printf(" in %s", map_convert_region_name(MAP_DIR, MAP_NAME, "abbr", "name", loc_in)) ; else puts(" in the US") ; puts("</title>") ; puts("</head>") ; puts("<body bgcolor=\"#ffffff\">") ; if (is_ext) ext_header() ; printf("<h1>") ; if (request_level == SPECIES || request_level == TRI) printf("Subspecies/varieties ") ; else printf("Taxa ") ; printf("of %s", name_html) ; if (nonempty(loc_in)) printf(" in %s", map_convert_region_name(MAP_DIR, MAP_NAME, "abbr", "name", loc_in)) ; else puts(" in the US") ; printf("</h1>") ; if (request_level > GROUP) { if (request_level <= GENUS) name_html[0] = toupper(name_html[0]) ; printf("%s is a member of the %s group", name_html, (root->name)+1) ; if (request_level > SUBCLASS) if (strcmp(root->nextlevel->name, "none")) printf(", subclass %s", root->nextlevel->name) ; if (request_level > ORDER) if (strcmp(root->nextlevel->nextlevel->name, "none")) printf(", order %s", root->nextlevel->nextlevel->name) ; if (request_level > FAMILY) printf(", family %s", root->nextlevel->nextlevel->nextlevel->name) ; /* Don't really need to mention genus because it's obvious from the species name */ /* if (request_level > GENUS) printf(", genus <i>%s</i>", root->nextlevel->nextlevel->nextlevel->nextlevel->name) ; */ puts(".<p>") ; } if (request_level <= ALL) puts("<ul>") ; group_p = root ; while (group_p != NULL) { if (request_level <= ALL) printf("%s<br>\n", (group_p->name)+1) ; subc_p = group_p->nextlevel ; has_subclasses = (strcmp(subc_p->name, "none") != 0) ; if (request_level <= GROUP) if (has_subclasses) puts("<ul>") ; while (subc_p != NULL) { strcpy(subclass_out, subc_p->name) ; if (request_level <= GROUP && has_subclasses) { build_name(name_html, SUBCLASS, 1) ; printf("<b>%s</b>", name_html) ; puts("<br>") ; } ord_p = subc_p->nextlevel ; has_orders = (strcmp(ord_p->name, "none") != 0) ; if (request_level <= SUBCLASS) if (has_orders) puts("<ul>") ; while (ord_p != NULL) { strcpy(order_out, ord_p->name) ; if (request_level <= SUBCLASS && has_orders) { build_name(name_html, ORDER, 1) ; printf("<b>%s</b><br>\n", name_html) ; } fam_p = ord_p->nextlevel ; if (request_level <= ORDER) puts("<ul>") ; while (fam_p != NULL) { strcpy(family_out, fam_p->name) ; if (request_level <= ORDER) { build_name(name_html, FAMILY, 1) ; printf("<b>%s</b><br>\n", name_html) ; } gen_p = fam_p->nextlevel ; if (request_level <= FAMILY) puts("<ul>") ; while (gen_p != NULL) { strcpy(genus_out, gen_p->name) ; if (request_level <= FAMILY) { build_name(name_html, GENUS, 1) ; printf("<b>%s</b> ", name_html) ; printf("<a href=\"%s?colldir=%s&collname=%s&" "query=%s\">(checklist entries)</a>", RULED_HTML_QUERY_URL, CHECKLIST_COLL_DIR, CHECKLIST_COLL_NAME, gen_p->name) ; printf(" <a href=\"%s?genus=%s\">(map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out) ; puts("<br>") ; } spec_p = gen_p->nextlevel ; if (request_level <= GENUS) puts("<ul>") ; while (spec_p != NULL) { strcpy(species_out, spec_p->name) ; hybrid = *((int *)(spec_p->other_data)) ; if (request_level <= GENUS) { build_name(name_html, SPECIES, 1) ; printf("<b>%s</b>", name_html) ; printf(" <a href=\"%s?colldir=%s&collname=%s&" "query=%s%%26%s\">(checklist entry)</a>", RULED_HTML_QUERY_URL, CHECKLIST_COLL_DIR, CHECKLIST_COLL_NAME, gen_p->name, spec_p->name) ; printf(" <a href=\"%s?genus=%s&species=%s\">(species " "map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out, species_out) ; if (spec_p->nextlevel != NULL) printf(" <a href=\"%s?genus=%s&species=%s&show_infras=yes\">" "(infras map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out, species_out) ; printf("<br>\n") ; } if (spec_p->nextlevel != NULL) puts("<ul>") ; tri_p = spec_p->nextlevel ; while (tri_p != NULL) { strcpy(tri_out, tri_p->name) ; strcpy(trirank_out, *((int *)(tri_p->other_data)) ? "var" : "ssp") ; build_name(name_html, TRI, 1) ; printf("<b>%s</b>", name_html) ; printf(" <a href=\"%s?genus=%s&species=%s&tri=%s\">" "(infra map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out, species_out, tri_out) ; if (tri_p->nextlevel != NULL) printf(" <a href=\"%s?genus=%s&species=%s&tri=%s" "&show_infras=yes\">(subinfras map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out, species_out, tri_out) ; puts("<br>") ; if (tri_p->nextlevel != NULL) puts("<ul>") ; quad_p = tri_p->nextlevel ; while (quad_p != NULL) { strcpy(quad_out, quad_p->name) ; strcpy(quadrank_out, *((int *)(quad_p->other_data)) ? "var" : "ssp") ; build_name(name_html, QUAD, 1) ; printf("<b>%s</b>", name_html) ; printf(" <a href=\"%s?genus=%s&species=%s&tri=%s&quad=%s\">" "(subinfra map)</a>", is_ext ? B98_MAP_EXT_URL : B98_MAP_URL, genus_out, species_out, tri_out, quad_out) ; puts("<br>") ; step_taxon(quad_p) ; } if (tri_p->nextlevel != NULL) puts("</ul>") ; step_taxon(tri_p) ; } if (spec_p->nextlevel != NULL) puts("</ul>") ; step_taxon(spec_p) ; } if (request_level <= GENUS) puts("</ul>") ; step_taxon(gen_p) ; } if (request_level <= FAMILY) puts("</ul>") ; step_taxon(fam_p) ; } if (request_level <= ORDER) puts("</ul>") ; step_taxon(ord_p) ; } if (request_level <= SUBCLASS) if (has_orders) puts("</ul>") ; step_taxon(subc_p) ; } if (request_level <= GROUP) if (has_subclasses) puts("</ul>") ; step_taxon(group_p) ; } if (request_level <= ALL) puts("</ul>") ; puts("</body>" "</html>") ; }
/************************************************************************** * Buddy List subsystem signal callbacks **************************************************************************/ static void buddy_status_changed_cb(PurpleBuddy *buddy, PurpleStatus *old_status, PurpleStatus *status) { char *status_name, *old_status_name, *status_msg; char* buddy_nick, *buddy_name, *icon_path, *growl_msg; PurpleBuddyIcon* icon; int len, hack_ms; PurpleAccount* account; DEBUG_MSG("buddy_status_changed_cb\n"); g_return_if_fail( buddy != NULL ); account = purple_buddy_get_account(buddy); g_return_if_fail( is_allowed(account) ); status_name = (char *)purple_status_get_name(status); old_status_name = (char *)purple_status_get_name(old_status); buddy_nick = (char*)purple_buddy_get_alias(buddy); buddy_name = (char*)purple_buddy_get_name(buddy); icon = purple_buddy_get_icon(buddy); icon_path = (char*)purple_buddy_icon_get_full_path(icon); status_msg = custom_get_buddy_status_text(buddy); if( status_msg == NULL ) status_msg = ""; special_entries(status_msg); strip_tags(status_msg); //hack to hide spam when signing on to account hack_ms = purple_prefs_get_int("/plugins/core/pidgin-gntp/hack_ms"); GList *node = buddy_status_is_new(buddy, status_msg); if( GetTickCount() - start_tick_im < hack_ms) return; if( node != NULL ) { DEBUG_MSG("status node received\n"); struct buddy_status* node_status = node->data; free(node_status->status); char* the_status = malloc( s_strlen(status_msg)+1 ); strcpy(the_status, status_msg); node_status->status = the_status; if(status_msg[0] == 0) { len = s_strlen(buddy_nick) + s_strlen(buddy_name) + 25; growl_msg = malloc( len ); g_snprintf(growl_msg, len, "status message removed\n%s\n%s",buddy_nick, buddy_name ); gntp_notify("buddy-change-msg", icon_path, "Status Message Changed", growl_msg, NULL); free(growl_msg); } else { len = s_strlen(buddy_nick) + s_strlen(buddy_name) + s_strlen(status_msg)+5; growl_msg = malloc( len ); g_snprintf(growl_msg, len, "\"%s\"\n%s\n%s", status_msg, buddy_nick, buddy_name ); gntp_notify("buddy-change-msg", icon_path, "Status Changed", growl_msg, NULL); free(growl_msg); } } if( strcmp(status_name, old_status_name) == 0) return; len = s_strlen(buddy_nick) + s_strlen(buddy_name) + s_strlen(status_name) + 3; growl_msg = malloc( len ); g_snprintf(growl_msg, len, "%s\n%s\n%s", status_name, buddy_nick, buddy_name ); gntp_notify("buddy-change-status", icon_path, "Status Changed", growl_msg, NULL); free(growl_msg); }