Mercurial > pidgin.yaz
view src/list.c @ 3181:d62017ec438f
[gaim-migrate @ 3198]
0.58 cvs
committer: Tailor Script <tailor@pidgin.im>
author | Rob Flynn <gaim@robflynn.com> |
---|---|
date | Fri, 26 Apr 2002 05:42:17 +0000 |
parents | 1bd472b7f7a2 |
children | 48a2e656bdf9 |
line wrap: on
line source
/* * gaim * * Copyright (C) 1998-1999, Mark Spencer <markster@marko.net> * * 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; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <string.h> #include <sys/types.h> #include <sys/stat.h> #include <unistd.h> #include "gaim.h" #include "prpl.h" #define PATHSIZE 1024 void remove_buddy(struct gaim_connection *gc, struct group *rem_g, struct buddy *rem_b) { GSList *grp; GSList *mem; struct group *delg; struct buddy *delb; /* we assume that gc is not NULL and that the buddy exists somewhere within the * gc's buddy list, therefore we can safely remove it. we need to ensure this * via the UI */ grp = g_slist_find(gc->groups, rem_g); delg = (struct group *)grp->data; mem = delg->members; mem = g_slist_find(mem, rem_b); delb = (struct buddy *)mem->data; delg->members = g_slist_remove(delg->members, delb); ui_remove_buddy(gc, rem_g, rem_b); g_free(rem_b); /* we don't flush buddy list to cache because in the case of remove_group that would * mean writing to the buddy list file once for each buddy, plus one more time */ } void remove_group(struct gaim_connection *gc, struct group *rem_g) { GSList *grp; GSList *mem; GList *tmp = NULL; struct group *delg; struct buddy *delb; /* we assume that the group actually does exist within the gc, and that the gc is not NULL. * the UI is responsible for this */ grp = g_slist_find(gc->groups, rem_g); delg = (struct group *)grp->data; mem = delg->members; while (delg->members) { delb = (struct buddy *)delg->members->data; tmp = g_list_append(tmp, g_strdup(delb->name)); remove_buddy(gc, delg, delb); /* this should take care of removing the group_show if necessary */ } gc->groups = g_slist_remove(gc->groups, delg); serv_remove_buddies(gc, tmp, rem_g->name); while (tmp) { g_free(tmp->data); tmp = g_list_remove(tmp, tmp->data); } ui_remove_group(gc, rem_g); g_free(rem_g); /* don't flush buddy list to cache in order to be consistent with remove_buddy, * mostly. remove_group is only called from one place, so we'll let it handle it. */ } struct buddy *add_buddy(struct gaim_connection *gc, char *group, char *buddy, char *show) { struct buddy *b; struct group *g; char *good; if (!g_slist_find(connections, gc)) return NULL; if ((b = find_buddy(gc, buddy)) != NULL) return b; g = find_group(gc, group); if (g == NULL) g = add_group(gc, group); b = (struct buddy *)g_new0(struct buddy, 1); if (!b) return NULL; b->gc = gc; b->present = 0; if (gc->prpl->normalize) good = gc->prpl->normalize(buddy); else good = buddy; g_snprintf(b->name, sizeof(b->name), "%s", good); g_snprintf(b->show, sizeof(b->show), "%s", show ? (show[0] ? show : good) : good); g->members = g_slist_append(g->members, b); b->idle = 0; b->caps = 0; ui_add_buddy(gc, g, b); return b; } struct group *add_group(struct gaim_connection *gc, char *group) { struct group *g = find_group(gc, group); if (g) return g; if (!g_slist_find(connections, gc)) return NULL; g = (struct group *)g_new0(struct group, 1); if (!g) return NULL; g->gc = gc; strncpy(g->name, group, sizeof(g->name)); gc->groups = g_slist_append(gc->groups, g); g->members = NULL; ui_add_group(gc, g); return g; } struct group *find_group(struct gaim_connection *gc, char *group) { struct group *g; GSList *grp; GSList *c = connections; struct gaim_connection *z; char *grpname = g_malloc(strlen(group) + 1); strcpy(grpname, normalize (group)); if (gc) { if (!g_slist_find(connections, gc)) return NULL; grp = gc->groups; while (grp) { g = (struct group *)grp->data; if (!g_strcasecmp(normalize (g->name), grpname)) { g_free(grpname); return g; } grp = g_slist_next(grp); } g_free(grpname); return NULL; } else { while (c) { z = (struct gaim_connection *)c->data; grp = z->groups; while (grp) { g = (struct group *)grp->data; if (!g_strcasecmp(normalize (g->name), grpname)) { g_free(grpname); return g; } grp = g_slist_next(grp); } c = c->next; } g_free(grpname); return NULL; } } struct group *find_group_by_buddy(struct gaim_connection *gc, char *who) { struct group *g; struct buddy *b; GSList *grp; GSList *mem; char *whoname; char *(*norm)(const char *); if (gc) { if (gc->prpl->normalize) norm = gc->prpl->normalize; else norm = normalize; whoname = g_strdup(norm(who)); grp = gc->groups; while (grp) { g = (struct group *)grp->data; mem = g->members; while (mem) { b = (struct buddy *)mem->data; if (!strcmp(norm(b->name), whoname)) { g_free(whoname); return g; } mem = mem->next; } grp = g_slist_next(grp); } g_free(whoname); return NULL; } else { GSList *c = connections; struct gaim_connection *z; while (c) { z = (struct gaim_connection *)c->data; if (z->prpl->normalize) norm = z->prpl->normalize; else norm = normalize; whoname = g_strdup(norm(who)); grp = z->groups; while (grp) { g = (struct group *)grp->data; mem = g->members; while (mem) { b = (struct buddy *)mem->data; if (!strcmp(norm(b->name), whoname)) { g_free(whoname); return g; } mem = mem->next; } grp = g_slist_next(grp); } c = c->next; g_free(whoname); } return NULL; } } struct buddy *find_buddy(struct gaim_connection *gc, char *who) { struct group *g; struct buddy *b; GSList *grp; GSList *c; struct gaim_connection *z; GSList *mem; char *whoname; char *(*norm)(const char *); if (gc) { if (!g_slist_find(connections, gc)) return NULL; if (gc->prpl->normalize) norm = gc->prpl->normalize; else norm = normalize; whoname = g_strdup(norm(who)); grp = gc->groups; while (grp) { g = (struct group *)grp->data; mem = g->members; while (mem) { b = (struct buddy *)mem->data; if (!strcmp(norm(b->name), whoname)) { g_free(whoname); return b; } mem = mem->next; } grp = g_slist_next(grp); } g_free(whoname); return NULL; } else { c = connections; while (c) { z = (struct gaim_connection *)c->data; if (z->prpl->normalize) norm = z->prpl->normalize; else norm = normalize; whoname = g_strdup(norm(who)); grp = z->groups; while (grp) { g = (struct group *)grp->data; mem = g->members; while (mem) { b = (struct buddy *)mem->data; if (!strcmp(norm(b->name), whoname)) { g_free(whoname); return b; } mem = mem->next; } grp = g_slist_next(grp); } c = c->next; g_free(whoname); } return NULL; } } void parse_toc_buddy_list(struct gaim_connection *gc, char *config) { char *c; char current[256]; char *name; GList *bud; int how_many = 0; bud = NULL; if (config != NULL) { /* skip "CONFIG:" (if it exists) */ c = strncmp(config + 6 /* sizeof(struct sflap_hdr) */ , "CONFIG:", strlen("CONFIG:")) ? strtok(config, "\n") : strtok(config + 6 /* sizeof(struct sflap_hdr) */ + strlen("CONFIG:"), "\n"); do { if (c == NULL) break; if (*c == 'g') { strncpy(current, c + 2, sizeof(current)); if (!find_group(gc, current)) { add_group(gc, current); how_many++; } } else if (*c == 'b' && !find_buddy(gc, c + 2)) { char nm[80], sw[BUDDY_ALIAS_MAXLEN], *tmp = c + 2; int i = 0; while (*tmp != ':' && *tmp && i < sizeof(nm) - 1) nm[i++] = *tmp++; while (*tmp != ':' && *tmp) tmp++; if (*tmp == ':') *tmp++ = '\0'; nm[i] = '\0'; i = 0; while (*tmp && i < sizeof(sw) - 1) sw[i++] = *tmp++; sw[i] = '\0'; if (!find_buddy(gc, nm)) { add_buddy(gc, current, nm, sw); how_many++; bud = g_list_append(bud, c + 2); } } else if (*c == 'p') { GSList *d = gc->permit; char *n; name = g_malloc(strlen(c + 2) + 2); g_snprintf(name, strlen(c + 2) + 1, "%s", c + 2); n = g_strdup(normalize (name)); while (d) { if (!g_strcasecmp(n, normalize (d->data))) break; d = d->next; } g_free(n); if (!d) { gc->permit = g_slist_append(gc->permit, name); how_many++; } else g_free(name); } else if (*c == 'd') { GSList *d = gc->deny; char *n; name = g_malloc(strlen(c + 2) + 2); g_snprintf(name, strlen(c + 2) + 1, "%s", c + 2); n = g_strdup(normalize (name)); while (d) { if (!g_strcasecmp(n, normalize (d->data))) break; d = d->next; } g_free(n); if (!d) { gc->deny = g_slist_append(gc->deny, name); how_many++; } else g_free(name); } else if (!strncmp("toc", c, 3)) { sscanf(c + strlen(c) - 1, "%d", &gc->permdeny); debug_printf("permdeny: %d\n", gc->permdeny); if (gc->permdeny == 0) gc->permdeny = 1; } else if (*c == 'm') { sscanf(c + 2, "%d", &gc->permdeny); debug_printf("permdeny: %d\n", gc->permdeny); if (gc->permdeny == 0) gc->permdeny = 1; } } while ((c = strtok(NULL, "\n"))); if (bud != NULL) { serv_add_buddies(gc, bud); g_list_free(bud); } serv_set_permit_deny(gc); } if (how_many != 0) do_export(gc); } void toc_build_config(struct gaim_connection *gc, char *s, int len, gboolean show) { GSList *grp = gc->groups; GSList *mem; struct group *g; struct buddy *b; GSList *plist = gc->permit; GSList *dlist = gc->deny; int pos = 0; if (!gc->permdeny) gc->permdeny = 1; pos += g_snprintf(&s[pos], len - pos, "m %d\n", gc->permdeny); while (len > pos && grp) { g = (struct group *)grp->data; pos += g_snprintf(&s[pos], len - pos, "g %s\n", g->name); mem = g->members; while (len > pos && mem) { b = (struct buddy *)mem->data; pos += g_snprintf(&s[pos], len - pos, "b %s%s%s\n", b->name, (show && strcmp(b->name, b->show)) ? ":" : "", (show && strcmp(b->name, b->show)) ? b->show : ""); mem = mem->next; } grp = g_slist_next(grp); } while (len > pos && plist) { pos += g_snprintf(&s[pos], len - pos, "p %s\n", (char *)plist->data); plist = plist->next; } while (len > pos && dlist) { pos += g_snprintf(&s[pos], len - pos, "d %s\n", (char *)dlist->data); dlist = dlist->next; } } /* translate an AIM 3 buddylist (*.lst) to a Gaim buddylist */ static GString *translate_lst(FILE *src_fp) { char line[BUF_LEN], *line2; char *name; int i; GString *dest = g_string_new("m 1\n"); while (fgets(line, BUF_LEN, src_fp)) { line2 = g_strchug(line); if (strstr(line2, "group") == line2) { name = strpbrk(line2, " \t\n\r\f") + 1; dest = g_string_append(dest, "g "); for (i = 0; i < strcspn(name, "\n\r"); i++) if (name[i] != '\"') dest = g_string_append_c(dest, name[i]); dest = g_string_append_c(dest, '\n'); } if (strstr(line2, "buddy") == line2) { name = strpbrk(line2, " \t\n\r\f") + 1; dest = g_string_append(dest, "b "); for (i = 0; i < strcspn(name, "\n\r"); i++) if (name[i] != '\"') dest = g_string_append_c(dest, name[i]); dest = g_string_append_c(dest, '\n'); } } return dest; } /* translate an AIM 4 buddylist (*.blt) to Gaim format */ static GString *translate_blt(FILE *src_fp) { int i; char line[BUF_LEN]; char *buddy; GString *dest = g_string_new("m 1\n"); while (strstr(fgets(line, BUF_LEN, src_fp), "Buddy") == NULL); while (strstr(fgets(line, BUF_LEN, src_fp), "list") == NULL); while (1) { fgets(line, BUF_LEN, src_fp); g_strchomp(line); if (strchr(line, '}') != NULL) break; if (strchr(line, '{') != NULL) { /* Syntax starting with "<group> {" */ dest = g_string_append(dest, "g "); buddy = g_strchug(strtok(line, "{")); for (i = 0; i < strlen(buddy); i++) if (buddy[i] != '\"') dest = g_string_append_c(dest, buddy[i]); dest = g_string_append_c(dest, '\n'); while (strchr(fgets(line, BUF_LEN, src_fp), '}') == NULL) { gboolean pounce = FALSE; char *e; g_strchomp(line); buddy = g_strchug(line); debug_printf("\nbuddy: \"%s\"\n\n", buddy); dest = g_string_append(dest, "b "); if (strchr(buddy, '{') != NULL) { /* buddy pounce, etc */ char *pos = strchr(buddy, '{') - 1; *pos = 0; pounce = TRUE; } if ((e = strchr(buddy, '\"')) != NULL) { *e = '\0'; buddy++; } dest = g_string_append(dest, buddy); dest = g_string_append_c(dest, '\n'); if (pounce) do fgets(line, BUF_LEN, src_fp); while (!strchr(line, '}')); } } else { /* Syntax "group buddy buddy ..." */ buddy = g_strchug(strtok(line, " \n")); dest = g_string_append(dest, "g "); if (strchr(buddy, '\"') != NULL) { dest = g_string_append(dest, &buddy[1]); dest = g_string_append_c(dest, ' '); buddy = g_strchug(strtok(NULL, " \n")); while (strchr(buddy, '\"') == NULL) { dest = g_string_append(dest, buddy); dest = g_string_append_c(dest, ' '); buddy = g_strchug(strtok(NULL, " \n")); } buddy[strlen(buddy) - 1] = '\0'; dest = g_string_append(dest, buddy); } else { dest = g_string_append(dest, buddy); } dest = g_string_append_c(dest, '\n'); while ((buddy = g_strchug(strtok(NULL, " \n"))) != NULL) { dest = g_string_append(dest, "b "); if (strchr(buddy, '\"') != NULL) { dest = g_string_append(dest, &buddy[1]); dest = g_string_append_c(dest, ' '); buddy = g_strchug(strtok(NULL, " \n")); while (strchr(buddy, '\"') == NULL) { dest = g_string_append(dest, buddy); dest = g_string_append_c(dest, ' '); buddy = g_strchug(strtok(NULL, " \n")); } buddy[strlen(buddy) - 1] = '\0'; dest = g_string_append(dest, buddy); } else { dest = g_string_append(dest, buddy); } dest = g_string_append_c(dest, '\n'); } } } return dest; } static GString *translate_gnomeicu(FILE *src_fp) { char line[BUF_LEN]; GString *dest = g_string_new("m 1\ng Buddies\n"); while (strstr(fgets(line, BUF_LEN, src_fp), "NewContacts") == NULL); while (fgets(line, BUF_LEN, src_fp)) { char *eq; g_strchomp(line); if (line[0] == '\n' || line[0] == '[') break; eq = strchr(line, '='); if (!eq) break; *eq = ':'; eq = strchr(eq, ','); if (eq) *eq = '\0'; dest = g_string_append(dest, "b "); dest = g_string_append(dest, line); dest = g_string_append_c(dest, '\n'); } return dest; } static gchar *get_screenname_filename(const char *name) { gchar **split; gchar *good; split = g_strsplit(name, G_DIR_SEPARATOR_S, -1); good = g_strjoinv(NULL, split); g_strfreev(split); g_strup(good); return good; } /* see if a buddy list cache file for this user exists */ gboolean bud_list_cache_exists(struct gaim_connection *gc) { gboolean ret = FALSE; char path[PATHSIZE]; char *file; struct stat sbuf; char *g_screenname; g_screenname = get_screenname_filename(gc->username); file = gaim_user_dir(); if (file != (char *)NULL) { g_snprintf(path, sizeof path, "%s/%s.%d.blist", file, g_screenname, gc->protocol); if (!stat(path, &sbuf)) { debug_printf("%s exists.\n", path); ret = TRUE; } else { char path2[PATHSIZE]; debug_printf("%s does not exist.\n", path); g_snprintf(path2, sizeof path2, "%s/%s.blist", file, g_screenname); if (!stat(path2, &sbuf)) { debug_printf("%s exists, moving to %s\n", path2, path); if (rename(path2, path)) debug_printf("rename didn't work!\n"); else ret = TRUE; } } g_free(file); } g_free(g_screenname); return ret; } void do_import(struct gaim_connection *gc, char *filename) { GString *buf = NULL; char first[64]; char path[PATHSIZE]; int len; FILE *f; struct stat st; if (filename) { g_snprintf(path, sizeof(path), "%s", filename); } else { char *g_screenname = get_screenname_filename(gc->username); char *file = gaim_user_dir(); if (file != (char *)NULL) { sprintf(path, "%s/%s.%d.blist", file, g_screenname, gc->protocol); g_free(file); g_free(g_screenname); } else { g_free(g_screenname); return; } } if (stat(path, &st)) { debug_printf("Unable to stat %s.\n", path); return; } if (!(f = fopen(path, "r"))) { debug_printf("Unable to open %s.\n", path); return; } fgets(first, 64, f); if ((first[0] == '\n') || (first[0] == '\r' && first[1] == '\n')) fgets(first, 64, f); if (!g_strncasecmp(first, "Config {", strlen("Config {"))) { /* AIM 4 buddy list */ debug_printf("aim 4\n"); rewind(f); buf = translate_blt(f); } else if (strstr(first, "group") != NULL) { /* AIM 3 buddy list */ debug_printf("aim 3\n"); rewind(f); buf = translate_lst(f); } else if (!g_strncasecmp(first, "[User]", strlen("[User]"))) { /* GnomeICU (hopefully) */ debug_printf("gnomeicu\n"); rewind(f); buf = translate_gnomeicu(f); } else if (first[0] == 'm') { /* Gaim buddy list - no translation */ char buf2[BUF_LONG * 2]; buf = g_string_new(""); rewind(f); while (1) { len = fread(buf2, 1, BUF_LONG * 2 - 1, f); if (len <= 0) break; buf2[len] = '\0'; buf = g_string_append(buf, buf2); if (len != BUF_LONG * 2 - 1) break; } } fclose(f); if (buf) { buf = g_string_prepend(buf, "toc_set_config {"); buf = g_string_append(buf, "}\n"); parse_toc_buddy_list(gc, buf->str); g_string_free(buf, TRUE); } } void do_export(struct gaim_connection *g) { FILE *dir; FILE *f; char buf[32 * 1024]; char *file; char path[PATHSIZE]; char *g_screenname; file = gaim_user_dir(); if (!file) return; strcpy(buf, file); dir = fopen(buf, "r"); if (!dir) mkdir(buf, S_IRUSR | S_IWUSR | S_IXUSR); else fclose(dir); g_screenname = get_screenname_filename(g->username); sprintf(path, "%s/%s.%d.blist", file, g_screenname, g->protocol); if ((f = fopen(path, "w"))) { debug_printf("writing %s\n", path); toc_build_config(g, buf, 8192 - 1, TRUE); fprintf(f, "%s\n", buf); fclose(f); chmod(buf, S_IRUSR | S_IWUSR); } else { debug_printf("unable to write %s\n", path); } g_free(g_screenname); g_free(file); } static gboolean is_blocked(struct buddy *b) { struct gaim_connection *gc = b->gc; if (gc->permdeny == PERMIT_ALL) return FALSE; if (gc->permdeny == PERMIT_NONE) { if (g_strcasecmp(b->name, gc->displayname)) return TRUE; else return FALSE; } if (gc->permdeny == PERMIT_SOME) { char *x = g_strdup(normalize(b->name)); GSList *s = gc->permit; while (s) { if (!g_strcasecmp(x, normalize(s->data))) break; s = s->next; } g_free(x); if (s) return FALSE; return TRUE; } if (gc->permdeny == DENY_SOME) { char *x = g_strdup(normalize(b->name)); GSList *s = gc->deny; while (s) { if (!g_strcasecmp(x, normalize(s->data))) break; s = s->next; } g_free(x); if (s) return TRUE; return FALSE; } return FALSE; } void signoff_blocked(struct gaim_connection *gc) { GSList *g = gc->groups; while (g) { GSList *m = ((struct group *)g->data)->members; while (m) { struct buddy *b = m->data; if (is_blocked(b)) serv_got_update(gc, b->name, 0, 0, 0, 0, 0, 0); m = m->next; } g = g->next; } }