X-Git-Url: http://git.pk910.de/?p=ircu2.10.12-pk.git;a=blobdiff_plain;f=ircd%2Fjupe.c;fp=ircd%2Fjupe.c;h=243ae626df4fd5072160ef12934b922c15575e6e;hp=0000000000000000000000000000000000000000;hb=0400a5a6479398d82526785c18c0df8bc8b92dce;hpb=d17e10da972ce5776c60b4c317267c6abe0e1ead

diff --git a/ircd/jupe.c b/ircd/jupe.c
new file mode 100644
index 0000000..243ae62
--- /dev/null
+++ b/ircd/jupe.c
@@ -0,0 +1,420 @@
+/*
+ * IRC - Internet Relay Chat, ircd/jupe.c
+ * Copyright (C) 1990 Jarkko Oikarinen and
+ *                    University of Oulu, Finland
+ * Copyright (C) 2000 Kevin L. Mitchell <klmitch@mit.edu>
+ *
+ * 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 1, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+/** @file
+ * @brief Implementation of juped server handling functions.
+ * @version $Id$
+ */
+#include "config.h"
+
+#include "jupe.h"
+#include "client.h"
+#include "hash.h"
+#include "ircd.h"
+#include "ircd_alloc.h"
+#include "ircd_features.h"
+#include "ircd_log.h"
+#include "ircd_reply.h"
+#include "ircd_string.h"
+#include "match.h"
+#include "msg.h"
+#include "numeric.h"
+#include "numnicks.h"
+#include "s_bsd.h"
+#include "s_misc.h"
+#include "send.h"
+#include "struct.h"
+#include "sys.h"    /* FALSE bleah */
+
+/* #include <assert.h> -- Now using assert in ircd_log.h */
+#include <string.h>
+
+/** List of jupes. */
+static struct Jupe *GlobalJupeList = 0;
+
+/** Allocate a new jupe with the given parameters.
+ * @param[in] server Server name to jupe.
+ * @param[in] reason Reason for jupe.
+ * @param[in] expire Expiration time for jupe.
+ * @param[in] lastmod Last modification time for jupe.
+ * @param[in] flags Flags to set for the jupe.
+ */
+static struct Jupe *
+make_jupe(char *server, char *reason, time_t expire, time_t lastmod,
+	  unsigned int flags)
+{
+  struct Jupe *ajupe;
+
+  ajupe = (struct Jupe*) MyMalloc(sizeof(struct Jupe)); /* alloc memory */
+  assert(0 != ajupe);
+
+  memset(ajupe, 0, sizeof(*ajupe));
+  DupString(ajupe->ju_server, server); /* copy vital information */
+  DupString(ajupe->ju_reason, reason);
+  ajupe->ju_expire = expire;
+  ajupe->ju_lastmod = lastmod;
+  ajupe->ju_flags = flags & JUPE_MASK; /* set jupe flags */
+
+  ajupe->ju_next = GlobalJupeList; /* link it into the list */
+  ajupe->ju_prev_p = &GlobalJupeList;
+  if (GlobalJupeList)
+    GlobalJupeList->ju_prev_p = &ajupe->ju_next;
+  GlobalJupeList = ajupe;
+
+  return ajupe;
+}
+
+/** Apply a jupe.
+ * @param[in] cptr Local client that sent us the jupe.
+ * @param[in] sptr Originator of the jupe.
+ * @param[in] jupe Jupe to check.
+ */
+static int
+do_jupe(struct Client *cptr, struct Client *sptr, struct Jupe *jupe)
+{
+  struct Client *acptr;
+
+  if (!JupeIsActive(jupe)) /* no action to be taken on inactive jupes */
+    return 0;
+
+  acptr = FindServer(jupe->ju_server);
+
+  /* server isn't online or isn't local or is me */
+  if (!acptr || !MyConnect(acptr) || IsMe(acptr))
+    return 0;
+
+  return exit_client_msg(cptr, acptr, &me, "Juped: %s", jupe->ju_reason);
+}
+
+/** Forward a jupe to another server.
+ * @param[in] cptr Local client that sent us the jupe.
+ * @param[in] sptr Originator of the jupe.
+ * @param[in] jupe Jupe to forward.
+ */
+static void
+propagate_jupe(struct Client *cptr, struct Client *sptr, struct Jupe *jupe)
+{
+  if (JupeIsLocal(jupe)) /* don't propagate local jupes */
+    return;
+
+  sendcmdto_serv_butone(sptr, CMD_JUPE, cptr, "* %c%s %Tu %Tu :%s",
+			JupeIsRemActive(jupe) ? '+' : '-', jupe->ju_server,
+			jupe->ju_expire - CurrentTime, jupe->ju_lastmod,
+			jupe->ju_reason);
+}
+
+/** Add a new server jupe.
+ * @param[in] cptr Local client that sent us the jupe.
+ * @param[in] sptr Originator of the jupe.
+ * @param[in] server Server name to jupe.
+ * @param[in] reason Reason for the jupe.
+ * @param[in] expire Jupe duration in seconds.
+ * @param[in] lastmod Last modification timestamp (or NULL).
+ * @param[in] flags Flags to set on jupe.
+ * @return Zero, unless the jupe causes \a cptr to be SQUIT, in which
+ * case CPTR_KILLED.
+ */
+int
+jupe_add(struct Client *cptr, struct Client *sptr, char *server, char *reason,
+	 time_t expire, time_t lastmod, unsigned int flags)
+{
+  struct Jupe *ajupe;
+
+  assert(0 != server);
+  assert(0 != reason);
+
+  /*
+   * You cannot set a negative (or zero) expire time, nor can you set an
+   * expiration time for greater than JUPE_MAX_EXPIRE.
+   */
+  if (expire <= 0 || expire > JUPE_MAX_EXPIRE) {
+    if (!IsServer(cptr) && MyConnect(cptr))
+      send_reply(cptr, ERR_BADEXPIRE, expire);
+    return 0;
+  }
+
+  expire += CurrentTime; /* convert from lifetime to timestamp */
+
+  /* Inform ops and log it */
+  sendto_opmask_butone(0, SNO_NETWORK, "%s adding %sJUPE for %s, expiring at "
+                       "%Tu: %s",
+                       (feature_bool(FEAT_HIS_SNOTICES) || IsServer(sptr)) ?
+                         cli_name(sptr) :
+                         cli_name((cli_user(sptr))->server),
+		       flags & JUPE_LOCAL ? "local " : "", server,
+		       expire + TSoffset, reason);
+
+  log_write(LS_JUPE, L_INFO, LOG_NOSNOTICE,
+	    "%#C adding %sJUPE for %s, expiring at %Tu: %s", sptr,
+	    flags & JUPE_LOCAL ? "local " : "", server, expire + TSoffset,
+	    reason);
+
+  /* make the jupe */
+  ajupe = make_jupe(server, reason, expire, lastmod, flags);
+
+  propagate_jupe(cptr, sptr, ajupe);
+
+  return do_jupe(cptr, sptr, ajupe); /* remove server if necessary */
+}
+
+/** Activate a jupe, optionally changing its lastmod and flags.
+ * @param[in] cptr Local client that sent us the jupe.
+ * @param[in] sptr Originator of the jupe.
+ * @param[in] jupe Jupe to activate.
+ * @param[in] lastmod New timestamp for last modification of the jupe.
+ * @param[in] flags Flags to set on the jupe.
+ * @return Zero, unless the jupe causes \a cptr to be SQUIT, in which
+ * case CPTR_KILLED.
+ */
+int
+jupe_activate(struct Client *cptr, struct Client *sptr, struct Jupe *jupe,
+	      time_t lastmod, unsigned int flags)
+{
+  unsigned int saveflags = 0;
+
+  assert(0 != jupe);
+
+  saveflags = jupe->ju_flags;
+
+  if (flags & JUPE_LOCAL)
+    jupe->ju_flags &= ~JUPE_LDEACT;
+  else {
+    jupe->ju_flags |= JUPE_ACTIVE;
+
+    if (jupe->ju_lastmod >= lastmod) /* force lastmod to increase */
+      jupe->ju_lastmod++;
+    else
+      jupe->ju_lastmod = lastmod;
+  }
+
+  if ((saveflags & JUPE_ACTMASK) == JUPE_ACTIVE)
+    return 0; /* was active to begin with */
+
+  /* Inform ops and log it */
+  sendto_opmask_butone(0, SNO_NETWORK, "%s activating JUPE for %s, expiring "
+		       "at %Tu: %s",
+                       (feature_bool(FEAT_HIS_SNOTICES) || IsServer(sptr)) ?
+                         cli_name(sptr) :
+                         cli_name((cli_user(sptr))->server),
+		       jupe->ju_server, jupe->ju_expire + TSoffset,
+		       jupe->ju_reason);
+
+  log_write(LS_JUPE, L_INFO, LOG_NOSNOTICE,
+	    "%#C activating JUPE for %s, expiring at %Tu: %s",sptr,
+	    jupe->ju_server, jupe->ju_expire + TSoffset, jupe->ju_reason);
+
+  if (!(flags & JUPE_LOCAL)) /* don't propagate local changes */
+    propagate_jupe(cptr, sptr, jupe);
+
+  return do_jupe(cptr, sptr, jupe);
+}
+
+/** Deactivate a jupe.
+ * @param[in] cptr Local client that sent us the jupe.
+ * @param[in] sptr Originator of the jupe.
+ * @param[in] jupe Jupe to deactivate.
+ * @param[in] lastmod New timestamp for last modification of the jupe.
+ * @param[in] flags Flags to set on the jupe.
+ * @return Zero.
+ */
+int
+jupe_deactivate(struct Client *cptr, struct Client *sptr, struct Jupe *jupe,
+		time_t lastmod, unsigned int flags)
+{
+  unsigned int saveflags = 0;
+
+  assert(0 != jupe);
+
+  saveflags = jupe->ju_flags;
+
+  if (!JupeIsLocal(jupe)) {
+    if (flags & JUPE_LOCAL)
+      jupe->ju_flags |= JUPE_LDEACT;
+    else {
+      jupe->ju_flags &= ~JUPE_ACTIVE;
+
+      if (jupe->ju_lastmod >= lastmod) /* force lastmod to increase */
+	jupe->ju_lastmod++;
+      else
+	jupe->ju_lastmod = lastmod;
+    }
+
+    if ((saveflags & JUPE_ACTMASK) != JUPE_ACTIVE)
+      return 0; /* was inactive to begin with */
+  }
+
+  /* Inform ops and log it */
+  sendto_opmask_butone(0, SNO_NETWORK, "%s %s JUPE for %s, expiring at %Tu: "
+		       "%s",
+                       (feature_bool(FEAT_HIS_SNOTICES) || IsServer(sptr)) ?
+                         cli_name(sptr) :
+                         cli_name((cli_user(sptr))->server),
+		       JupeIsLocal(jupe) ? "removing local" : "deactivating",
+		       jupe->ju_server, jupe->ju_expire + TSoffset,
+		       jupe->ju_reason);
+
+  log_write(LS_JUPE, L_INFO, LOG_NOSNOTICE,
+	    "%#C %s JUPE for %s, expiring at %Tu: %s", sptr,
+	    JupeIsLocal(jupe) ? "removing local" : "deactivating",
+	    jupe->ju_server, jupe->ju_expire + TSoffset, jupe->ju_reason);
+
+  if (JupeIsLocal(jupe))
+    jupe_free(jupe);
+  else if (!(flags & JUPE_LOCAL)) /* don't propagate local changes */
+    propagate_jupe(cptr, sptr, jupe);
+
+  return 0;
+}
+
+/** Find a jupe by name.
+ * @param[in] server %Jupe name to search for.
+ * @return Matching jupe (or NULL if none match).
+ */
+struct Jupe *
+jupe_find(char *server)
+{
+  struct Jupe* jupe;
+  struct Jupe* sjupe;
+
+  for (jupe = GlobalJupeList; jupe; jupe = sjupe) { /* go through jupes */
+    sjupe = jupe->ju_next;
+
+    if (jupe->ju_expire <= CurrentTime) /* expire any that need expiring */
+      jupe_free(jupe);
+    else if (0 == ircd_strcmp(server, jupe->ju_server)) /* found it yet? */
+      return jupe;
+  }
+
+  return 0;
+}
+
+/** Unlink and free an unused jupe.
+ * @param[in] jupe Server jupe to free.
+ */
+void
+jupe_free(struct Jupe* jupe)
+{
+  assert(0 != jupe);
+
+  *jupe->ju_prev_p = jupe->ju_next; /* squeeze this jupe out */
+  if (jupe->ju_next)
+    jupe->ju_next->ju_prev_p = jupe->ju_prev_p;
+
+  MyFree(jupe->ju_server);  /* and free up the memory */
+  MyFree(jupe->ju_reason);
+  MyFree(jupe);
+}
+
+/** Send the full list of active global jupes to \a cptr.
+ * @param[in] cptr Local server to send jupes to.
+ */
+void
+jupe_burst(struct Client *cptr)
+{
+  struct Jupe *jupe;
+  struct Jupe *sjupe;
+
+  for (jupe = GlobalJupeList; jupe; jupe = sjupe) { /* go through jupes */
+    sjupe = jupe->ju_next;
+
+    if (jupe->ju_expire <= CurrentTime) /* expire any that need expiring */
+      jupe_free(jupe);
+    else if (!JupeIsLocal(jupe)) /* forward global jupes */
+      sendcmdto_one(&me, CMD_JUPE, cptr, "* %c%s %Tu %Tu :%s",
+		    JupeIsRemActive(jupe) ? '+' : '-', jupe->ju_server,
+		    jupe->ju_expire - CurrentTime, jupe->ju_lastmod,
+		    jupe->ju_reason);
+  }
+}
+
+/** Forward a jupe to another server.
+ * @param[in] cptr %Server to send jupe to.
+ * @param[in] jupe Jupe to forward.
+ */
+int
+jupe_resend(struct Client *cptr, struct Jupe *jupe)
+{
+  if (JupeIsLocal(jupe)) /* don't propagate local jupes */
+    return 0;
+
+  sendcmdto_one(&me, CMD_JUPE, cptr, "* %c%s %Tu %Tu :%s",
+		JupeIsRemActive(jupe) ? '+' : '-', jupe->ju_server,
+		jupe->ju_expire - CurrentTime, jupe->ju_lastmod,
+		jupe->ju_reason);
+
+  return 0;
+}
+
+/** Send a jupe (or a list of jupes) to a server.
+ * @param[in] sptr Client searching for jupes.
+ * @param[in] server Name of jupe to search for (if NULL, list all).
+ * @return Zero.
+ */
+int
+jupe_list(struct Client *sptr, char *server)
+{
+  struct Jupe *jupe;
+  struct Jupe *sjupe;
+
+  if (server) {
+    if (!(jupe = jupe_find(server))) /* no such jupe */
+      return send_reply(sptr, ERR_NOSUCHJUPE, server);
+
+    /* send jupe information along */
+    send_reply(sptr, RPL_JUPELIST, jupe->ju_server, jupe->ju_expire + TSoffset,
+	       JupeIsLocal(jupe) ? cli_name(&me) : "*",
+	       JupeIsActive(jupe) ? '+' : '-', jupe->ju_reason);
+  } else {
+    for (jupe = GlobalJupeList; jupe; jupe = sjupe) { /* go through jupes */
+      sjupe = jupe->ju_next;
+
+      if (jupe->ju_expire <= CurrentTime) /* expire any that need expiring */
+	jupe_free(jupe);
+      else /* send jupe information along */
+	send_reply(sptr, RPL_JUPELIST, jupe->ju_server,
+		   jupe->ju_expire + TSoffset,
+		   JupeIsLocal(jupe) ? cli_name(&me) : "*",
+		   JupeIsActive(jupe) ? '+' : '-', jupe->ju_reason);
+    }
+  }
+
+  /* end of jupe information */
+  return send_reply(sptr, RPL_ENDOFJUPELIST);
+}
+
+/** Count jupes and memory used by them.
+ * @param[out] ju_size Receives total number of bytes allocated for jupes.
+ * @return Number of jupes currently allocated.
+ */
+int
+jupe_memory_count(size_t *ju_size)
+{
+  struct Jupe *jupe;
+  unsigned int ju = 0;
+
+  for (jupe = GlobalJupeList; jupe; jupe = jupe->ju_next)
+  {
+    ju++;
+    *ju_size += sizeof(struct Jupe);
+    *ju_size += jupe->ju_server ? (strlen(jupe->ju_server) + 1) : 0;
+    *ju_size += jupe->ju_reason ? (strlen(jupe->ju_reason) + 1) : 0;
+  }
+  return ju;
+}