Mercurial > pidgin.yaz
diff src/protocols/irc/irc.c @ 2086:424a40f12a6c
[gaim-migrate @ 2096]
moving protocols from plugins/ to src/protocols. making it so that you can select which protocols are compiled statically.
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Tue, 31 Jul 2001 01:00:39 +0000 |
parents | |
children | b66aca8e8dce |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/protocols/irc/irc.c Tue Jul 31 01:00:39 2001 +0000 @@ -0,0 +1,2141 @@ +/* + * gaim - IRC Protocol Plugin + * + * Copyright (C) 2000-2001, Rob Flynn <rob@tgflinux.com> + * 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 + * + */ + +#include "../config.h" + + +#include <netdb.h> +#include <gtk/gtk.h> +#include <unistd.h> +#include <errno.h> +#include <netinet/in.h> +#include <arpa/inet.h> +#include <fcntl.h> +#include <string.h> +#include <stdlib.h> +#include <stdio.h> +#include <time.h> +#include <sys/socket.h> +#include <sys/stat.h> +#include <ctype.h> +#include "multi.h" +#include "prpl.h" +#include "gaim.h" +#include "proxy.h" + +#include "pixmaps/free_icon.xpm" + +#define IRC_BUF_LEN 4096 + + +#define USEROPT_SERV 0 +#define USEROPT_PORT 1 + +static int chat_id = 0; + +struct irc_channel { + int id; + gchar *name; +}; + +struct irc_data { + int fd; + int inpa; /* used for non-block logins */ + + int timer; + + int totalblocks; + int recblocks; + + GSList *templist; + GList *channels; +}; + +static char *irc_name() +{ + return "IRC"; +} + +static void irc_get_info(struct gaim_connection *gc, char *who); + +static void irc_join_chat(struct gaim_connection *gc, int id, char *name) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + gchar *buf = (gchar *) g_malloc(IRC_BUF_LEN + 1); + + g_snprintf(buf, IRC_BUF_LEN, "JOIN %s\n", name); + write(idata->fd, buf, strlen(buf)); + write(idata->fd, buf, strlen(buf)); + + g_free(buf); +} + +static void irc_update_user(struct gaim_connection *gc, char *name, int status) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + struct irc_channel *u; + GSList *temp = idata->templist; + + /* Loop through our list */ + + while (temp) { + u = (struct irc_channel *)temp->data; + if (g_strcasecmp(u->name, name) == 0) { + u->id = status; + return; + } + + temp = g_slist_next(temp); + } + return; +} + +static void irc_request_buddy_update(struct gaim_connection *gc) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + GSList *grp = gc->groups; + GSList *person; + struct group *g; + struct buddy *b; + struct irc_channel *u; + + if (idata->templist != NULL) + return; + + idata->recblocks = 0; + idata->totalblocks = 1; + + /* First, let's check to see if we have anyone on our buddylist */ + if (!grp) { + return; + } + + /* Send the first part of our request */ + write(idata->fd, "ISON", 4); + + /* Step through our list of groups */ + while (grp) { + + g = (struct group *)grp->data; + person = g->members; + + while (person) { + b = (struct buddy *)person->data; + + /* We will store our buddy info here. I know, this is cheap + * but hey, its the exact same data structure. Why should we + * bother with making another one */ + + u = g_new0(struct irc_channel, 1); + u->id = 0; /* Assume by default that they're offline */ + u->name = strdup(b->name); + + write(idata->fd, " ", 1); + write(idata->fd, u->name, strlen(u->name)); + idata->templist = g_slist_append(idata->templist, u); + + person = person->next; + } + + grp = g_slist_next(grp); + } + write(idata->fd, "\n", 1); +} + + +static void irc_send_im(struct gaim_connection *gc, char *who, char *message, int away) +{ + + struct irc_data *idata = (struct irc_data *)gc->proto_data; + gchar *buf = (gchar *) g_malloc(IRC_BUF_LEN + 1); + + if (who[0] == '@' || who[0] == '+') { + + /* If the user trys to msg an op or a voice from the channel, the convo will try + * to send it to @nick or +nick... needless to say, this is undesirable. + */ + who++; + } + + /* Before we actually send this, we should check to see if they're trying + * To issue a command and handle it properly. */ + + if (message[0] == '/') { + /* I'll change the implementation of this a little later :-) */ + if ((g_strncasecmp(message, "/me ", 4) == 0) && (strlen(message) > 4)) { + /* We have /me!! We have /me!! :-) */ + + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 4); + g_snprintf(buf, IRC_BUF_LEN, "PRIVMSG %s :%cACTION %s%c\n", who, '\001', temp, + '\001'); + g_free(temp); + } else if (!g_strncasecmp(message, "/whois ", 7) && (strlen(message) > 7)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 7); + irc_get_info(gc, temp); + g_free(temp); + + return; + } + + } else { + g_snprintf(buf, IRC_BUF_LEN, "PRIVMSG %s :%s\n", who, message); + } + + write(idata->fd, buf, strlen(buf)); + + g_free(buf); +} + +static int find_id_by_name(struct gaim_connection *gc, char *name) +{ + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + GList *templist; + struct irc_channel *channel; + + templist = ((struct irc_data *)gc->proto_data)->channels; + + while (templist) { + channel = (struct irc_channel *)templist->data; + + g_snprintf(temp, IRC_BUF_LEN, "#%s", channel->name); + + if (g_strcasecmp(temp, name) == 0) { + g_free(temp); + return channel->id; + } + + templist = templist->next; + } + + g_free(temp); + + /* Return -1 if we have no ID */ + return -1; +} + +static struct irc_channel *find_channel_by_name(struct gaim_connection *gc, char *name) +{ + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + GList *templist; + struct irc_channel *channel; + + templist = ((struct irc_data *)gc->proto_data)->channels; + + while (templist) { + channel = (struct irc_channel *)templist->data; + + g_snprintf(temp, IRC_BUF_LEN, "%s", channel->name); + + if (g_strcasecmp(temp, name) == 0) { + g_free(temp); + return channel; + } + + templist = templist->next; + } + + g_free(temp); + + /* If we found nothing, return nothing :-) */ + return NULL; +} + +static struct irc_channel *find_channel_by_id(struct gaim_connection *gc, int id) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + struct irc_channel *channel; + + GList *temp; + + temp = idata->channels; + + while (temp) { + channel = (struct irc_channel *)temp->data; + + if (channel->id == id) { + /* We've found our man */ + return channel; + } + + temp = temp->next; + } + + + /* If we didnt find one, return NULL */ + return NULL; +} + +static struct conversation *find_chat(struct gaim_connection *gc, char *name) +{ + GSList *bcs = gc->buddy_chats; + struct conversation *b = NULL; + char *chat = g_strdup(normalize(name)); + + while (bcs) { + b = bcs->data; + if (!strcasecmp(normalize(b->name), chat)) + break; + b = NULL; + bcs = bcs->next; + } + + g_free(chat); + return b; +} + +static void irc_chat_leave(struct gaim_connection *gc, int id); +static void irc_chat_send(struct gaim_connection *gc, int id, char *message) +{ + + struct irc_data *idata = (struct irc_data *)gc->proto_data; + struct irc_channel *channel = NULL; + gchar *buf = (gchar *) g_malloc(IRC_BUF_LEN + 1); + char **kick; + gboolean is_command = FALSE; + /* First lets get our current channel */ + channel = find_channel_by_id(gc, id); + + + if (!channel) { + /* If for some reason we've lost our channel, let's bolt */ + g_free(buf); + return; + } + + + /* Before we actually send this, we should check to see if they're trying + * To issue a command and handle it properly. */ + + if (message[0] == '/') { + + if ((g_strncasecmp(message, "/me ", 4) == 0) && (strlen(message) > 4)) { + /* We have /me!! We have /me!! :-) */ + + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 4); + + g_snprintf(buf, IRC_BUF_LEN, "PRIVMSG #%s :%cACTION %s%c\n", channel->name, + '\001', temp, '\001'); + g_free(temp); + } else if ((g_strncasecmp(message, "/op ", 4) == 0) && (strlen(message) > 4)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 4); + + g_snprintf(buf, IRC_BUF_LEN, "MODE #%s +o %s\n", channel->name, temp); + + g_free(temp); + is_command = TRUE; + + } else if ((g_strncasecmp(message, "/deop ", 6) == 0) && (strlen(message) > 6)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 6); + g_snprintf(buf, IRC_BUF_LEN, "MODE #%s -o %s\n", channel->name, temp); + + g_free(temp); + is_command = TRUE; + } + + else if ((g_strncasecmp(message, "/voice ", 7) == 0) && (strlen(message) > 7)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 7); + + g_snprintf(buf, IRC_BUF_LEN, "MODE #%s +v %s\n", channel->name, temp); + + g_free(temp); + is_command = TRUE; + + } else if ((g_strncasecmp(message, "/devoice ", 9) == 0) && (strlen(message) > 9)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 6); + g_snprintf(buf, IRC_BUF_LEN, "MODE #%s -v %s\n", channel->name, temp); + + g_free(temp); + is_command = TRUE; + } else if ((g_strncasecmp(message, "/mode ", 6) == 0) && (strlen(message) > 6)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 6); + g_snprintf(buf, IRC_BUF_LEN, "MODE #%s %s\n", channel->name, temp); + g_free(temp); + is_command = TRUE; + } + + else if (!g_strncasecmp(message, "/whois ", 7) && (strlen(message) > 7)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + + strcpy(temp, message + 7); + irc_get_info(gc, temp); + g_free(temp); + is_command = TRUE; + + } + + else if (!g_strncasecmp(message, "/topic ", 7) && (strlen(message) > 7)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 7); + + /* Send the chat topic change request */ + serv_chat_set_topic(gc, id, temp); + + g_free(temp); + is_command = TRUE; + } + + else if (!g_strncasecmp(message, "/part", 5) && (strlen(message) == 5)) { + + /* If I'm not mistaken, the chat_leave command was coded under the + * pretense that it would only occur when someone closed the window. + * For this reason, the /part command will not close the window. Nor + * will the window close when the user is /kicked. I'll let you decide + * the best way to fix it--I'd imagine it'd just be a little line like + * if (convo) close (convo), but I'll let you decide where to put it. + */ + + irc_chat_leave(gc, id); + is_command = TRUE; + return; + + + } + + else if (!g_strncasecmp(message, "/join ", 6) && (strlen(message) > 6)) { + + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + + strcpy(temp, message + 6); + + + irc_join_chat(gc, 0, temp); + g_free(temp); + is_command = TRUE; + return; + } + + else if (!g_strncasecmp(message, "/raw ", 5) && (strlen(message) > 5)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 5); + g_snprintf(buf, IRC_BUF_LEN, "%s\r\n", temp); + g_free(temp); + is_command = TRUE; + } + + else if (!g_strncasecmp(message, "/quote ", 7) && (strlen(message) > 7)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 7); + g_snprintf(buf, IRC_BUF_LEN, "%s\r\n", temp); + g_free(temp); + is_command = TRUE; + } + + else if (!g_strncasecmp(message, "/kick ", 6) && (strlen(message) > 6)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 6); + kick = g_strsplit(temp, " ", 2); + g_snprintf(buf, IRC_BUF_LEN, "KICK #%s %s :%s\r\n", channel->name, kick[0], + kick[1]); + g_free(temp); + is_command = TRUE; + } + +/* FIXME: I'll go back in and grab this later. -- Rob */ +/* +I THOUGHT THIS WOULD WORK, BUT I WAS WRONG. WOULD SOMEONE KINDLY FIX IT? + + + else if (!g_strncasecmp(message, "/help", 5)) { + gchar *temp = (gchar *) g_malloc(IRC_BUF_LEN + 1); + strcpy(temp, message + 5); + if (temp == "") { + + serv_got_chat_in(gc, id, "gAIM", 0, "Available Commands:"); + serv_got_chat_in(gc, id, "gAIM", 0, " "); + serv_got_chat_in(gc, id, "gAIM", 0, "<b>op voice kick </b>"); + serv_got_chat_in(gc, id, "gAIM", 0, "<b>deop devoice whois</b>"); + serv_got_chat_in(gc, id, "gAIM", 0, "<b>me raw quote</b>"); + serv_got_chat_in(gc, id, "gAIM", 0, "<b>mode</b>"); + } + else { + serv_got_chat_in(gc, id, "gAIM", 0, "Usage: "); + if (temp == "op") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/op <nick></b> - Gives operator status to user."); + else if (temp == "deop") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/deop <nick></b> - Removes operator status from user."); + else if (temp == "me") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/me <action></b> - Sends an action to the channel."); + else if (temp == "mode") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/mode {[+|-}|o|p|s|i|t|n|b|v} [<limit][<nick>][<ban mask]</b> - Changes channel and user modes."); + else if (temp == "voice") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/voice <nick></b> - Gives voice status to user."); + else if (temp == "devoice") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/devoice <nick></b> - Removes voice status from user."); + else if (temp == "raw") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/raw <text></b> - Sends raw text to the server."); + else if (temp == "kick") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/kick [<comment>]</b> - Kicks a user out of the channel."); + else if (temp == "whois") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/whois <nick></b> - Gets information about user."); + else if (temp == "quote") + serv_got_chat_in(gc, id, "gAIM", 0, "<b>/raw <text></b> - Sends raw text to the server."); + else + serv_got_chat_in(gc, id, "gAIM", 0, "No such command."); + } + + g_free(temp); + is_command = TRUE; + } +*/ + + } + + else { + g_snprintf(buf, IRC_BUF_LEN, "PRIVMSG #%s :%s\n", channel->name, message); + + } + + + write(idata->fd, buf, strlen(buf)); + + /* Since AIM expects us to receive the message we send, we gotta fake it */ + if (is_command == FALSE) + serv_got_chat_in(gc, id, gc->username, 0, message, time((time_t) NULL)); + + g_free(buf); + + +} +static struct conversation *find_conversation_by_id(struct gaim_connection *gc, int id) +{ + GSList *bc = gc->buddy_chats; + struct conversation *b = NULL; + + while (bc) { + b = (struct conversation *)bc->data; + if (id == b->id) { + break; + } + bc = bc->next; + b = NULL; + } + + if (!b) { + return NULL; + } + + return b; +} + +static struct conversation *find_conversation_by_name(struct gaim_connection *gc, char *name) +{ + GSList *bc = gc->buddy_chats; + struct conversation *b = NULL; + + while (bc) { + b = (struct conversation *)bc->data; + + if (g_strcasecmp(name, b->name) == 0) { + break; + } + bc = bc->next; + b = NULL; + } + + if (!b) { + return NULL; + } + + return b; +} + + + +static void irc_callback(gpointer data, gint source, GdkInputCondition condition) +{ + struct gaim_connection *gc = data; + int i = 0; + gchar buf[4096]; + gchar **buf2; + struct irc_data *idata; + + idata = (struct irc_data *)gc->proto_data; + + + do { + if (read(idata->fd, buf + i, 1) < 0) { + hide_login_progress(gc, "Read error"); + signoff(gc); + return; + } + } while (buf[i++] != '\n'); + + buf[--i] = '\0'; + g_strchomp(buf); + g_print("%s\n", buf); + + /* Check for errors */ + + if (((strstr(buf, "ERROR :") && (!strstr(buf, "PRIVMSG ")) && + (!strstr(buf, "NOTICE ")) && (strlen(buf) > 7)))) { + + gchar *u_errormsg; + + /* Let's get our error message */ + u_errormsg = g_strdup(buf + 7); + + /* We got our error message. Now, let's reaise an + * error dialog */ + + do_error_dialog(u_errormsg, "Gaim: IRC Error"); + + /* And our necessary garbage collection */ + g_free(u_errormsg); + return; + } + + /* This should be a whois response. I only care about the first (311) one. I might do + * the other's later. They're boring. */ + + if (((strstr(buf, " 311 ")) && (!strstr(buf, "PRIVMSG")) && (!strstr(buf, "NOTICE")))) { + char **res; + + res = g_strsplit(buf, " ", 7); + + if (!strcmp(res[1], "311")) { + char buf[8192]; + + g_snprintf(buf, 4096, "<b>Nick:</b> %s<br>" + "<b>Host:</b> %s@%s<br>" + "<b>Name:</b> %s<br>", res[3], res[4], res[5], res[7] + 1); + + g_show_info_text(buf); + } + + g_strfreev(res); + return; + } + + /* Autoresponse to an away message */ + if (((strstr(buf, " 301 ")) && (!strstr(buf, "PRIVMSG")) && (!strstr(buf, "NOTICE")))) { + char **res; + + res = g_strsplit(buf, " ", 5); + + if (!strcmp(res[1], "301")) + serv_got_im(gc, res[3], res[4] + 1, 1, time((time_t) NULL)); + + g_strfreev(res); + return; + } + + /* Parse the list of names that we receive when we first sign on to + * a channel */ + + if (((strstr(buf, " 353 ")) && (!strstr(buf, "PRIVMSG")) && (!strstr(buf, "NOTICE")))) { + gchar u_host[255]; + gchar u_command[32]; + gchar u_channel[128]; + gchar u_names[IRC_BUF_LEN + 1]; + struct conversation *convo = NULL; + int j; + + for (j = 0, i = 0; buf[i] != ' '; j++, i++) { + u_host[j] = buf[i]; + } + + u_host[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_command[j] = buf[i]; + } + + u_command[j] = '\0'; + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + i++; + + for (j = 0; buf[i] != ':'; j++, i++) { + u_channel[j] = buf[i]; + } + + u_channel[j - 1] = '\0'; + i++; + + while ((buf[i] == ' ') || (buf[i] == ':')) { + i++; + } + + strcpy(u_names, buf + i); + + buf2 = g_strsplit(u_names, " ", 0); + + /* Let's get our conversation window */ + convo = find_conversation_by_name(gc, u_channel); + + if (!convo) { + return; + } + + /* Now that we've parsed the hell out of this big + * mess, let's try to split up the names properly */ + + for (i = 0; buf2[i] != NULL; i++) + add_chat_buddy(convo, buf2[i]); + + /* And free our pointers */ + g_strfreev(buf2); + + return; + + } + + /* Receive a list of users that are currently online */ + + if (((strstr(buf, " 303 ")) && (!strstr(buf, "PRIVMSG")) && (!strstr(buf, "NOTICE")))) { + gchar u_host[255]; + gchar u_command[32]; + gchar u_names[IRC_BUF_LEN + 1]; + int j; + + for (j = 0, i = 0; buf[i] != ' '; j++, i++) { + u_host[j] = buf[i]; + } + + u_host[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_command[j] = buf[i]; + } + + u_command[j] = '\0'; + i++; + + for (j = 0; buf[i] != ':'; j++, i++) { + /* My Nick */ + } + i++; + + strcpy(u_names, buf + i); + + buf2 = g_strsplit(u_names, " ", 0); + + /* Now that we've parsed the hell out of this big + * mess, let's try to split up the names properly */ + + for (i = 0; buf2[i] != NULL; i++) { + /* If we have a name here then our buddy is online. We should + * update our temporary gslist accordingly. When we achieve our maximum + * list of names then we should force an update */ + + irc_update_user(gc, buf2[i], 1); + } + + /* Increase our received blocks counter */ + idata->recblocks++; + + /* If we have our total number of blocks */ + if (idata->recblocks == idata->totalblocks) { + GSList *temp; + struct irc_channel *u; + + /* Let's grab our list of people and bring them all on or off line */ + temp = idata->templist; + + /* Loop */ + while (temp) { + + u = temp->data; + + /* Tell Gaim to bring the person on or off line */ + serv_got_update(gc, u->name, u->id, 0, 0, 0, 0, 0); + + /* Grab the next entry */ + temp = g_slist_next(temp); + } + + /* And now, let's delete all of our entries */ + temp = idata->templist; + while (temp) { + u = temp->data; + g_free(u->name); + temp = g_slist_remove(temp, u); + } + + /* Reset our list */ + idata->totalblocks = 0; + idata->recblocks = 0; + + idata->templist = NULL; + + return; + } + + /* And free our pointers */ + g_strfreev(buf2); + + return; + + } + + + if ((strstr(buf, " MODE ")) && (strstr(buf, "!")) + && (strstr(buf, "+v") || strstr(buf, "-v") || strstr(buf, "-o") || strstr(buf, "+o")) + && (buf[0] == ':') && (!strstr(buf, " NOTICE "))) { + + gchar u_channel[128]; + gchar u_nick[128]; + + gchar u_mode[5]; + char **people; + gchar *temp, *temp_new; + + + struct irc_channel *channel; + int j; + temp = NULL; + temp_new = NULL; + + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + u_nick[j] = '\0'; + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_channel[j] = buf[i]; + } + + u_channel[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_mode[j] = buf[i]; + } + u_mode[j] = '\0'; + i++; + + + + + people = g_strsplit(buf + i, " ", 3); + + + + channel = find_channel_by_name(gc, u_channel); + + if (!channel) { + return; + } + + for (j = 0; j < strlen(u_mode) - 1; j++) { + + + struct conversation *convo = NULL; + convo = find_conversation_by_id(gc, channel->id); + + + + temp = (gchar *) g_malloc(strlen(people[j]) + 3); + temp_new = (gchar *) g_malloc(strlen(people[j]) + 3); + g_snprintf(temp, strlen(people[j]) + 2, "@%s", people[j]); + + if (u_mode[1] == 'v' && u_mode[0] == '+') { + g_snprintf(temp_new, strlen(people[j]) + 2, "+%s", people[j]); + } else if (u_mode[1] == 'o' && u_mode[0] == '+') { + g_snprintf(temp_new, strlen(people[j]) + 2, "@%s", people[j]); + } + + else if (u_mode[0] == '-') { + g_snprintf(temp_new, strlen(people[j]) + 1, "%s", people[j]); + } + + + + rename_chat_buddy(convo, temp, temp_new); + g_snprintf(temp, strlen(people[j]) + 2, "+%s", people[j]); + rename_chat_buddy(convo, temp, temp_new); + + rename_chat_buddy(convo, people[j], temp_new); + + + + + + } + if (temp) + g_free(temp); + if (temp_new) + g_free(temp_new); + + return; + } + + + if ((strstr(buf, " KICK ")) && (strstr(buf, "!")) && (buf[0] == ':') + && (!strstr(buf, " NOTICE "))) { + gchar u_channel[128]; + gchar u_nick[128]; + gchar u_comment[128]; + gchar u_who[128]; + + int id; + + gchar *temp; + + + + struct irc_channel *channel; + int j; + + temp = NULL; + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + u_nick[j] = '\0'; + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_channel[j] = buf[i]; + } + + u_channel[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_who[j] = buf[i]; + } + u_who[j] = '\0'; + i++; + i++; + strcpy(u_comment, buf + i); + g_strchomp(u_comment); + + channel = find_channel_by_name(gc, u_channel); + + if (!channel) { + return; + } + + + id = find_id_by_name(gc, u_channel); + + + if (g_strcasecmp(u_nick, gc->username) == 0) { + + /* It looks like you've been naughty! */ + + serv_got_chat_left(gc, channel->id); + + idata->channels = g_list_remove(idata->channels, channel); + } else { + struct conversation *convo = NULL; + + /* Find their conversation window */ + convo = find_conversation_by_id(gc, channel->id); + + if (!convo) { + /* Some how the window doesn't exist. + * Let's get out of here */ + return; + } + + /* And remove their name */ + /* If the person is an op or voice, this won't work. + * so we'll just do a nice hack and remove nick and + * @nick and +nick. Truly wasteful. + */ + + temp = (gchar *) g_malloc(strlen(u_who) + 3); + g_snprintf(temp, strlen(u_who) + 2, "@%s", u_who); + remove_chat_buddy(convo, temp); + g_free(temp); + temp = (gchar *) g_malloc(strlen(u_who) + 3); + g_snprintf(temp, strlen(u_who) + 2, "+%s", u_who); + remove_chat_buddy(convo, temp); + remove_chat_buddy(convo, u_who); + + g_free(temp); + + } + + /* Go Home! */ + return; + } + + if ((strstr(buf, " TOPIC ")) && (buf[0] == ':') && (!strstr(buf, " NOTICE "))) { + + gchar u_channel[128]; + gchar u_nick[128]; + gchar u_topic[128]; + int j; + struct conversation *chatroom = NULL; + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + u_nick[j] = 0; + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + if (buf[i] == '\0') + break; + + u_channel[j] = buf[i]; + } + + for (j = 0; buf[i] != ':'; j++, i++) { + } + i++; + + strcpy(u_topic, buf + i); + g_strchomp(u_topic); + + chatroom = find_chat(gc, u_channel); + + if (!chatroom) + return; + + chat_set_topic(chatroom, u_nick, u_topic); + + return; + } + + + if ((strstr(buf, " JOIN ")) && (strstr(buf, "!")) && (buf[0] == ':') + && (!strstr(buf, " NOTICE "))) { + + gchar u_channel[128]; + gchar u_nick[128]; + + struct irc_channel *channel; + int j; + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + + u_nick[j] = '\0'; + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + + i++; + + strcpy(u_channel, buf + i); + + g_strchomp(u_channel); + + /* Looks like we're going to join the channel for real + * now. Let's create a valid channel structure and add + * it to our list. Let's make sure that + * we are not already in a channel first */ + + channel = find_channel_by_name(gc, u_channel); + + if (!channel) { + + chat_id++; + + channel = g_new0(struct irc_channel, 1); + + channel->id = chat_id; + channel->name = strdup(u_channel); + + idata->channels = g_list_append(idata->channels, channel); + + serv_got_joined_chat(gc, chat_id, u_channel); + } else { + struct conversation *convo = NULL; + + /* Someone else joined. Find their conversation + * window */ + convo = find_conversation_by_id(gc, channel->id); + + /* And add their name to it */ + add_chat_buddy(convo, u_nick); + + } + + return; + } + + if ((strstr(buf, " NICK ")) && (strstr(buf, "!")) && (buf[0] == ':') + && (!strstr(buf, " NOTICE "))) { + + gchar old[128]; + gchar new[128]; + + GList *templist; + gchar *temp, *temp_new; + struct irc_channel *channel; + int j; + temp = temp_new = NULL; + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + old[j] = buf[i]; + } + + old[j] = '\0'; + i++; + + for (j = 0; buf[i] != ':'; j++, i++) { + } + + i++; + strcpy(new, buf + i); + + g_strchomp(new); + + templist = ((struct irc_data *)gc->proto_data)->channels; + + while (templist) { + struct conversation *convo = NULL; + channel = templist->data; + + convo = find_conversation_by_id(gc, channel->id); + + /* If the person is an op or voice, this won't work. + * so we'll just do a nice hack and rename nick and + * @nick and +nick. Truly wasteful. + */ + + temp = (gchar *) g_malloc(strlen(old) + 5); + temp_new = (gchar *) g_malloc(strlen(new) + 5); + g_snprintf(temp_new, strlen(new) + 2, "@%s", new); + g_snprintf(temp, strlen(old) + 2, "@%s", old); + rename_chat_buddy(convo, temp, temp_new); + g_snprintf(temp, strlen(old) + 2, "+%s", old); + g_snprintf(temp_new, strlen(new) + 2, "+%s", new); + rename_chat_buddy(convo, temp, temp_new); + rename_chat_buddy(convo, old, new); + if (temp) + g_free(temp); + if (temp_new) + g_free(temp_new); + + templist = templist->next; + } + return; + } + + + if ((strstr(buf, "QUIT ")) && (buf[0] == ':') && (strstr(buf, "!")) + && (!strstr(buf, " NOTICE "))) { + + gchar u_nick[128]; + gchar *temp; + GList *templist; + + struct irc_channel *channel; + int j; + + + temp = NULL; + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + + u_nick[j] = '\0'; + + templist = ((struct irc_data *)gc->proto_data)->channels; + + while (templist) { + struct conversation *convo = NULL; + channel = templist->data; + + convo = find_conversation_by_id(gc, channel->id); + + /* If the person is an op or voice, this won't work. + * so we'll just do a nice hack and remove nick and + * @nick and +nick. Truly wasteful. + */ + + temp = (gchar *) g_malloc(strlen(u_nick) + 2); + g_snprintf(temp, strlen(u_nick) + 2, "@%s", u_nick); + remove_chat_buddy(convo, temp); + g_free(temp); + temp = (gchar *) g_malloc(strlen(u_nick) + 2); + g_snprintf(temp, strlen(u_nick) + 2, "+%s", u_nick); + remove_chat_buddy(convo, temp); + remove_chat_buddy(convo, u_nick); + + + + templist = templist->next; + } + + g_free(temp); + + return; + } + + + + if ((strstr(buf, " PART ")) && (strstr(buf, "!")) && (buf[0] == ':') + && (!strstr(buf, " NOTICE "))) { + + gchar u_channel[128]; + gchar u_nick[128]; + gchar *temp; + struct irc_channel *channel; + int j; + temp = NULL; + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + u_nick[j] = '\0'; + + i++; + + for (j = 0; buf[i] != '#'; j++, i++) { + } + + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + if (buf[i] == '\0') { + break; + } + u_channel[j] = buf[i]; + } + u_channel[j] = '\0'; + + /* Now, lets check to see if it was US that was leaving. + * If so, do the correct thing by closing up all of our + * old channel stuff. Otherwise, + * we should just print that someone left */ + + channel = find_channel_by_name(gc, u_channel); + + if (!channel) { + return; + } + + if (g_strcasecmp(u_nick, gc->username) == 0) { + + /* Looks like we're going to leave the channel for + * real now. Let's create a valid channel structure + * and add it to our list */ + + serv_got_chat_left(gc, channel->id); + + idata->channels = g_list_remove(idata->channels, channel); + } else { + struct conversation *convo = NULL; + + /* Find their conversation window */ + convo = find_conversation_by_id(gc, channel->id); + + if (!convo) { + /* Some how the window doesn't exist. + * Let's get out of here */ + return; + } + + /* And remove their name */ + /* If the person is an op or voice, this won't work. + * so we'll just do a nice hack and remove nick and + * @nick and +nick. Truly wasteful. + */ + + temp = (gchar *) g_malloc(strlen(u_nick) + 3); + g_snprintf(temp, strlen(u_nick) + 2, "@%s", u_nick); + remove_chat_buddy(convo, temp); + g_free(temp); + temp = (gchar *) g_malloc(strlen(u_nick) + 3); + g_snprintf(temp, strlen(u_nick) + 2, "+%s", u_nick); + remove_chat_buddy(convo, temp); + g_free(temp); + remove_chat_buddy(convo, u_nick); + + + } + + /* Go Home! */ + return; + } + + if ((strstr(buf, " NOTICE ")) && (buf[0] == ':')) { + gchar u_nick[128]; + gchar u_host[255]; + gchar u_command[32]; + gchar u_channel[128]; + gchar u_message[IRC_BUF_LEN]; + int j; + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + + u_nick[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_host[j] = buf[i]; + } + + u_host[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_command[j] = buf[i]; + } + + u_command[j] = '\0'; + i++; + + for (j = 0; buf[i] != ':'; j++, i++) { + u_channel[j] = buf[i]; + } + + u_channel[j - 1] = '\0'; + i++; + + + /* Now that everything is parsed, the rest of this baby must be our message */ + strncpy(u_message, buf + i, IRC_BUF_LEN); + + /* Now, lets check the message to see if there's anything special in it */ + if (u_message[0] == '\001') { + if ((g_strncasecmp(u_message, "\001PING ", 6) == 0) && (strlen(u_message) > 6)) { + /* Someone's triyng to ping us. Let's respond */ + gchar u_arg[24]; + gchar u_buf[200]; + unsigned long tend = time((time_t *) NULL); + unsigned long tstart; + + printf("LA: %s\n", buf); + + strcpy(u_arg, u_message + 6); + u_arg[strlen(u_arg) - 1] = '\0'; + + tstart = atol(u_arg); + + g_snprintf(u_buf, sizeof(u_buf), "Ping Reply From %s: [%ld seconds]", + u_nick, tend - tstart); + + do_error_dialog(u_buf, "Gaim IRC - Ping Reply"); + + return; + } + } + + } + + + if ((strstr(buf, " PRIVMSG ")) && (buf[0] == ':')) { + gchar u_nick[128]; + gchar u_host[255]; + gchar u_command[32]; + gchar u_channel[128]; + gchar u_message[IRC_BUF_LEN]; + gboolean is_closing; + + int j; + + + for (j = 0, i = 1; buf[i] != '!'; j++, i++) { + u_nick[j] = buf[i]; + } + + u_nick[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_host[j] = buf[i]; + } + + u_host[j] = '\0'; + i++; + + for (j = 0; buf[i] != ' '; j++, i++) { + u_command[j] = buf[i]; + } + + u_command[j] = '\0'; + i++; + + for (j = 0; buf[i] != ':'; j++, i++) { + u_channel[j] = buf[i]; + } + + u_channel[j - 1] = '\0'; + i++; + + + /* Now that everything is parsed, the rest of this baby must be our message */ + strncpy(u_message, buf + i, IRC_BUF_LEN); + + /* Now, lets check the message to see if there's anything special in it */ + if (u_message[0] == '\001') { + if (g_strncasecmp(u_message, "\001VERSION", 8) == 0) { + /* Looks like we have a version request. Let + * us handle it thusly */ + + g_snprintf(buf, IRC_BUF_LEN, + "NOTICE %s :%cVERSION GAIM %s:The Pimpin Penguin AIM Clone:%s%c\n", + u_nick, '\001', VERSION, WEBSITE, '\001'); + + write(idata->fd, buf, strlen(buf)); + + /* And get the heck out of dodge */ + return; + } + + if ((g_strncasecmp(u_message, "\001PING ", 6) == 0) && (strlen(u_message) > 6)) { + /* Someone's triyng to ping us. Let's respond */ + gchar u_arg[24]; + + strcpy(u_arg, u_message + 6); + u_arg[strlen(u_arg) - 1] = '\0'; + + g_snprintf(buf, IRC_BUF_LEN, "NOTICE %s :%cPING %s%c\n", u_nick, '\001', + u_arg, '\001'); + + write(idata->fd, buf, strlen(buf)); + + /* And get the heck out of dodge */ + return; + } + + if (g_strncasecmp(u_message, "\001ACTION ", 8) == 0) { + /* Looks like we have an action. Let's parse it a little */ + strcpy(buf, u_message); + + strcpy(u_message, "/me "); + for (j = 4, i = 8; buf[i] != '\001'; i++, j++) { + u_message[j] = buf[i]; + } + u_message[j] = '\0'; + } + } + + + /* OK, It is a chat or IM message. Here, let's translate the IRC formatting into + * good ol' fashioned gtkimhtml style hypertext markup. */ + + + is_closing = FALSE; + + while (strchr(u_message, '\002')) { /* \002 = ^B */ + gchar *current; + gchar *temp, *free_here; + + + temp = g_strdup(strchr(u_message, '\002')); + free_here = temp; + temp++; + + current = strchr(u_message, '\002'); + *current = '<'; + current++; + if (is_closing) { + *current = '/'; + current++; + } + *current = 'b'; + current++; + *current = '>'; + current++; + + + while (*temp != '\0') { + *current = *temp; + current++; + temp++; + } + *current = '\0'; + g_free(free_here); + + is_closing = !is_closing; + } + + is_closing = FALSE; + while (strchr(u_message, '\037')) { /* \037 = ^_ */ + gchar *current; + gchar *temp, *free_here; + + + temp = g_strdup(strchr(u_message, '\037')); + free_here = temp; + temp++; + + current = strchr(u_message, '\037'); + *current = '<'; + current++; + if (is_closing) { + *current = '/'; + current++; + } + *current = 'u'; + current++; + *current = '>'; + current++; + + + while (*temp != '\0') { + *current = *temp; + current++; + temp++; + } + *current = '\0'; + g_free(free_here); + is_closing = !is_closing; + + } + + while (strchr(u_message, '\003')) { /* \003 = ^C */ + + /* This is color formatting. IRC uses its own weird little system + * that we must translate to HTML. */ + + + /* The format is something like this: + * ^C5 or ^C5,3 + * The number before the comma is the foreground color, after is the + * background color. Either number can be 1 or two digits. + */ + + gchar *current; + gchar *temp, *free_here; + gchar *font_tag, *body_tag; + int fg_color, bg_color; + + temp = g_strdup(strchr(u_message, '\003')); + free_here = temp; + temp++; + + fg_color = bg_color = -1; + body_tag = font_tag = ""; + + /* Parsing the color information: */ + do { + if (!isdigit(*temp)) + break; /* This translates to </font> */ + fg_color = (int)(*temp - 48); + temp++; + if (isdigit(*temp)) { + fg_color = (fg_color * 10) + (int)(*temp - 48); + temp++; + } + if (*temp != ',') + break; + temp++; + if (!isdigit(*temp)) + break; /* This translates to </font> */ + bg_color = (int)(*temp - 48); + temp++; + if (isdigit(*temp)) { + bg_color = (bg_color * 10) + (int)(*temp - 48); + temp++; + } + } while (FALSE); + + if (fg_color > 15) + fg_color = fg_color % 16; + if (bg_color > 15) + bg_color = bg_color % 16; + + switch (fg_color) { + case -1: + font_tag = "</font></body>"; + break; + case 0: /* WHITE */ + font_tag = "<font color=\"#ffffff\">"; + /* If no background color is specified, we're going to make it black anyway. + * That's probably what the sender anticipated the background color to be. + * White on white would be illegible. + */ + if (bg_color == -1) { + body_tag = "<body bgcolor=\"#000000\">"; + } + break; + case 1: /* BLACK */ + font_tag = "<font color=\"#000000\">"; + break; + case 2: /* NAVY BLUE */ + font_tag = "<font color=\"#000066\">"; + break; + case 3: /* GREEN */ + font_tag = "<font color=\"#006600\">"; + break; + case 4: /* RED */ + font_tag = "<font color=\"#ff0000\">"; + break; + case 5: /* MAROON */ + font_tag = "<font color=\"#660000\">"; + break; + case 6: /* PURPLE */ + font_tag = "<font color=\"#660066\">"; + break; + case 7: /* DISGUSTING PUKE COLOR */ + font_tag = "<font color=\"#666600\">"; + break; + case 8: /* YELLOW */ + font_tag = "<font color=\"#cccc00\">"; + break; + case 9: /* LIGHT GREEN */ + font_tag = "<font color=\"#33cc33\">"; + break; + case 10: /* TEAL */ + font_tag = "<font color=\"#00acac\">"; + break; + case 11: /* CYAN */ + font_tag = "<font color=\"#00ccac\">"; + break; + case 12: /* BLUE */ + font_tag = "<font color=\"#0000ff\">"; + break; + case 13: /* PINK */ + font_tag = "<font color=\"#cc00cc\">"; + break; + case 14: /* GREY */ + font_tag = "<font color=\"#666666\">"; + break; + case 15: /* SILVER */ + font_tag = "<font color=\"#00ccac\">"; + break; + } + + switch (bg_color) { + case 0: /* WHITE */ + body_tag = "<body bgcolor=\"#ffffff\">"; + break; + case 1: /* BLACK */ + body_tag = "<body bgcolor=\"#000000\">"; + break; + case 2: /* NAVY BLUE */ + body_tag = "<body bgcolor=\"#000066\">"; + break; + case 3: /* GREEN */ + body_tag = "<body bgcolor=\"#006600\">"; + break; + case 4: /* RED */ + body_tag = "<body bgcolor=\"#ff0000\">"; + break; + case 5: /* MAROON */ + body_tag = "<body bgcolor=\"#660000\">"; + break; + case 6: /* PURPLE */ + body_tag = "<body bgcolor=\"#660066\">"; + break; + case 7: /* DISGUSTING PUKE COLOR */ + body_tag = "<body bgcolor=\"#666600\">"; + break; + case 8: /* YELLOW */ + body_tag = "<body bgcolor=\"#cccc00\">"; + break; + case 9: /* LIGHT GREEN */ + body_tag = "<body bgcolor=\"#33cc33\">"; + break; + case 10: /* TEAL */ + body_tag = "<body bgcolor=\"#00acac\">"; + break; + case 11: /* CYAN */ + body_tag = "<body bgcolor=\"#00ccac\">"; + break; + case 12: /* BLUE */ + body_tag = "<body bgcolor=\"#0000ff\">"; + break; + case 13: /* PINK */ + body_tag = "<body bgcolor=\"#cc00cc\">"; + break; + case 14: /* GREY */ + body_tag = "<body bgcolor=\"#666666\">"; + break; + case 15: /* SILVER */ + body_tag = "<body bgcolor=\"#00ccac\">"; + break; + } + + current = strchr(u_message, '\003'); + + while (*body_tag != '\0') { + *current = *body_tag; + current++; + body_tag++; + } + + while (*font_tag != '\0') { + *current = *font_tag; + current++; + font_tag++; + } + + while (*temp != '\0') { + *current = *temp; + current++; + temp++; + } + *current = '\0'; + g_free(free_here); + is_closing = !is_closing; + + } + + while (strchr(u_message, '\017')) { /* \017 = ^O */ + gchar *current; + gchar *temp, *free_here; + + + temp = g_strdup(strchr(u_message, '\017')); + free_here = temp; + temp++; + + current = strchr(u_message, '\017'); + *current = '<'; + current++; + *current = '/'; + current++; + *current = 'b'; + current++; + *current = '>'; + current++; + *current = '<'; + current++; + *current = '/'; + current++; + *current = 'u'; + current++; + *current = '>'; + current++; + + while (*temp != '\0') { + *current = *temp; + current++; + temp++; + } + *current = '\0'; + g_free(free_here); + } + + /* Let's check to see if we have a channel on our hands */ + if (u_channel[0] == '#') { + /* Yup. We have a channel */ + int id; + + id = find_id_by_name(gc, u_channel); + if (id != -1) { + serv_got_chat_in(gc, id, u_nick, 0, u_message, time((time_t) NULL)); + + } + + } else { + /* Nope. Let's treat it as a private message */ + + gchar *temp; + temp = NULL; + + temp = (gchar *) g_malloc(strlen(u_nick) + 5); + g_snprintf(temp, strlen(u_nick) + 2, "@%s", u_nick); + + + /* If I get a message from SeanEgn, and I already have a window + * open for him as @SeanEgn or +SeanEgn, this will keep it in the + * same window. Unfortunately, if SeanEgn loses his op status + * (a sad thing indeed), the messages will still appear to come from + * @SeanEgn, until that convo is closed. + */ + + if (find_conversation(temp)) { + serv_got_im(gc, temp, u_message, 0, time((time_t) NULL)); + g_free(temp); + return; + } else { + g_snprintf(temp, strlen(u_nick) + 2, "+%s", u_nick); + if (find_conversation(temp)) { + serv_got_im(gc, temp, u_message, 0, time((time_t) NULL)); + g_free(temp); + return; + } else { + g_free(temp); + serv_got_im(gc, u_nick, u_message, 0, time((time_t) NULL)); + return; + } + } + } + + return; + } + + /* Let's parse PING requests so that we wont get booted for inactivity */ + + if (strncmp(buf, "PING :", 6) == 0) { + buf2 = g_strsplit(buf, ":", 1); + + /* Let's build a new response */ + g_snprintf(buf, IRC_BUF_LEN, "PONG :%s\n", buf2[1]); + write(idata->fd, buf, strlen(buf)); + + /* And clean up after ourselves */ + g_strfreev(buf2); + + return; + } + +} + +static void irc_close(struct gaim_connection *gc) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + GList *chats = idata->channels; + struct irc_channel *cc; + + gchar *buf = (gchar *) g_malloc(IRC_BUF_LEN); + + g_snprintf(buf, IRC_BUF_LEN, "QUIT :Download GAIM [%s]\n", WEBSITE); + write(idata->fd, buf, strlen(buf)); + + g_free(buf); + + if (idata->timer) + gtk_timeout_remove(idata->timer); + + while (chats) { + cc = (struct irc_channel *)chats->data; + g_free(cc->name); + chats = g_list_remove(chats, cc); + g_free(cc); + } + + if (gc->inpa) + gdk_input_remove(gc->inpa); + + if (idata->inpa) + gdk_input_remove(idata->inpa); + + close(idata->fd); + g_free(gc->proto_data); +} + +static void irc_chat_leave(struct gaim_connection *gc, int id) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + struct irc_channel *channel; + gchar *buf = (gchar *) g_malloc(IRC_BUF_LEN + 1); + + channel = find_channel_by_id(gc, id); + + if (!channel) { + return; + } + + g_snprintf(buf, IRC_BUF_LEN, "PART #%s\n", channel->name); + write(idata->fd, buf, strlen(buf)); + + g_free(buf); +} + +static void irc_login_callback(gpointer data, gint source, GdkInputCondition condition) +{ + struct gaim_connection *gc = data; + struct irc_data *idata; + char buf[4096]; + + if (!g_slist_find(connections, gc)) { + close(source); + return; + } + + idata = gc->proto_data; + + if (source == -1) { + hide_login_progress(gc, "Write error"); + signoff(gc); + return; + } + + if (idata->fd != source) + idata->fd = source; + + g_snprintf(buf, 4096, "NICK %s\n USER %s localhost %s :GAIM (%s)\n", + gc->username, g_get_user_name(), gc->user->proto_opt[USEROPT_SERV], WEBSITE); + + if (write(idata->fd, buf, strlen(buf)) < 0) { + hide_login_progress(gc, "Write error"); + signoff(gc); + return; + } + + idata->inpa = gdk_input_add(idata->fd, GDK_INPUT_READ, irc_callback, gc); + idata->inpa = 0; + + /* Now lets sign ourselves on */ + account_online(gc); + serv_finish_login(gc); + + if (bud_list_cache_exists(gc)) + do_import(NULL, gc); + + /* we don't call this now because otherwise some IRC servers might not like us */ + idata->timer = gtk_timeout_add(20000, (GtkFunction) irc_request_buddy_update, gc); +} + +static void irc_login(struct aim_user *user) +{ + char buf[4096]; + + struct gaim_connection *gc = new_gaim_conn(user); + struct irc_data *idata = gc->proto_data = g_new0(struct irc_data, 1); + + g_snprintf(buf, sizeof(buf), "Signon: %s", gc->username); + set_login_progress(gc, 2, buf); + + idata->fd = proxy_connect(user->proto_opt[USEROPT_SERV], + user->proto_opt[USEROPT_PORT][0] ? atoi(user-> + proto_opt[USEROPT_PORT]) : + 6667, irc_login_callback, gc); + if (!user->gc || (idata->fd < 0)) { + hide_login_progress(gc, "Unable to create socket"); + signoff(gc); + return; + } +} + +static void irc_print_option(GtkEntry *entry, struct aim_user *user) +{ + int entrynum; + + entrynum = (int)gtk_object_get_user_data(GTK_OBJECT(entry)); + + if (entrynum == USEROPT_SERV) { + g_snprintf(user->proto_opt[USEROPT_SERV], + sizeof(user->proto_opt[USEROPT_SERV]), "%s", gtk_entry_get_text(entry)); + } else if (entrynum == USEROPT_PORT) { + g_snprintf(user->proto_opt[USEROPT_PORT], + sizeof(user->proto_opt[USEROPT_PORT]), "%s", gtk_entry_get_text(entry)); + } +} + +static void irc_user_opts(GtkWidget *book, struct aim_user *user) +{ + /* so here, we create the new notebook page */ + GtkWidget *vbox; + GtkWidget *hbox; + GtkWidget *label; + GtkWidget *entry; + + vbox = gtk_vbox_new(FALSE, 5); + gtk_container_set_border_width(GTK_CONTAINER(vbox), 5); + gtk_notebook_append_page(GTK_NOTEBOOK(book), vbox, gtk_label_new("IRC Options")); + gtk_widget_show(vbox); + + hbox = gtk_hbox_new(FALSE, 5); + gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 0); + gtk_widget_show(hbox); + + label = gtk_label_new("Server:"); + gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 0); + gtk_widget_show(label); + + entry = gtk_entry_new(); + gtk_box_pack_end(GTK_BOX(hbox), entry, FALSE, FALSE, 0); + gtk_object_set_user_data(GTK_OBJECT(entry), (void *)USEROPT_SERV); + gtk_signal_connect(GTK_OBJECT(entry), "changed", GTK_SIGNAL_FUNC(irc_print_option), user); + if (user->proto_opt[USEROPT_SERV][0]) { + debug_printf("setting text %s\n", user->proto_opt[USEROPT_SERV]); + gtk_entry_set_text(GTK_ENTRY(entry), user->proto_opt[USEROPT_SERV]); + } + gtk_widget_show(entry); + + hbox = gtk_hbox_new(FALSE, 0); + gtk_box_pack_start(GTK_BOX(vbox), hbox, FALSE, FALSE, 0); + gtk_widget_show(hbox); + + label = gtk_label_new("Port:"); + gtk_box_pack_start(GTK_BOX(hbox), label, FALSE, FALSE, 0); + gtk_widget_show(label); + + entry = gtk_entry_new(); + gtk_box_pack_end(GTK_BOX(hbox), entry, FALSE, FALSE, 0); + gtk_object_set_user_data(GTK_OBJECT(entry), (void *)USEROPT_PORT); + gtk_signal_connect(GTK_OBJECT(entry), "changed", GTK_SIGNAL_FUNC(irc_print_option), user); + if (user->proto_opt[USEROPT_PORT][0]) { + debug_printf("setting text %s\n", user->proto_opt[USEROPT_PORT]); + gtk_entry_set_text(GTK_ENTRY(entry), user->proto_opt[USEROPT_PORT]); + } else + gtk_entry_set_text(GTK_ENTRY(entry), "6667"); + + gtk_widget_show(entry); +} + +static char **irc_list_icon(int uc) +{ + return free_icon_xpm; +} + +/* Send out a ping request to the specified user */ +static void irc_send_ping(GtkObject *w, char *who) +{ + struct gaim_connection *gc = (struct gaim_connection *)gtk_object_get_user_data(w); + struct irc_data *idata = (struct irc_data *)gc->proto_data; + char buf[BUF_LEN]; + + g_snprintf(buf, BUF_LEN, "PRIVMSG %s :%cPING %ld%c\n", who, '\001', time((time_t *) NULL), + '\001'); + + write(idata->fd, buf, strlen(buf)); +} + +/* Do a whois check on someone :-) */ +static void irc_get_info(struct gaim_connection *gc, char *who) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + char buf[BUF_LEN]; + + if (((who[0] == '@') || (who[0] == '+')) && (strlen(who) > 1)) + g_snprintf(buf, BUF_LEN, "WHOIS %s\n", who + 1); + else + g_snprintf(buf, BUF_LEN, "WHOIS %s\n", who); + write(idata->fd, buf, strlen(buf)); +} + +static void irc_send_whois(GtkObject *w, char *who) +{ + struct gaim_connection *gc = (struct gaim_connection *)gtk_object_get_user_data(w); + irc_get_info(gc, who); +} + +static void irc_buddy_menu(GtkWidget *menu, struct gaim_connection *gc, char *who) +{ + GtkWidget *button; + + button = gtk_menu_item_new_with_label("Ping"); + gtk_signal_connect(GTK_OBJECT(button), "activate", GTK_SIGNAL_FUNC(irc_send_ping), who); + gtk_object_set_user_data(GTK_OBJECT(button), gc); + gtk_menu_append(GTK_MENU(menu), button); + gtk_widget_show(button); + + button = gtk_menu_item_new_with_label("Whois"); + gtk_signal_connect(GTK_OBJECT(button), "activate", GTK_SIGNAL_FUNC(irc_send_whois), who); + gtk_object_set_user_data(GTK_OBJECT(button), gc); + gtk_menu_append(GTK_MENU(menu), button); + gtk_widget_show(button); +} + + +static void irc_set_away(struct gaim_connection *gc, char *state, char *msg) +{ + struct irc_data *idata = (struct irc_data *)gc->proto_data; + char buf[BUF_LEN]; + + if (msg) + g_snprintf(buf, BUF_LEN, "AWAY :%s\n", msg); + else + g_snprintf(buf, BUF_LEN, "AWAY\n"); + + write(idata->fd, buf, strlen(buf)); +} + +static void irc_fake_buddy(struct gaim_connection *gc, char *who) +{ + /* Heh, there is no buddy list. We fake it. + * I just need this here so the add and remove buttons will + * show up */ +} + +static void irc_chat_set_topic(struct gaim_connection *gc, int id, char *topic) +{ + struct irc_channel *ic = NULL; + struct irc_data *idata = (struct irc_data *)gc->proto_data; + char buf[BUF_LEN]; + + ic = find_channel_by_id(gc, id); + + /* If we ain't in no channel, foo, gets outta da kitchen beeyotch */ + if (!ic) + return; + + /* Prepare our command */ + g_snprintf(buf, BUF_LEN, "TOPIC #%s :%s\n", ic->name, topic); + + /* And send it */ + write(idata->fd, buf, strlen(buf)); +} + +static struct prpl *my_protocol = NULL; + +void irc_init(struct prpl *ret) +{ + ret->protocol = PROTO_IRC; + ret->options = OPT_PROTO_CHAT_TOPIC; + ret->name = irc_name; + ret->list_icon = irc_list_icon; + ret->buddy_menu = irc_buddy_menu; + ret->user_opts = irc_user_opts; + ret->login = irc_login; + ret->close = irc_close; + ret->send_im = irc_send_im; + ret->join_chat = irc_join_chat; + ret->chat_leave = irc_chat_leave; + ret->chat_send = irc_chat_send; + ret->get_info = irc_get_info; + ret->set_away = irc_set_away; + ret->add_buddy = irc_fake_buddy; + ret->remove_buddy = irc_fake_buddy; + ret->chat_set_topic = irc_chat_set_topic; + my_protocol = ret; +} + +#ifndef STATIC + +char *gaim_plugin_init(GModule *handle) +{ + load_protocol(irc_init, sizeof(struct prpl)); + return NULL; +} + +void gaim_plugin_remove() +{ + struct prpl *p = find_prpl(PROTO_IRC); + if (p == my_protocol) + unload_protocol(p); +} + +char *name() +{ + return "IRC"; +} + +char *description() +{ + return "Allows gaim to use the IRC protocol"; +} + +#endif