Author: Pekka Riikonen <priikone@silcnet.org> Copyright (C) 2004 - 2007 Pekka Riikonen 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; version 2 of the License. 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. /**************************** Utility Routines *******************************/ static char str[256], str2[256]; const char *silcpurple_silcdir(void) const char *hd = purple_home_dir(); memset(str, 0, sizeof(str)); g_snprintf(str, sizeof(str) - 1, "%s" G_DIR_SEPARATOR_S ".silc", hd ? hd : "/tmp"); return (const char *)str; const char *silcpurple_session_file(const char *account) memset(str2, 0, sizeof(str2)); g_snprintf(str2, sizeof(str2) - 1, "%s" G_DIR_SEPARATOR_S "%s_session", silcpurple_silcdir(), account); return (const char *)str2; gboolean silcpurple_ip_is_private(const char *ip) if (silc_net_is_ip4(ip)) { if (!strncmp(ip, "10.", 3)) { } else if (!strncmp(ip, "172.", 4) && strlen(ip) > 6) { memset(tmp, 0, sizeof(tmp)); } else if (!strncmp(ip, "192.168.", 8)) { /* This checks stats for various SILC files and directories. First it checks if ~/.silc directory exist and is owned by the correct user. If it doesn't exist, it will create the directory. After that it checks if user's Public and Private key files exists and creates them if needed. */ gboolean silcpurple_check_silc_dir(PurpleConnection *gc) char filename[256], file_public_key[256], file_private_key[256]; char servfilename[256], clientfilename[256], friendsfilename[256]; purple_debug_error("silc", "silc: %s\n", g_strerror(errno)); g_snprintf(filename, sizeof(filename) - 1, "%s", silcpurple_silcdir()); g_snprintf(servfilename, sizeof(servfilename) - 1, "%s" G_DIR_SEPARATOR_S "serverkeys", g_snprintf(clientfilename, sizeof(clientfilename) - 1, "%s" G_DIR_SEPARATOR_S "clientkeys", g_snprintf(friendsfilename, sizeof(friendsfilename) - 1, "%s" G_DIR_SEPARATOR_S "friends", * Check ~/.silc directory if ((g_stat(filename, &st)) == -1) { /* If dir doesn't exist */ if (pw->pw_uid == geteuid()) { if ((g_mkdir(filename, 0755)) == -1) { purple_debug_error("silc", "Couldn't create '%s' directory\n", filename); purple_debug_error("silc", "Couldn't create '%s' directory due to a wrong uid!\n", purple_debug_error("silc", "Couldn't stat '%s' directory, error: %s\n", filename, g_strerror(errno)); /* Check the owner of the dir */ if (st.st_uid != 0 && st.st_uid != pw->pw_uid) { purple_debug_error("silc", "You don't seem to own '%s' directory\n", * Check ~./silc/serverkeys directory if ((g_stat(servfilename, &st)) == -1) { /* If dir doesn't exist */ if (pw->pw_uid == geteuid()) { if ((g_mkdir(servfilename, 0755)) == -1) { purple_debug_error("silc", "Couldn't create '%s' directory\n", servfilename); purple_debug_error("silc", "Couldn't create '%s' directory due to a wrong uid!\n", purple_debug_error("silc", "Couldn't stat '%s' directory, error: %s\n", servfilename, g_strerror(errno)); * Check ~./silc/clientkeys directory if ((g_stat(clientfilename, &st)) == -1) { /* If dir doesn't exist */ if (pw->pw_uid == geteuid()) { if ((g_mkdir(clientfilename, 0755)) == -1) { purple_debug_error("silc", "Couldn't create '%s' directory\n", clientfilename); purple_debug_error("silc", "Couldn't create '%s' directory due to a wrong uid!\n", purple_debug_error("silc", "Couldn't stat '%s' directory, error: %s\n", clientfilename, g_strerror(errno)); * Check ~./silc/friends directory if ((g_stat(friendsfilename, &st)) == -1) { /* If dir doesn't exist */ if (pw->pw_uid == geteuid()) { if ((g_mkdir(friendsfilename, 0755)) == -1) { purple_debug_error("silc", "Couldn't create '%s' directory\n", friendsfilename); purple_debug_error("silc", "Couldn't create '%s' directory due to a wrong uid!\n", purple_debug_error("silc", "Couldn't stat '%s' directory, error: %s\n", friendsfilename, g_strerror(errno)); * Check Public and Private keys g_snprintf(pkd, sizeof(pkd), "%s" G_DIR_SEPARATOR_S "public_key.pub", silcpurple_silcdir()); g_snprintf(prd, sizeof(prd), "%s" G_DIR_SEPARATOR_S "private_key.prv", silcpurple_silcdir()); g_snprintf(file_public_key, sizeof(file_public_key) - 1, "%s", purple_account_get_string(gc->account, "public-key", pkd)); g_snprintf(file_private_key, sizeof(file_public_key) - 1, "%s", purple_account_get_string(gc->account, "private-key", prd)); if ((g_stat(file_public_key, &st)) == -1) { /* If file doesn't exist */ purple_connection_update_progress(gc, _("Creating SILC key pair..."), 1, 5); if (!silc_create_key_pair(SILCPURPLE_DEF_PKCS, purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_OTHER_ERROR, _("Unable to create SILC key pair")); if ((g_stat(file_public_key, &st)) == -1) { purple_debug_error("silc", "Couldn't stat '%s' public key, error: %s\n", file_public_key, g_strerror(errno)); purple_debug_error("silc", "Couldn't stat '%s' public key, error: %s\n", file_public_key, g_strerror(errno)); /* Check the owner of the public key */ if (st.st_uid != 0 && st.st_uid != pw->pw_uid) { purple_debug_error("silc", "You don't seem to own your public key!?\n"); if ((fd = g_open(file_private_key, O_RDONLY, 0)) != -1) { if ((fstat(fd, &st)) == -1) { purple_debug_error("silc", "Couldn't stat '%s' private key, error: %s\n", file_private_key, g_strerror(errno)); } else if ((g_stat(file_private_key, &st)) == -1) { /* If file doesn't exist */ purple_connection_update_progress(gc, _("Creating SILC key pair..."), 1, 5); if (!silc_create_key_pair(SILCPURPLE_DEF_PKCS, purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_OTHER_ERROR, _("Unable to create SILC key pair")); if ((fd = g_open(file_private_key, O_RDONLY, 0)) != -1) { if ((fstat(fd, &st)) == -1) { purple_debug_error("silc", "Couldn't stat '%s' private key, error: %s\n", file_private_key, g_strerror(errno)); /* This shouldn't really happen because silc_create_key_pair() * will set the permissions */ else if ((g_stat(file_private_key, &st)) == -1) { purple_debug_error("silc", "Couldn't stat '%s' private key, error: %s\n", file_private_key, g_strerror(errno)); purple_debug_error("silc", "Couldn't stat '%s' private key, error: %s\n", file_private_key, g_strerror(errno)); /* Check the owner of the private key */ if (st.st_uid != 0 && st.st_uid != pw->pw_uid) { purple_debug_error("silc", "You don't seem to own your private key!?\n"); /* Check the permissions for the private key */ if ((st.st_mode & 0777) != 0600) { purple_debug_warning("silc", "Wrong permissions in your private key file `%s'!\n" "Trying to change them ...\n", file_private_key); if ((fd == -1) || (fchmod(fd, S_IRUSR | S_IWUSR)) == -1) { purple_debug_error("silc", "Failed to change permissions for private key file!\n" "Permissions for your private key file must be 0600.\n"); purple_debug_warning("silc", "Done.\n\n"); struct passwd *getpwuid(uid_t uid) { struct passwd *pwd = calloc(1, sizeof(struct passwd)); void silcpurple_show_public_key(SilcPurple sg, const char *name, SilcPublicKey public_key, GCallback callback, void *context) SilcPublicKeyIdentifier ident; SilcSILCPublicKey silc_pubkey; char *fingerprint, *babbleprint; SilcUInt32 pk_len, key_len = 0; /* We support showing only SILC public keys for now */ if (silc_pkcs_get_type(public_key) != SILC_PKCS_SILC) silc_pubkey = silc_pkcs_get_context(SILC_PKCS_SILC, public_key); ident = &silc_pubkey->identifier; key_len = silc_pkcs_public_key_get_len(public_key); pk = silc_pkcs_public_key_encode(public_key, &pk_len); fingerprint = silc_hash_fingerprint(NULL, pk, pk_len); babbleprint = silc_hash_babbleprint(NULL, pk, pk_len); if (!fingerprint || !babbleprint) /* Hint for translators: Please check the tabulator width here and in the next strings (short strings: 2 tabs, longer strings 1 tab, sum: 3 tabs or 24 characters) */ g_string_append_printf(s, _("Real Name: \t%s\n"), ident->realname); g_string_append_printf(s, _("User Name: \t%s\n"), ident->username); g_string_append_printf(s, _("Email: \t\t%s\n"), ident->email); g_string_append_printf(s, _("Host Name: \t%s\n"), ident->host); g_string_append_printf(s, _("Organization: \t%s\n"), ident->org); g_string_append_printf(s, _("Country: \t%s\n"), ident->country); g_string_append_printf(s, _("Algorithm: \t%s\n"), silc_pubkey->pkcs->name); g_string_append_printf(s, _("Key Length: \t%d bits\n"), (int)key_len); g_string_append_printf(s, _("Version: \t%s\n"), ident->version); g_string_append_printf(s, "\n"); g_string_append_printf(s, _("Public Key Fingerprint:\n%s\n\n"), fingerprint); g_string_append_printf(s, _("Public Key Babbleprint:\n%s"), babbleprint); purple_request_action(sg->gc, _("Public Key Information"), _("Public Key Information"), s->str, 0, purple_connection_get_account(sg->gc), NULL, NULL, context, 1, _("Close"), callback); silcpurple_get_attr(SilcDList attrs, SilcAttribute attribute) SilcAttributePayload attr = NULL; while ((attr = silc_dlist_get(attrs)) != SILC_LIST_END) if (attribute == silc_attribute_get_attribute(attr)) void silcpurple_get_umode_string(SilcUInt32 mode, char *buf, memset(buf, 0, buf_size); if ((mode & SILC_UMODE_SERVER_OPERATOR) || (mode & SILC_UMODE_ROUTER_OPERATOR)) { strcat(buf, (mode & SILC_UMODE_SERVER_OPERATOR) ? (mode & SILC_UMODE_ROUTER_OPERATOR) ? "[SILC operator] " : "[unknown mode] "); if (mode & SILC_UMODE_GONE) if (mode & SILC_UMODE_INDISPOSED) strcat(buf, "[indisposed] "); if (mode & SILC_UMODE_BUSY) if (mode & SILC_UMODE_PAGE) strcat(buf, "[wake me up] "); if (mode & SILC_UMODE_HYPER) strcat(buf, "[hyperactive] "); if (mode & SILC_UMODE_ROBOT) if (mode & SILC_UMODE_ANONYMOUS) strcat(buf, "[anonymous] "); if (mode & SILC_UMODE_BLOCK_PRIVMSG) strcat(buf, "[blocks private messages] "); if (mode & SILC_UMODE_DETACHED) strcat(buf, "[detached] "); if (mode & SILC_UMODE_REJECT_WATCHING) strcat(buf, "[rejects watching] "); if (mode & SILC_UMODE_BLOCK_INVITE) strcat(buf, "[blocks invites] "); void silcpurple_get_chmode_string(SilcUInt32 mode, char *buf, memset(buf, 0, buf_size); if (mode & SILC_CHANNEL_MODE_FOUNDER_AUTH) strcat(buf, "[permanent] "); if (mode & SILC_CHANNEL_MODE_PRIVATE) strcat(buf, "[private] "); if (mode & SILC_CHANNEL_MODE_SECRET) strcat(buf, "[secret] "); if (mode & SILC_CHANNEL_MODE_PRIVKEY) strcat(buf, "[private key] "); if (mode & SILC_CHANNEL_MODE_INVITE) strcat(buf, "[invite only] "); if (mode & SILC_CHANNEL_MODE_TOPIC) strcat(buf, "[topic restricted] "); if (mode & SILC_CHANNEL_MODE_ULIMIT) strcat(buf, "[user count limit] "); if (mode & SILC_CHANNEL_MODE_PASSPHRASE) strcat(buf, "[passphrase auth] "); if (mode & SILC_CHANNEL_MODE_CHANNEL_AUTH) strcat(buf, "[public key auth] "); if (mode & SILC_CHANNEL_MODE_SILENCE_USERS) strcat(buf, "[users silenced] "); if (mode & SILC_CHANNEL_MODE_SILENCE_OPERS) strcat(buf, "[operators silenced] "); void silcpurple_get_chumode_string(SilcUInt32 mode, char *buf, memset(buf, 0, buf_size); if (mode & SILC_CHANNEL_UMODE_CHANFO) strcat(buf, "[founder] "); if (mode & SILC_CHANNEL_UMODE_CHANOP) strcat(buf, "[operator] "); if (mode & SILC_CHANNEL_UMODE_BLOCK_MESSAGES) strcat(buf, "[blocks messages] "); if (mode & SILC_CHANNEL_UMODE_BLOCK_MESSAGES_USERS) strcat(buf, "[blocks user messages] "); if (mode & SILC_CHANNEL_UMODE_BLOCK_MESSAGES_ROBOTS) strcat(buf, "[blocks robot messages] "); if (mode & SILC_CHANNEL_UMODE_QUIET) strcat(buf, "[quieted] "); silcpurple_parse_attrs(SilcDList attrs, char **moodstr, char **statusstr, char **contactstr, char **langstr, char **devicestr, char **tzstr, char **geostr) SilcAttributePayload attr; SilcAttributeMood mood = 0; SilcAttributeContact contact; SilcAttributeObjDevice device; attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_STATUS_MOOD); if (attr && silc_attribute_get_object(attr, &mood, sizeof(mood))) { if (mood & SILC_ATTRIBUTE_MOOD_HAPPY) g_string_append_printf(s, "[%s] ", _("Happy")); if (mood & SILC_ATTRIBUTE_MOOD_SAD) g_string_append_printf(s, "[%s] ", _("Sad")); if (mood & SILC_ATTRIBUTE_MOOD_ANGRY) g_string_append_printf(s, "[%s] ", _("Angry")); if (mood & SILC_ATTRIBUTE_MOOD_JEALOUS) g_string_append_printf(s, "[%s] ", _("Jealous")); if (mood & SILC_ATTRIBUTE_MOOD_ASHAMED) g_string_append_printf(s, "[%s] ", _("Ashamed")); if (mood & SILC_ATTRIBUTE_MOOD_INVINCIBLE) g_string_append_printf(s, "[%s] ", _("Invincible")); if (mood & SILC_ATTRIBUTE_MOOD_INLOVE) g_string_append_printf(s, "[%s] ", _("In Love")); if (mood & SILC_ATTRIBUTE_MOOD_SLEEPY) g_string_append_printf(s, "[%s] ", _("Sleepy")); if (mood & SILC_ATTRIBUTE_MOOD_BORED) g_string_append_printf(s, "[%s] ", _("Bored")); if (mood & SILC_ATTRIBUTE_MOOD_EXCITED) g_string_append_printf(s, "[%s] ", _("Excited")); if (mood & SILC_ATTRIBUTE_MOOD_ANXIOUS) g_string_append_printf(s, "[%s] ", _("Anxious")); *moodstr = g_string_free(s, FALSE); attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_STATUS_FREETEXT); memset(tmp, 0, sizeof(tmp)); if (attr && silc_attribute_get_object(attr, tmp, sizeof(tmp))) *statusstr = g_strdup(tmp); attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_PREFERRED_CONTACT); if (attr && silc_attribute_get_object(attr, &contact, sizeof(contact))) { if (contact & SILC_ATTRIBUTE_CONTACT_CHAT) g_string_append_printf(s, "[%s] ", _("Chat")); if (contact & SILC_ATTRIBUTE_CONTACT_EMAIL) g_string_append_printf(s, "[%s] ", _("Email")); if (contact & SILC_ATTRIBUTE_CONTACT_CALL) g_string_append_printf(s, "[%s] ", _("Phone")); if (contact & SILC_ATTRIBUTE_CONTACT_PAGE) g_string_append_printf(s, "[%s] ", _("Paging")); if (contact & SILC_ATTRIBUTE_CONTACT_SMS) g_string_append_printf(s, "[%s] ", _("SMS")); if (contact & SILC_ATTRIBUTE_CONTACT_MMS) g_string_append_printf(s, "[%s] ", _("MMS")); if (contact & SILC_ATTRIBUTE_CONTACT_VIDEO) g_string_append_printf(s, "[%s] ", _("Video Conferencing")); *contactstr = g_string_free(s, FALSE); attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_PREFERRED_LANGUAGE); memset(tmp, 0, sizeof(tmp)); if (attr && silc_attribute_get_object(attr, tmp, sizeof(tmp))) *langstr = g_strdup(tmp); attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_DEVICE_INFO); memset(&device, 0, sizeof(device)); if (attr && silc_attribute_get_object(attr, &device, sizeof(device))) { if (device.type == SILC_ATTRIBUTE_DEVICE_COMPUTER) g_string_append_printf(s, "%s: ", _("Computer")); if (device.type == SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE) g_string_append_printf(s, "%s: ", _("Mobile Phone")); if (device.type == SILC_ATTRIBUTE_DEVICE_PDA) g_string_append_printf(s, "%s: ", _("PDA")); if (device.type == SILC_ATTRIBUTE_DEVICE_TERMINAL) g_string_append_printf(s, "%s: ", _("Terminal")); g_string_append_printf(s, "%s %s %s %s", device.manufacturer ? device.manufacturer : "", device.version ? device.version : "", device.model ? device.model : "", device.language ? device.language : ""); *devicestr = g_string_free(s, FALSE); attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_TIMEZONE); memset(tmp, 0, sizeof(tmp)); if (attr && silc_attribute_get_object(attr, tmp, sizeof(tmp))) attr = silcpurple_get_attr(attrs, SILC_ATTRIBUTE_GEOLOCATION); memset(&geo, 0, sizeof(geo)); if (attr && silc_attribute_get_object(attr, &geo, sizeof(geo))) *geostr = g_strdup_printf("%s %s %s (%s)", geo.longitude ? geo.longitude : "", geo.latitude ? geo.latitude : "", geo.altitude ? geo.altitude : "", geo.accuracy ? geo.accuracy : ""); /* Returns MIME type of filetype */ char *silcpurple_file2mime(const char *filename) ct = strrchr(filename, '.'); else if (!g_ascii_strcasecmp(".png", ct)) return g_strdup("image/png"); else if (!g_ascii_strcasecmp(".jpg", ct)) return g_strdup("image/jpeg"); else if (!g_ascii_strcasecmp(".jpeg", ct)) return g_strdup("image/jpeg"); else if (!g_ascii_strcasecmp(".gif", ct)) return g_strdup("image/gif"); else if (!g_ascii_strcasecmp(".tiff", ct)) return g_strdup("image/tiff"); /* Checks if message has images, and assembles MIME message if it has. If only one image is present, creates simple MIME image message. If there are multiple images and/or text with images multipart MIME SilcDList silcpurple_image_message(const char *msg, SilcMessageFlags *mflags) SilcDList list, parts = NULL; const char *start, *end, *last; while (last && *last && purple_markup_find_tag("img", last, &start, PurpleStoredImage *image = NULL; /* Check if there is text before image */ silc_mime_add_field(p, "Content-Type", "text/plain; charset=utf-8"); tmp = g_strndup(last, start - last); text = purple_unescape_html(tmp); silc_mime_add_data(p, (const unsigned char *)text, strlen(text)); parts = silc_dlist_init(); silc_dlist_add(parts, p); id = g_datalist_get_data(&attribs, "id"); if (id && (image = purple_imgstore_find_by_id(atoi(id)))) { unsigned long imglen = purple_imgstore_get_size(image); gconstpointer img = purple_imgstore_get_data(image); type = silcpurple_file2mime(purple_imgstore_get_filename(image)); g_datalist_clear(&attribs); silc_mime_add_field(p, "Content-Type", type); /* Add content transfer encoding */ silc_mime_add_field(p, "Content-Transfer-Encoding", "binary"); silc_mime_add_data(p, img, imglen); parts = silc_dlist_init(); silc_dlist_add(parts, p); g_datalist_clear(&attribs); /* Check for text after the image(s) */ if (images && last && *last) { char *tmp = purple_unescape_html(last); silc_mime_add_field(p, "Content-Type", "text/plain; charset=utf-8"); silc_mime_add_data(p, (const unsigned char *)tmp, strlen(tmp)); parts = silc_dlist_init(); silc_dlist_add(parts, p); /* If there weren't any images, don't return anything. */ silc_dlist_uninit(parts); if (silc_dlist_count(parts) > 1) { /* Multipart MIME message */ mime = silc_mime_alloc(); silc_mime_add_field(mime, "MIME-Version", "1.0"); g_snprintf(b, sizeof(b), "b%4X%4X", (unsigned int)time(NULL), silc_dlist_count(parts)); silc_mime_set_multipart(mime, "mixed", b); while ((p = silc_dlist_get(parts)) != SILC_LIST_END) silc_mime_add_multipart(mime, p); /* Simple MIME message */ mime = silc_dlist_get(parts); silc_mime_add_field(mime, "MIME-Version", "1.0"); *mflags &= ~SILC_MESSAGE_FLAG_UTF8; *mflags |= SILC_MESSAGE_FLAG_DATA; /* Encode message. Fragment if it is too large */ list = silc_mime_encode_partial(mime, 0xfc00); silc_dlist_uninit(parts); /* Added multiparts gets freed here */