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);
}
