/* * irc-event-5.c - IRC events -- User-based queries * * Copyright (C) 2000 Stefan Jahn <stefan@lkcc.org> * * This 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, or (at your option) * any later version. *  * This software 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 package; see the file COPYING.  If not, write to * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA.   * * $Id: irc-event-5.c,v 1.12 2001/05/19 23:04:57 ela Exp $ * */#if HAVE_CONFIG_H# include <config.h>#endif#if ENABLE_IRC_PROTO#define _GNU_SOURCE#include <string.h>#include <stdlib.h>#ifdef __MINGW32__# include <winsock2.h>#endif#include <libserveez.h>#include "irc-core/irc-core.h"#include "irc-proto.h"#include "irc-event.h"/*         Command: WHOWAS *      Parameters: <nickname> [<count> [<server>]] * Numeric Replies: ERR_NONICKNAMEGIVEN ERR_WASNOSUCHNICK *                  RPL_WHOWASUSER      RPL_WHOISSERVER *                  RPL_ENDOFWHOWAS */intirc_whowas_callback (svz_socket_t *sock, 		     irc_client_t *client, irc_request_t *request){  irc_config_t *cfg = sock->cfg;  irc_client_history_t *cl;  char *nick, *server;  int n, i, found;  /* check if there is a nick given */  if (request->paras < 1)    {      irc_printf (sock, ":%s %03d %s " ERR_NONICKNAMEGIVEN_TEXT "\n",		  cfg->host, ERR_NONICKNAMEGIVEN, client->nick);    }  nick = request->para[0];  n = atoi (request->para[1]);  /* is there a server para given ? */  if (request->paras > 2)    {      server = request->para[2];    }  /* look through the history list */  cl = NULL;  i = 0;  found = 0;  while ((cl = irc_find_nick_history (cfg, cl, nick)) != NULL && 	 (i < n || n <= 0))    {      found = 1;      irc_printf (sock, ":%s %03d %s " RPL_WHOWASUSER_TEXT "\n",		  cfg->host, RPL_WHOWASUSER, client->nick,		  cl->nick, cl->user, cl->host, cl->real);      i++;    }  /* did you found a nick in the history ? */  if (found)    {      irc_printf (sock, ":%s %03d %s " RPL_ENDOFWHOWAS_TEXT "\n",		  cfg->host, RPL_ENDOFWHOWAS, client->nick, nick);    }  else    {      irc_printf (sock, ":%s %03d %s " ERR_WASNOSUCHNICK_TEXT "\n",		  cfg->host, ERR_WASNOSUCHNICK, client->nick, nick);    }  return 0;}/* * Check if a certain client is visible to another. */static intirc_client_visible (irc_config_t *cfg,     /* current server config */		    irc_client_t *client,  /* who wants to know about */		    irc_client_t *rclient) /* this client */{  irc_channel_t *channel;  int n;  /* invisible ? */  if (rclient->flag & UMODE_INVISIBLE)    return 0;  /*    * Visible, but not in a public (no secret or private) channel ?    * The client is also visible if they share a channel.   */  for (n = 0; n < rclient->channels; n++)    {      channel = rclient->channel[n];      /* public channel ? */      if (!(channel->flag & (MODE_SECRET | MODE_PRIVATE)))	return -1;      else	{	  /* no, but do they share it ? */	  if (irc_client_in_channel (NULL, client, channel) != -1)	    return -1;	}    }  return -1;}/* * Send a user WHOIS reply. */static voidirc_user_info (svz_socket_t *sock,   /* the socket for the client to send */	       irc_client_t *client, /* reply client */	       irc_client_t *cl)     /* info about this client */{  irc_config_t *cfg = sock->cfg;  irc_channel_t *channel;  svz_socket_t *xsock;  char text[MAX_MSG_LEN];  int n, i;  if (!irc_client_visible (cfg, client, cl))     return;  irc_printf (sock, ":%s %03d %s " RPL_WHOISUSER_TEXT "\n",	      cfg->host, RPL_WHOISUSER, client->nick,	      cl->nick, cl->user, cl->host, cl->real);	    irc_printf (sock, ":%s %03d %s " RPL_WHOISSERVER_TEXT "\n",	      cfg->host, RPL_WHOISSERVER, client->nick,	      cl->nick, cl->server, cfg->info);	    /* operator ? */  if (cl->flag & UMODE_OPERATOR)    irc_printf (sock, ":%s %03d %s " RPL_WHOISOPERATOR_TEXT "\n",		cfg->host, RPL_WHOISOPERATOR, client->nick, cl->nick);	    /* idle seconds */  xsock = cl->sock;  irc_printf (sock, ":%s %03d %s " RPL_WHOISIDLE_TEXT "\n",	      cfg->host, RPL_WHOISIDLE, client->nick,	      cl->nick, time (NULL) - xsock->last_send, cl->since);  /* build channel list */  for (text[0] = 0, i = 0; i < cl->channels; i++)    {      channel = cl->channel[i];      n = irc_client_in_channel (NULL, cl, channel);      if (channel->cflag[n] & MODE_OPERATOR)	strcat (text, "@");      else if (channel->cflag[n] & MODE_VOICE)	strcat (text, "+");      strcat (text, cl->channel[i]->name);      strcat (text, " ");    }  /* send channel list */  irc_printf (sock, ":%s %03d %s " RPL_WHOISCHANNELS_TEXT "\n",	      cfg->host, RPL_WHOISCHANNELS, client->nick, cl->nick, text);}/* *         Command: WHOIS *      Parameters: [<server>] <nickmask>[,<nickmask>[,...]] * Numeric Replies: ERR_NOSUCHSERVER   ERR_NONICKNAMEGIVEN *                  RPL_WHOISUSER      RPL_WHOISCHANNELS *                  RPL_WHOISCHANNELS  RPL_WHOISSERVER *                  RPL_AWAY           RPL_WHOISOPERATOR *                  RPL_WHOISIDLE      ERR_NOSUCHNICK *                  RPL_ENDOFWHOIS */intirc_whois_callback (svz_socket_t *sock, 		    irc_client_t *client, irc_request_t *request){  irc_config_t *cfg = sock->cfg;  irc_client_t **cl, *rclient;  char *nick, *chan;  int n;  /* enough paras ? */  if (irc_check_args (sock, client, cfg, request, 1))    return 0;  /* server Mask ? */  if (irc_string_regex (cfg->host, request->para[0]))    irc_parse_target (request, 1);  /* go through all targets */  for (n = 0; n < request->targets; n++)    {      nick = request->target[n].nick;      chan = request->target[n].channel;      /* nick Mask ? */      if (strstr (nick, "*") || strstr (nick, "?"))	{	  if ((cl = irc_regex_nick (cfg, nick)) != NULL)	    {	      for (n = 0; cl[n]; n++)		{		  /* is this client away ? */		  if (irc_client_absent (cl[n], client))		    continue;		  irc_user_info (sock, client, cl[n]);		}	      svz_free (cl);	    }	}      /* is target a plain nick ? */      else if ((rclient = irc_find_nick (cfg, nick)) != NULL)	{	  /* is this client away ? */	  if (irc_client_absent (rclient, client)) 	    continue;	  irc_user_info (sock, client, rclient);	}      irc_printf (sock, ":%s %03d %s " RPL_ENDOFWHOIS_TEXT "\n",		  cfg->host, RPL_ENDOFWHOIS, client->nick, nick);    }  return 0;}/* * Send a single WHO reply. */static voidirc_client_info (svz_socket_t *sock,     /* this client's socket */		 irc_client_t *client,   /* this client */		 irc_client_t *cl,       /* reply this client's info */		 irc_channel_t *channel) /* channel 'cl' is in */{  irc_config_t *cfg = sock->cfg;  char text[MAX_MSG_LEN];  char *flag = "";  int n;  n = irc_client_in_channel (NULL, cl, channel);  if (channel->cflag[n] & MODE_OPERATOR)    flag = "@";  else if (channel->cflag[n] & MODE_VOICE)    flag = "+";  sprintf (text, RPL_WHOREPLY_TEXT,	   channel->name, cl->user, cl->host, cl->server, cl->nick, 	   cl->flag & UMODE_AWAY ? 'G' : 'H',	   cl->flag & UMODE_OPERATOR ? "*" : "", flag, 0, cl->real);    irc_printf (sock, ":%s %03d %s %s\n",	      cfg->host, RPL_WHOREPLY, client->nick, text);}/*  *         Command: WHO *      Parameters: [<name> [<o>]] * Numeric Replies: ERR_NOSUCHSERVER *                  RPL_WHOREPLY     RPL_ENDOFWHO */intirc_who_callback (svz_socket_t *sock, 		  irc_client_t *client, irc_request_t *request){  irc_config_t *cfg = sock->cfg;  irc_client_t **cl, *xcl;  irc_channel_t **channel, *xch;  char *name;  int n, i;  if (!request->paras)    name = "*";  else    name = request->para[0];  /* find all Matching channels */  if ((channel = irc_regex_channel (cfg, name)) != NULL)    {      for (i = 0; channel[i]; i++)	{	  for (n = 0; n < channel[i]->clients; n++)	    {	      xcl = channel[i]->client[n];	      irc_client_info (sock, client, xcl, channel[i]);	    }	}      irc_printf (sock, ":%s %03d %s " RPL_ENDOFWHO_TEXT "\n",		  cfg->host, RPL_ENDOFWHO, client->nick, name);      svz_free (channel);      return 0;    }    /* find all Matching nicks */  if ((cl = irc_regex_nick (cfg, name)) != NULL)    {      for (i = 0; cl[i]; i++)	{	  for (n = 0; n < cl[i]->channels; n++)	    {	      xch = cl[i]->channel[n];	      irc_client_info (sock, client, cl[i], xch);	    }	}      irc_printf (sock, ":%s %03d %s " RPL_ENDOFWHO_TEXT "\n",		  cfg->host, RPL_ENDOFWHO, client->nick, name);      svz_free (cl);    }  return 0;}#else /* not ENABLE_IRC_PROTO */int irc_event_5_dummy; /* Shut up compiler warnings. */#endif /* not ENABLE_IRC_PROTO */