Author: Kev <klmitch@mit.edu>
[ircu2.10.12-pk.git] / ircd / m_gline.c
index aad3d0a8d672e9f44b199e2f7e17466af89b9b3f..546c1b1c6cf1f0cdbb01a804ee394c796f33be40 100644 (file)
  *            note:   it is guaranteed that parv[0]..parv[parc-1] are all
  *                    non-NULL pointers.
  */
-#if 0
-/*
- * No need to include handlers.h here the signatures must match
- * and we don't need to force a rebuild of all the handlers everytime
- * we add a new one to the list. --Bleep
- */
-#include "handlers.h"
-#endif /* 0 */
+#include "config.h"
+
 #include "client.h"
 #include "gline.h"
 #include "hash.h"
 #include "ircd.h"
+#include "ircd_features.h"
+#include "ircd_log.h"
 #include "ircd_reply.h"
 #include "ircd_string.h"
 #include "match.h"
 #include "s_conf.h"
 #include "s_misc.h"
 #include "send.h"
-#include "support.h"
 
-#include <assert.h>
+/* #include <assert.h> -- Now using assert in ircd_log.h */
 #include <stdlib.h>
 #include <string.h>
 
 /*
  * ms_gline - server message handler
  *
- * parv[0] = Send prefix
+ * parv[0] = Sender prefix
+ * parv[1] = Target: server numeric
+ * parv[2] = (+|-)<G-line mask>
+ * parv[3] = G-line lifetime
  *
- * From server:
+ * From Uworld:
  *
- * parv[1] = Target: server numeric
- * parv[2] = [+|-]<G-line mask>
- * parv[3] = Expiration offset
  * parv[4] = Comment
  *
- * From client:
+ * From somewhere else:
  *
- * parv[1] = [+|-]<G-line mask>
- * parv[2] = Expiration offset
- * parv[3] = Comment
+ * parv[4] = Last modification time
+ * parv[5] = Comment
  *
  */
-int ms_gline(struct Client* cptr, struct Client* sptr, int parc, char* parv[])
+int
+ms_gline(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
 {
-  struct Client* acptr = 0;  /* Init. to avoid compiler warning. */
-  struct Gline*  gline;
-  struct Gline*  prev;
-  char*          user;
-  char*          host;
-  int            active;
-  int            ip_mask;
-  int            gtype = 0;
-  time_t         expire = 0;
-
-  /*
-   * Remove expired G-lines
-   */
-  gline_remove_expired(TStime());
-#ifdef BADCHAN
-  /*
-   * Remove expired bad channels
-   */
-  bad_channel_remove_expired(TStime());
-#endif
-
-  if (IsServer(cptr)) {
-    if (find_conf_byhost(cptr->confs, sptr->name, CONF_UWORLD)) {
-      if (parc < 3 || (*parv[2] != '-' && (parc < 5 || *parv[4] == '\0')))
-        return need_more_params(sptr, "GLINE");
-
-      if (*parv[2] == '-') /* add mode or delete mode? */
-        active = 0;
-      else
-        active = 1;
-
-      if (*parv[2] == '+' || *parv[2] == '-')
-        parv[2]++; /* step past mode indicator */
-
-      /*
-       * forward the message appropriately
-       */
-      if (0 == ircd_strcmp(parv[1], "*")) {
-        /*
-         * global!
-         */
-        sendto_serv_butone(cptr,
-                     active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-                     NumServ(sptr), parv[1], parv[2], parv[3], parv[4]);
-      }
-      else if ((
-#if 1
-          /*
-           * REMOVE THIS after all servers upgraded to 2.10.01 and
-           * Uworld uses a numeric too
-           */
-          (strlen(parv[1]) != 1 && !(acptr = FindClient(parv[1])))) ||
-          (strlen(parv[1]) == 1 &&
-#endif
-          !(acptr = FindNServer(parv[1]))))
-        return 0;               /* no such server/user exists; forget it */
-      else
-#if 1
-/*
- * REMOVE THIS after all servers upgraded to 2.10.01 and
- * Uworld uses a numeric too
- */
-      if (IsServer(acptr) || !MyConnect(acptr))
-#endif
-      {
-        /* single destination */
-        sendto_one(acptr,
-               active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-               NumServ(sptr), parv[1], parv[2], parv[3], parv[4]);
-        return 0;               /* only the intended  destination
-                                   should add this gline */
-      }
-
-      if (!(host = strchr(parv[2], '@'))) {
-        /*
-         * convert user@host no @'s; assume username is '*'
-         */
-        user = "*";     
-        host = parv[2];
-      }
-      else {
-        user = parv[2];
-        *(host++) = '\0';       /* break up string at the '@' */
-      }
-      ip_mask = check_if_ipmask(host);  /* Store this boolean */
-#ifdef BADCHAN
-      if ('#' == *host || '&' == *host || '+' == *host)
-         gtype = 1;                /* BAD CHANNEL GLINE */
-#endif
-      for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-           gline = gline->next)
-      {
-        if (0 == ircd_strcmp(gline->name, user) &&
-            0 == ircd_strcmp(gline->host, host))
-          break;
-        prev = gline;
-      }
-
-      if (!active && gline)
-      {
-        /*
-         * removing the gline, notify opers
-         */
-        sendto_op_mask(SNO_GLINE, "%s removing %s for %s@%s", parv[0],
-            gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-
-#ifdef GPATH
-       write_log(GPATH, "# " TIME_T_FMT " %s removing %s for %s@%s\n",
-           TStime(), parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, 
-            gline->host);
-#endif /* GPATH */
-
-        free_gline(gline, prev);        /* remove the gline */
-      }
-      else if (active)
-      {                         /* must be adding a gline */
-        expire = atoi(parv[3]) + TStime();      /* expire time? */
-        if (gline && gline->expire < expire)
-        {                       /* new expire time? */
-          /* yes, notify the opers */
-          sendto_op_mask(SNO_GLINE,
-             "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-             parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-             expire);
-#ifdef GPATH
-          write_log(GPATH, "# " TIME_T_FMT " %s resetting expiration time "
-              "on %s for %s@%s to " TIME_T_FMT "\n",
-              TStime(), parv[0], gtype ? "BADCHAN" : "GLINE",
-              gline->name, gline->host, expire);
-#endif /* GPATH */
-
-          gline->expire = expire;       /* reset the expire time */
-        }
-        else if (!gline)
-        {                       /* create gline */
-          for (gline = (gtype) ? BadChanGlineList : GlobalGlineList; gline; gline = gline->next)
-            if (!mmatch(gline->name, user) &&
-                (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-                !mmatch(gline->host, host))
-              return 0;         /* found an existing G-line that matches */
-
-          /* add the line: */
-          add_gline(sptr, ip_mask, host, parv[4], user, expire, 0);
-        }
-      }
-    }
+  struct Client *acptr = 0;
+  struct Gline *agline = 0;
+  unsigned int flags = 0;
+  enum GlineAction action = GLINE_MODIFY;
+  time_t expire_off = 0, lastmod = 0, lifetime = 0;
+  char *mask = parv[2], *target = parv[1], *reason = "No reason", *tmp = 0;
+
+  if (parc < 3)
+    return need_more_params(sptr, "GLINE");
+
+  if (*mask == '!') {
+    mask++;
+    flags |= GLINE_OPERFORCE; /* assume oper had WIDE_GLINE */
+  } else if (IsServer(sptr))
+    flags |= GLINE_FORCE;
+
+  switch (*mask) { /* handle +, -, <, and > */
+  case '+': /* activate the G-line */
+    action = GLINE_ACTIVATE;
+    mask++;
+    break;
+
+  case '-': /* deactivate the G-line */
+    action = GLINE_DEACTIVATE;
+    mask++;
+    break;
+
+  case '>': /* locally activate the G-line */
+    action = GLINE_LOCAL_ACTIVATE;
+    mask++;
+    break;
+
+  case '<': /* locally deactivate the G-line */
+    action = GLINE_LOCAL_DEACTIVATE;
+    mask++;
+    break;
   }
-  else if (parc < 2 || *parv[1] == '\0')
-  {
-    /* Not enough args and a user; list glines */
-    for (gline = GlobalGlineList; gline; gline = gline->next)
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0],
-          gline->name, gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? (GlineIsLocal(gline) ? " (local)" : "") :
-          " (Inactive)");
-    sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-  }
-  else
-  {
-    int priv;
-
-#ifdef LOCOP_LGLINE
-    priv = IsAnOper(cptr);
-#else
-    priv = IsOper(cptr);
-#endif
-
-    if (priv)
-    {                           /* non-oper not permitted to change things */
-      if (*parv[1] == '-')
-      {                         /* oper wants to deactivate the gline */
-        active = 0;
-        parv[1]++;
-      }
-      else if (*parv[1] == '+')
-      {                         /* oper wants to activate inactive gline */
-        active = 1;
-        parv[1]++;
-      }
-      else
-        active = -1;
 
-      if (parc > 2)
-        expire = atoi(parv[2]) + TStime();      /* oper wants to reset
-                                                   expire TS */
-    }
-    else
-      active = -1;
+  /* Now, let's figure out if it's a local or global G-line */
+  if (action == GLINE_LOCAL_ACTIVATE || action == GLINE_LOCAL_DEACTIVATE ||
+      (target[0] == '*' && target[1] == '\0'))
+    flags |= GLINE_GLOBAL;
+  else {
+    if (!(acptr = FindNServer(target)))
+      return 0; /* no such server, jump out */
 
-    if (!(host = strchr(parv[1], '@')))
-    {
-      user = "*";               /* no @'s; assume username is '*' */
-      host = parv[1];
-    }
-    else
-    {
-      user = parv[1];
-      *(host++) = '\0';         /* break up string at the '@' */
-    }
-    ip_mask = check_if_ipmask(host);    /* Store this boolean */
-#ifdef BADCHAN
-    if ('#' == *host || '&' == *host || '+' == *host)
-#ifndef LOCAL_BADCHAN
-     return 0;
-#else
-     gtype = 1;  /* BAD CHANNEL */
-#endif
-#endif
-
-    for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-         gline = gline->next)
-    {
-      if (!mmatch(gline->name, user) &&
-          (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-          !mmatch(gline->host, host))
-        break;
-      prev = gline;
-    }
+    flags |= GLINE_LOCAL;
+  }
 
-    if (!gline)
-    {
-#ifdef OPER_LGLINE
-      if (priv && active && expire > CurrentTime)
-      {
-        /* Add local G-line */
-        if (parc < 4 || !strchr(parv[3], ' '))
-          return need_more_params(sptr, "GLINE");
+  /* Next, try to find the G-line... */
+  if ((flags & GLINE_GLOBAL) || IsMe(acptr)) /* don't bother if it's not me! */
+    agline = gline_find(mask, flags | GLINE_ANY | GLINE_EXACT);
 
-        add_gline(sptr, ip_mask, host, parv[3], user, expire, 1);
-      }
-      else
-#endif
-        sendto_one(cptr, err_str(ERR_NOSUCHGLINE), me.name, parv[0], user,
-            host);
+  /* We now have all the pieces to tell us what we've got; let's
+   * put it all together and convert the rest of the arguments.
+   */
 
-      return 0;
+  /* Handle the local G-lines first... */
+  if (flags & GLINE_LOCAL) {
+    assert(acptr);
+
+    /* normalize the action, first */
+    if (action == GLINE_LOCAL_ACTIVATE || action == GLINE_MODIFY)
+      action = GLINE_ACTIVATE;
+    else if (action == GLINE_LOCAL_DEACTIVATE)
+      action = GLINE_DEACTIVATE;
+
+    if (action == GLINE_ACTIVATE) { /* get expiration and reason */
+      if (parc < 5) /* check parameter count... */
+       return need_more_params(sptr, "GLINE");
+
+      expire_off = atoi(parv[3]); /* get expiration... */
+      reason = parv[parc - 1]; /* and reason */
+
+      if (IsMe(acptr)) {
+       /* XXX and create the local G-line */
+       sendwallto_group_butone(&me, WALL_DESYNCH, NULL,
+                               "I would create a local G-line here; target "
+                               "%s, mask %s, operforce %s, action %s, "
+                               "expire %Tu, reason: %s", target, mask,
+                               flags & GLINE_OPERFORCE ? "YES" : "NO",
+                               action == GLINE_ACTIVATE ? "+" : "-",
+                               expire_off, reason);
+      }
+    } else if (IsMe(acptr)) { /* destroying a local G-line */
+      /* XXX destroy the G-line */;
+      sendwallto_group_butone(&me, WALL_DESYNCH, NULL,
+                             "I would destroy a local G-line here; target "
+                             "%s, mask %s, operforce %s, action %s", target,
+                             mask, flags & GLINE_OPERFORCE ? "YES" : "NO",
+                             action == GLINE_ACTIVATE ? "+" : "-");
     }
 
-    if (expire <= gline->expire)
-      expire = 0;
-
-    if ((active == -1 ||
-        (active ? GlineIsActive(gline) : !GlineIsActive(gline))) &&
-        expire == 0)
-    {
-      /* oper wants a list of one gline only */
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0], gline->name,
-          gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? "" : " (Inactive)");
-      sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-      return 0;
+    /* OK, we've converted arguments; if it's not for us, forward */
+    /* UPDATE NOTE: Once all servers are updated to u2.10.12.11, the
+     * format string in this sendcmdto_one() may be updated to omit
+     * <lastmod> for GLINE_ACTIVATE and to omit <expire>, <lastmod>,
+     * and <reason> for GLINE_DEACTIVATE.
+     */
+    if (!IsMe(acptr)) {
+      sendwallto_group_butone(&me, WALL_DESYNCH, NULL,
+                             "I am forwarding a local G-line to a remote "
+                             "server; target %s, mask %s, operforce %s, "
+                             "action %s, expire %Tu, lastmod %Tu, reason: %s",
+                             target, mask,
+                             flags & GLINE_OPERFORCE ? "YES" : "NO",
+                             action == GLINE_ACTIVATE ? "+" :  "-",
+                             expire_off, CurrentTime, reason);
+      sendcmdto_one(sptr, CMD_GLINE, acptr, "%C %s%c%s %Tu %Tu :%s",
+                   acptr, flags & GLINE_OPERFORCE ? "!" : "",
+                   action == GLINE_ACTIVATE ? '+' : '-', mask, expire_off,
+                   CurrentTime, reason);
     }
 
-    if (active != -1 &&
-        (active ? !GlineIsActive(gline) : GlineIsActive(gline)))
-    {
-      if (active)               /* reset activation on gline */
-        SetActive(gline);
-#ifdef OPER_LGLINE
-      else if (GlineIsLocal(gline))
-      {
-        /* Remove local G-line */
-        sendto_op_mask(SNO_GLINE, "%s removed local %s for %s@%s",
-            parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-#ifdef GPATH
-        write_log(GPATH, "# " TIME_T_FMT
-            " %s!%s@%s removed local %s for %s@%s\n",
-            TStime(), parv[0], cptr->user->username, cptr->user->host,
-            gtype ? "BADCHAN" : "GLINE",
-            gline->name, gline->host);
-#endif /* GPATH */
-        free_gline(gline, prev);        /* remove the gline */
-        return 0;
-      }
-#endif
-      else
-        ClearActive(gline);
-    }
-    else
-      active = -1;              /* for later sendto_ops and logging functions */
-
-    if (expire)
-      gline->expire = expire;   /* reset expiration time */
-
-    /* inform the operators what's up */
-    if (active != -1)
-    {                           /* changing the activation */
-       sendto_op_mask(SNO_GLINE, !expire ? "%s %sactivating %s for %s@%s" :
-          "%s %sactivating %s for %s@%s and "
-          "resetting expiration time to " TIME_T_FMT,
-          parv[0], active ? "re" : "de", gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#ifdef GPATH
-      write_log(GPATH, !expire ? "# " TIME_T_FMT " %s!%s@%s %sactivating "
-          "%s for %s@%s\n" : "# " TIME_T_FMT " %s!%s@%s %sactivating %s "
-          "for %s@%s and resetting expiration time to " TIME_T_FMT "\n",
-          TStime(), parv[0], cptr->user->username, cptr->user->host,
-          active ? "re" : "de", gtype ? "BADCHAN" : "GLINE", gline->name, 
-          gline->host, gline->expire);
-#endif /* GPATH */
+    return 0; /* all done */
+  }
 
-    }
-    else if (expire)
-    {                           /* changing only the expiration */
-      sendto_op_mask(SNO_GLINE,
-          "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-          parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-          gline->expire);
-#ifdef GPATH
-      write_log(GPATH, "# " TIME_T_FMT " %s!%s@%s resetting expiration "
-          "time on %s for %s@%s to " TIME_T_FMT "\n", TStime(), parv[0],
-          cptr->user->username, cptr->user->host, gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#endif /* GPATH */
+  /* can't modify a G-line that doesn't exist, so remap to activate */
+  if (!agline && action == GLINE_MODIFY)
+    action = GLINE_ACTIVATE;
+
+  /* OK, let's figure out what other parameters we may have... */
+  switch (action) {
+  case GLINE_LOCAL_ACTIVATE: /* locally activating a G-line */
+  case GLINE_LOCAL_DEACTIVATE: /* locally deactivating a G-line */
+    break; /* no additional parameters to manipulate */
+
+  case GLINE_ACTIVATE: /* activating a G-line */
+  case GLINE_DEACTIVATE: /* deactivating a G-line */
+    /* in either of these cases, we have at least a lastmod parameter */
+    if (parc < 4)
+      return need_more_params(sptr, "GLINE");
+    else if (parc == 4) /* lastmod only form... */
+      lastmod = atoi(parv[3]);
+    /*FALLTHROUGH*/
+  case GLINE_MODIFY: /* modifying a G-line */
+    /* convert expire and lastmod, look for lifetime and reason */
+    if (parc > 4) { /* protect against fall-through from 4-param form */
+      if (parc < 5)
+       return need_more_params(sptr, "GLINE");
+
+      expire_off = atoi(parv[3]); /* convert expiration and lastmod */
+      lastmod = atoi(parv[4]);
+
+      if (parc > 6) { /* no question, have a lifetime and reason */
+       lifetime = atoi(parv[5]);
+       reason = parv[parc - 1];
+      } else if (parc == 6) { /* either a lifetime or a reason */
+       if (!agline || /* gline creation, has to be the reason */
+           /* trial-convert as lifetime, and if it doesn't fully convert,
+            * it must be the reason */
+           ((lifetime = strtoul(parv[5], &tmp, 10)) && !*tmp)) {
+         lifetime = 0;
+         reason = parv[5];
+       }
+      }
     }
   }
-  return 0;
+
+  sendwallto_group_butone(&me, WALL_DESYNCH, NULL,
+                         "I have a global G-line I would act upon now; "
+                         "target %s, mask %s, operforce %s, action %s, "
+                         "expire %Tu, lastmod %Tu, lifetime %Tu, "
+                         "reason: %s; gline %s!",
+                         target, mask, flags & GLINE_OPERFORCE ? "YES" : "NO",
+                         action == GLINE_ACTIVATE ? "+" :
+                         (action == GLINE_DEACTIVATE ? "-" :
+                          (action == GLINE_LOCAL_ACTIVATE ? ">" :
+                           (action == GLINE_LOCAL_DEACTIVATE ? "<" :
+                            "(MODIFY)"))), expire_off, lastmod, lifetime,
+                         reason, agline ? "EXISTS" : "does not exist");
+
+  /* OK, at this point, we have converted all available parameters.
+   * Let's actually do the action!
+   */
+  if (agline)
+    /* XXX modify the G-line */;
+
+  /* XXX create the G-line */return 0;
+
+
+
+
+
+/*   if ((parc == 3 && *mask == '-') || parc == 5) */
+/*   { */
+/*     if (!find_conf_byhost(cli_confs(cptr), cli_name(sptr), CONF_UWORLD)) */
+/*       return need_more_params(sptr, "GLINE"); */
+
+/*     flags |= GLINE_FORCE; */
+/*   } */
+/*   else if (parc > 5) */
+/*     lastmod = atoi(parv[4]); */
+/*   else */
+/*     return need_more_params(sptr, "GLINE"); */
+
+/*   if (parc > 4) */
+/*     reason = parv[parc - 1]; */
+
+/*   if (IsServer(sptr)) */
+/*     flags |= GLINE_FORCE; */
+
+/*   if (!(target[0] == '*' && target[1] == '\0')) { */
+/*     if (!(acptr = FindNServer(target))) */
+/*       return 0; /\* no such server *\/ */
+
+/*     if (!IsMe(acptr)) { /\* manually propagate *\/ */
+/*       if (!lastmod) */
+/*     sendcmdto_one(sptr, CMD_GLINE, acptr, */
+/*                   (parc == 3) ? "%C %s" : "%C %s %s :%s", acptr, mask, */
+/*                   parv[3], reason); */
+/*       else */
+/*     sendcmdto_one(sptr, CMD_GLINE, acptr, "%C %s%s %s %s :%s", acptr, */
+/*                   flags & GLINE_OPERFORCE ? "!" : "", mask, parv[3], */
+/*                   parv[4], reason); */
+
+/*       return 0; */
+/*     } */
+
+/*     flags |= GLINE_LOCAL; */
+/*   } */
+
+/*   if (*mask == '-') */
+/*     mask++; */
+/*   else if (*mask == '+') { */
+/*     flags |= GLINE_ACTIVE; */
+/*     mask++; */
+/*   } else */
+/*     flags |= GLINE_ACTIVE; */
+
+/*   expire_off = parc < 5 ? 0 : atoi(parv[3]); */
+
+/*   agline = gline_find(mask, GLINE_ANY | GLINE_EXACT); */
+
+/*   if (agline) { */
+/*     if (GlineIsLocal(agline) && !(flags & GLINE_LOCAL)) /\* global over local *\/ */
+/*       gline_free(agline); */
+/*     else if (!lastmod && ((flags & GLINE_ACTIVE) == GlineIsRemActive(agline))) */
+/*       return gline_propagate(cptr, sptr, agline); */
+/*     else if (!lastmod || GlineLastMod(agline) < lastmod) { /\* new mod *\/ */
+/*       if (flags & GLINE_ACTIVE) */
+/*     return gline_activate(cptr, sptr, agline, lastmod, flags); */
+/*       else */
+/*     return gline_deactivate(cptr, sptr, agline, lastmod, flags); */
+/*     } else if (GlineLastMod(agline) == lastmod || IsBurstOrBurstAck(cptr)) */
+/*       return 0; */
+/*     else */
+/*       return gline_resend(cptr, agline); /\* other server desynched WRT gline *\/ */
+/*   } else if (parc == 3 && !(flags & GLINE_ACTIVE)) { */
+/*     /\* U-lined server removing a G-line we don't have; propagate the removal */
+/*      * anyway. */
+/*      *\/ */
+/*     if (!(flags & GLINE_LOCAL)) */
+/*       sendcmdto_serv_butone(sptr, CMD_GLINE, cptr, "* -%s", mask); */
+/*     return 0; */
+/*   } else if (parc < 5) */
+/*     return need_more_params(sptr, "GLINE"); */
+
+/*   return gline_add(cptr, sptr, mask, reason, expire_off, lastmod, flags); */
 }
 
 /*
  * mo_gline - oper message handler
  *
- * parv[0] = Send prefix
+ * parv[0] = Sender prefix
+ * parv[1] = [[+|-]<G-line mask>]
  *
- * From server:
+ * Local (to me) style:
  *
- * parv[1] = Target: server numeric
- * parv[2] = [+|-]<G-line mask>
- * parv[3] = Expiration offset
- * parv[4] = Comment
+ * parv[2] = [Expiration offset]
+ * parv[3] = [Comment]
  *
- * From client:
+ * Global (or remote local) style:
  *
- * parv[1] = [+|-]<G-line mask>
- * parv[2] = Expiration offset
- * parv[3] = Comment
+ * parv[2] = [target]
+ * parv[3] = [Expiration offset]
+ * parv[4] = [Comment]
  *
  */
-int mo_gline(struct Client* cptr, struct Client* sptr, int parc, char* parv[])
+int
+mo_gline(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
 {
-  struct Client* acptr = 0;  /* Init. to avoid compiler warning. */
-  struct Gline*  gline;
-  struct Gline*  prev;
-  char*          user;
-  char*          host;
-  int            active;
-  int            ip_mask;
-  int            gtype = 0;
-  time_t         expire = 0;
-
-  /*
-   * Remove expired G-lines
-   */
-  gline_remove_expired(TStime());
-#ifdef BADCHAN
-  /*
-   * Remove expired bad channels
-   */
-  bad_channel_remove_expired(TStime());
-#endif
+  struct Client *acptr = 0;
+  struct Gline *agline;
+  unsigned int flags = 0;
+  time_t expire_off;
+  char *mask = parv[1], *target = 0, *reason;
 
-  if (IsServer(cptr)) {
-    if (find_conf_byhost(cptr->confs, sptr->name, CONF_UWORLD)) {
-      if (parc < 3 || (*parv[2] != '-' && (parc < 5 || *parv[4] == '\0')))
-        return need_more_params(sptr, "GLINE");
-
-      if (*parv[2] == '-') /* add mode or delete mode? */
-        active = 0;
-      else
-        active = 1;
-
-      if (*parv[2] == '+' || *parv[2] == '-')
-        parv[2]++; /* step past mode indicator */
-
-      /*
-       * forward the message appropriately
-       */
-      if (0 == ircd_strcmp(parv[1], "*")) {
-        /*
-         * global!
-         */
-        sendto_serv_butone(cptr,
-                     active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-                     NumServ(sptr), parv[1], parv[2], parv[3], parv[4]);
-      }
-      else if ((
-#if 1
-          /*
-           * REMOVE THIS after all servers upgraded to 2.10.01 and
-           * Uworld uses a numeric too
-           */
-          (strlen(parv[1]) != 1 && !(acptr = FindClient(parv[1])))) ||
-          (strlen(parv[1]) == 1 &&
-#endif
-          !(acptr = FindNServer(parv[1]))))
-        return 0;               /* no such server/user exists; forget it */
-      else
-#if 1
-/*
- * REMOVE THIS after all servers upgraded to 2.10.01 and
- * Uworld uses a numeric too
- */
-      if (IsServer(acptr) || !MyConnect(acptr))
-#endif
-      {
-        /* single destination */
-        sendto_one(acptr,
-               active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-               NumServ(sptr), parv[1], parv[2], parv[3], parv[4]);
-        return 0;               /* only the intended  destination
-                                   should add this gline */
-      }
+  if (parc < 2)
+    return gline_list(sptr, 0);
 
-      if (!(host = strchr(parv[2], '@'))) {
-        /*
-         * convert user@host no @'s; assume username is '*'
-         */
-        user = "*";     
-        host = parv[2];
-      }
-      else {
-        user = parv[2];
-        *(host++) = '\0';       /* break up string at the '@' */
-      }
-      ip_mask = check_if_ipmask(host);  /* Store this boolean */
-#ifdef BADCHAN
-      if ('#' == *host || '&' == *host || '+' == *host)
-         gtype = 1;                /* BAD CHANNEL GLINE */
-#endif
-      for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-           gline = gline->next)
-      {
-        if (0 == ircd_strcmp(gline->name, user) &&
-            0 == ircd_strcmp(gline->host, host))
-          break;
-        prev = gline;
-      }
+  if (*mask == '!') {
+    mask++;
 
-      if (!active && gline)
-      {
-        /*
-         * removing the gline, notify opers
-         */
-        sendto_op_mask(SNO_GLINE, "%s removing %s for %s@%s", parv[0],
-            gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-
-#ifdef GPATH
-       write_log(GPATH, "# " TIME_T_FMT " %s removing %s for %s@%s\n",
-           TStime(), parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, 
-            gline->host);
-#endif /* GPATH */
-
-        free_gline(gline, prev);        /* remove the gline */
-      }
-      else if (active)
-      {                         /* must be adding a gline */
-        expire = atoi(parv[3]) + TStime();      /* expire time? */
-        if (gline && gline->expire < expire)
-        {                       /* new expire time? */
-          /* yes, notify the opers */
-          sendto_op_mask(SNO_GLINE,
-             "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-             parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-             expire);
-#ifdef GPATH
-          write_log(GPATH, "# " TIME_T_FMT " %s resetting expiration time "
-              "on %s for %s@%s to " TIME_T_FMT "\n",
-              TStime(), parv[0], gtype ? "BADCHAN" : "GLINE",
-              gline->name, gline->host, expire);
-#endif /* GPATH */
-
-          gline->expire = expire;       /* reset the expire time */
-        }
-        else if (!gline)
-        {                       /* create gline */
-          for (gline = (gtype) ? BadChanGlineList : GlobalGlineList; gline; gline = gline->next)
-            if (!mmatch(gline->name, user) &&
-                (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-                !mmatch(gline->host, host))
-              return 0;         /* found an existing G-line that matches */
-
-          /* add the line: */
-          add_gline(sptr, ip_mask, host, parv[4], user, expire, 0);
-        }
-      }
-    }
+    if (HasPriv(sptr, PRIV_WIDE_GLINE))
+      flags |= GLINE_OPERFORCE;
   }
-  else if (parc < 2 || *parv[1] == '\0')
-  {
-    /* Not enough args and a user; list glines */
-    for (gline = GlobalGlineList; gline; gline = gline->next)
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0],
-          gline->name, gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? (GlineIsLocal(gline) ? " (local)" : "") :
-          " (Inactive)");
-    sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-  }
-  else
-  {
-    int priv;
-
-#ifdef LOCOP_LGLINE
-    priv = IsAnOper(cptr);
-#else
-    priv = IsOper(cptr);
-#endif
-
-    if (priv)
-    {                           /* non-oper not permitted to change things */
-      if (*parv[1] == '-')
-      {                         /* oper wants to deactivate the gline */
-        active = 0;
-        parv[1]++;
-      }
-      else if (*parv[1] == '+')
-      {                         /* oper wants to activate inactive gline */
-        active = 1;
-        parv[1]++;
-      }
-      else
-        active = -1;
 
-      if (parc > 2)
-        expire = atoi(parv[2]) + TStime();      /* oper wants to reset
-                                                   expire TS */
-    }
-    else
-      active = -1;
+  if (*mask == '+') {
+    flags |= GLINE_ACTIVE;
+    mask++;
 
-    if (!(host = strchr(parv[1], '@')))
-    {
-      user = "*";               /* no @'s; assume username is '*' */
-      host = parv[1];
-    }
-    else
-    {
-      user = parv[1];
-      *(host++) = '\0';         /* break up string at the '@' */
-    }
-    ip_mask = check_if_ipmask(host);    /* Store this boolean */
-#ifdef BADCHAN
-    if ('#' == *host || '&' == *host || '+' == *host)
-#ifndef LOCAL_BADCHAN
-     return 0;
-#else
-     gtype = 1;  /* BAD CHANNEL */
-#endif
-#endif
-
-    for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-         gline = gline->next)
+  } else if (*mask == '-')
+    mask++;
+  else
+    return gline_list(sptr, mask);
+
+  if (parc == 4) {
+    expire_off = atoi(parv[2]);
+    reason = parv[3];
+    flags |= GLINE_LOCAL;
+  } else if (parc > 4) {
+    target = parv[2];
+    expire_off = atoi(parv[3]);
+    reason = parv[4];
+  } else
+    return need_more_params(sptr, "GLINE");
+
+  if (target)
+  {
+    if (!(target[0] == '*' && target[1] == '\0'))
     {
-      if (!mmatch(gline->name, user) &&
-          (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-          !mmatch(gline->host, host))
-        break;
-      prev = gline;
-    }
+      if (!(acptr = find_match_server(target)))
+       return send_reply(sptr, ERR_NOSUCHSERVER, target);
 
-    if (!gline)
-    {
-#ifdef OPER_LGLINE
-      if (priv && active && expire > CurrentTime)
+      /* manually propagate, since we don't set it */
+      if (!IsMe(acptr))
       {
-        /* Add local G-line */
-        if (parc < 4 || !strchr(parv[3], ' '))
-          return need_more_params(sptr, "GLINE");
+       if (!feature_bool(FEAT_CONFIG_OPERCMDS))
+         return send_reply(sptr, ERR_DISABLED, "GLINE");
 
-        add_gline(sptr, ip_mask, host, parv[3], user, expire, 1);
-      }
-      else
-#endif
-        sendto_one(cptr, err_str(ERR_NOSUCHGLINE), me.name, parv[0], user,
-            host);
+       if (!HasPriv(sptr, PRIV_GLINE))
+         return send_reply(sptr, ERR_NOPRIVILEGES);
 
-      return 0;
+       sendcmdto_one(sptr, CMD_GLINE, acptr, "%C %s%c%s %s %Tu :%s", acptr,
+                     flags & GLINE_OPERFORCE ? "!" : "",
+                     flags & GLINE_ACTIVE ? '+' : '-', mask, parv[3],
+                     TStime(), reason);
+       return 0;
+      }
+      flags |= GLINE_LOCAL;
     }
+  }
 
-    if (expire <= gline->expire)
-      expire = 0;
+  if (!(flags & GLINE_LOCAL) && !feature_bool(FEAT_CONFIG_OPERCMDS))
+    return send_reply(sptr, ERR_DISABLED, "GLINE");
 
-    if ((active == -1 ||
-        (active ? GlineIsActive(gline) : !GlineIsActive(gline))) &&
-        expire == 0)
-    {
-      /* oper wants a list of one gline only */
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0], gline->name,
-          gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? "" : " (Inactive)");
-      sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-      return 0;
-    }
+  if (!HasPriv(sptr, (flags & GLINE_LOCAL ? PRIV_LOCAL_GLINE : PRIV_GLINE)))
+    return send_reply(sptr, ERR_NOPRIVILEGES);
 
-    if (active != -1 &&
-        (active ? !GlineIsActive(gline) : GlineIsActive(gline)))
-    {
-      if (active)               /* reset activation on gline */
-        SetActive(gline);
-#ifdef OPER_LGLINE
-      else if (GlineIsLocal(gline))
-      {
-        /* Remove local G-line */
-        sendto_op_mask(SNO_GLINE, "%s removed local %s for %s@%s",
-            parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-#ifdef GPATH
-        write_log(GPATH, "# " TIME_T_FMT
-            " %s!%s@%s removed local %s for %s@%s\n",
-            TStime(), parv[0], cptr->user->username, cptr->user->host,
-            gtype ? "BADCHAN" : "GLINE",
-            gline->name, gline->host);
-#endif /* GPATH */
-        free_gline(gline, prev);        /* remove the gline */
-        return 0;
-      }
-#endif
-      else
-        ClearActive(gline);
-    }
-    else
-      active = -1;              /* for later sendto_ops and logging functions */
-
-    if (expire)
-      gline->expire = expire;   /* reset expiration time */
-
-    /* inform the operators what's up */
-    if (active != -1)
-    {                           /* changing the activation */
-       sendto_op_mask(SNO_GLINE, !expire ? "%s %sactivating %s for %s@%s" :
-          "%s %sactivating %s for %s@%s and "
-          "resetting expiration time to " TIME_T_FMT,
-          parv[0], active ? "re" : "de", gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#ifdef GPATH
-      write_log(GPATH, !expire ? "# " TIME_T_FMT " %s!%s@%s %sactivating "
-          "%s for %s@%s\n" : "# " TIME_T_FMT " %s!%s@%s %sactivating %s "
-          "for %s@%s and resetting expiration time to " TIME_T_FMT "\n",
-          TStime(), parv[0], cptr->user->username, cptr->user->host,
-          active ? "re" : "de", gtype ? "BADCHAN" : "GLINE", gline->name, 
-          gline->host, gline->expire);
-#endif /* GPATH */
+  agline = gline_find(mask, GLINE_ANY | GLINE_EXACT);
 
-    }
-    else if (expire)
-    {                           /* changing only the expiration */
-      sendto_op_mask(SNO_GLINE,
-          "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-          parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-          gline->expire);
-#ifdef GPATH
-      write_log(GPATH, "# " TIME_T_FMT " %s!%s@%s resetting expiration "
-          "time on %s for %s@%s to " TIME_T_FMT "\n", TStime(), parv[0],
-          cptr->user->username, cptr->user->host, gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#endif /* GPATH */
+  if (agline) {
+    if (GlineIsLocal(agline) && !(flags & GLINE_LOCAL)) /* global over local */
+      gline_free(agline);
+    else {
+      if (!GlineLastMod(agline)) /* force mods to Uworld-set G-lines local */
+       flags |= GLINE_LOCAL;
+
+      if (flags & GLINE_ACTIVE)
+       return gline_activate(cptr, sptr, agline,
+                             GlineLastMod(agline) ? TStime() : 0, flags);
+      else
+       return gline_deactivate(cptr, sptr, agline,
+                               GlineLastMod(agline) ? TStime() : 0, flags);
     }
   }
-  return 0;
-}
 
+  return gline_add(cptr, sptr, mask, reason, expire_off, TStime(), flags);
+}
 
-#if 0
 /*
- * m_gline
- *
- * parv[0] = Send prefix
+ * m_gline - user message handler
  *
- * From server:
- *
- * parv[1] = Target: server numeric
- * parv[2] = [+|-]<G-line mask>
- * parv[3] = Expiration offset
- * parv[4] = Comment
- *
- * From client:
- *
- * parv[1] = [+|-]<G-line mask>
- * parv[2] = Expiration offset
- * parv[3] = Comment
+ * parv[0] = Sender prefix
+ * parv[1] = [<server name>]
  *
  */
-int m_gline(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
+int
+m_gline(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
 {
-  struct Client* acptr = 0;  /* Init. to avoid compiler warning. */
-  struct Gline*  gline;
-  struct Gline*  prev;
-  char*          user;
-  char*          host;
-  int            active;
-  int            ip_mask;
-  int            gtype = 0;
-  time_t         expire = 0;
-
-  /*
-   * Remove expired G-lines
-   */
-  gline_remove_expired(TStime());
-#ifdef BADCHAN
-  /*
-   * Remove expired bad channels
-   */
-  bad_channel_remove_expired(TStime());
-#endif
-
-  if (IsServer(cptr)) {
-    if (find_conf_byhost(cptr->confs, sptr->name, CONF_UWORLD)) {
-      if (parc < 3 || (*parv[2] != '-' && (parc < 5 || *parv[4] == '\0')))
-        return need_more_params(sptr, "GLINE");
-
-      if (*parv[2] == '-') /* add mode or delete mode? */
-        active = 0;
-      else
-        active = 1;
-
-      if (*parv[2] == '+' || *parv[2] == '-')
-        parv[2]++; /* step past mode indicator */
-
-      /*
-       * forward the message appropriately
-       */
-      if (0 == ircd_strcmp(parv[1], "*")) {
-        /*
-         * global!
-         */
-        sendto_serv_butone(cptr,
-                     active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-                     NumServ(cptr), parv[1], parv[2], parv[3], parv[4]);
-      }
-      else if ((
-#if 1
-          /*
-           * REMOVE THIS after all servers upgraded to 2.10.01 and
-           * Uworld uses a numeric too
-           */
-          (strlen(parv[1]) != 1 && !(acptr = FindClient(parv[1])))) ||
-          (strlen(parv[1]) == 1 &&
-#endif
-          !(acptr = FindNServer(parv[1]))))
-        return 0;               /* no such server/user exists; forget it */
-      else
-#if 1
-/*
- * REMOVE THIS after all servers upgraded to 2.10.01 and
- * Uworld uses a numeric too
- */
-      if (IsServer(acptr) || !MyConnect(acptr))
-#endif
-      {
-        /* single destination */
-        sendto_one(acptr,
-               active ? "%s " TOK_GLINE " %s +%s %s :%s" : "%s " TOK_GLINE " %s -%s",
-               NumServ(sptr), parv[1], parv[2], parv[3], parv[4]);
-        return 0;               /* only the intended  destination
-                                   should add this gline */
-      }
-
-      if (!(host = strchr(parv[2], '@'))) {
-        /*
-         * convert user@host no @'s; assume username is '*'
-         */
-        user = "*";     
-        host = parv[2];
-      }
-      else {
-        user = parv[2];
-        *(host++) = '\0';       /* break up string at the '@' */
-      }
-      ip_mask = check_if_ipmask(host);  /* Store this boolean */
-#ifdef BADCHAN
-      if ('#' == *host || '&' == *host || '+' == *host)
-         gtype = 1;                /* BAD CHANNEL GLINE */
-#endif
-      for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-           gline = gline->next)
-      {
-        if (0 == ircd_strcmp(gline->name, user) &&
-            0 == ircd_strcmp(gline->host, host))
-          break;
-        prev = gline;
-      }
-
-      if (!active && gline)
-      {
-        /*
-         * removing the gline, notify opers
-         */
-        sendto_op_mask(SNO_GLINE, "%s removing %s for %s@%s", parv[0],
-            gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-
-#ifdef GPATH
-       write_log(GPATH, "# " TIME_T_FMT " %s removing %s for %s@%s\n",
-           TStime(), parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, 
-            gline->host);
-#endif /* GPATH */
-
-        free_gline(gline, prev);        /* remove the gline */
-      }
-      else if (active)
-      {                         /* must be adding a gline */
-        expire = atoi(parv[3]) + TStime();      /* expire time? */
-        if (gline && gline->expire < expire)
-        {                       /* new expire time? */
-          /* yes, notify the opers */
-          sendto_op_mask(SNO_GLINE,
-             "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-             parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-             expire);
-#ifdef GPATH
-          write_log(GPATH, "# " TIME_T_FMT " %s resetting expiration time "
-              "on %s for %s@%s to " TIME_T_FMT "\n",
-              TStime(), parv[0], gtype ? "BADCHAN" : "GLINE",
-              gline->name, gline->host, expire);
-#endif /* GPATH */
-
-          gline->expire = expire;       /* reset the expire time */
-        }
-        else if (!gline)
-        {                       /* create gline */
-          for (gline = (gtype) ? BadChanGlineList : GlobalGlineList; gline; gline = gline->next)
-            if (!mmatch(gline->name, user) &&
-                (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-                !mmatch(gline->host, host))
-              return 0;         /* found an existing G-line that matches */
-
-          /* add the line: */
-          add_gline(sptr, ip_mask, host, parv[4], user, expire, 0);
-        }
-      }
-    }
-  }
-  else if (parc < 2 || *parv[1] == '\0')
-  {
-    /* Not enough args and a user; list glines */
-    for (gline = GlobalGlineList; gline; gline = gline->next)
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0],
-          gline->name, gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? (GlineIsLocal(gline) ? " (local)" : "") :
-          " (Inactive)");
-    sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-  }
-  else
-  {
-    int priv;
-
-#ifdef LOCOP_LGLINE
-    priv = IsAnOper(cptr);
-#else
-    priv = IsOper(cptr);
-#endif
-
-    if (priv)
-    {                           /* non-oper not permitted to change things */
-      if (*parv[1] == '-')
-      {                         /* oper wants to deactivate the gline */
-        active = 0;
-        parv[1]++;
-      }
-      else if (*parv[1] == '+')
-      {                         /* oper wants to activate inactive gline */
-        active = 1;
-        parv[1]++;
-      }
-      else
-        active = -1;
-
-      if (parc > 2)
-        expire = atoi(parv[2]) + TStime();      /* oper wants to reset
-                                                   expire TS */
-    }
-    else
-      active = -1;
-
-    if (!(host = strchr(parv[1], '@')))
-    {
-      user = "*";               /* no @'s; assume username is '*' */
-      host = parv[1];
-    }
-    else
-    {
-      user = parv[1];
-      *(host++) = '\0';         /* break up string at the '@' */
-    }
-    ip_mask = check_if_ipmask(host);    /* Store this boolean */
-#ifdef BADCHAN
-    if ('#' == *host || '&' == *host || '+' == *host)
-#ifndef LOCAL_BADCHAN
-     return 0;
-#else
-     gtype = 1;  /* BAD CHANNEL */
-#endif
-#endif
-
-    for (gline = (gtype) ? BadChanGlineList : GlobalGlineList, prev = 0; gline;
-         gline = gline->next)
-    {
-      if (!mmatch(gline->name, user) &&
-          (ip_mask ? GlineIsIpMask(gline) : !GlineIsIpMask(gline)) &&
-          !mmatch(gline->host, host))
-        break;
-      prev = gline;
-    }
-
-    if (!gline)
-    {
-#ifdef OPER_LGLINE
-      if (priv && active && expire > CurrentTime)
-      {
-        /* Add local G-line */
-        if (parc < 4 || !strchr(parv[3], ' '))
-          return need_more_params(sptr, "GLINE");
-
-        add_gline(sptr, ip_mask, host, parv[3], user, expire, 1);
-      }
-      else
-#endif
-        sendto_one(cptr, err_str(ERR_NOSUCHGLINE), me.name, parv[0], user,
-            host);
-
-      return 0;
-    }
-
-    if (expire <= gline->expire)
-      expire = 0;
-
-    if ((active == -1 ||
-        (active ? GlineIsActive(gline) : !GlineIsActive(gline))) &&
-        expire == 0)
-    {
-      /* oper wants a list of one gline only */
-      sendto_one(cptr, rpl_str(RPL_GLIST), me.name, parv[0], gline->name,
-          gline->host, gline->expire, gline->reason,
-          GlineIsActive(gline) ? "" : " (Inactive)");
-      sendto_one(cptr, rpl_str(RPL_ENDOFGLIST), me.name, parv[0]);
-      return 0;
-    }
+  if (parc < 2)
+    return send_reply(sptr, ERR_NOSUCHGLINE, "");
 
-    if (active != -1 &&
-        (active ? !GlineIsActive(gline) : GlineIsActive(gline)))
-    {
-      if (active)               /* reset activation on gline */
-        SetActive(gline);
-#ifdef OPER_LGLINE
-      else if (GlineIsLocal(gline))
-      {
-        /* Remove local G-line */
-        sendto_op_mask(SNO_GLINE, "%s removed local %s for %s@%s",
-            parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host);
-#ifdef GPATH
-        write_log(GPATH, "# " TIME_T_FMT
-            " %s!%s@%s removed local %s for %s@%s\n",
-            TStime(), parv[0], cptr->user->username, cptr->user->host,
-            gtype ? "BADCHAN" : "GLINE",
-            gline->name, gline->host);
-#endif /* GPATH */
-        free_gline(gline, prev);        /* remove the gline */
-        return 0;
-      }
-#endif
-      else
-        ClearActive(gline);
-    }
-    else
-      active = -1;              /* for later sendto_ops and logging functions */
-
-    if (expire)
-      gline->expire = expire;   /* reset expiration time */
-
-    /* inform the operators what's up */
-    if (active != -1)
-    {                           /* changing the activation */
-       sendto_op_mask(SNO_GLINE, !expire ? "%s %sactivating %s for %s@%s" :
-          "%s %sactivating %s for %s@%s and "
-          "resetting expiration time to " TIME_T_FMT,
-          parv[0], active ? "re" : "de", gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#ifdef GPATH
-      write_log(GPATH, !expire ? "# " TIME_T_FMT " %s!%s@%s %sactivating "
-          "%s for %s@%s\n" : "# " TIME_T_FMT " %s!%s@%s %sactivating %s "
-          "for %s@%s and resetting expiration time to " TIME_T_FMT "\n",
-          TStime(), parv[0], cptr->user->username, cptr->user->host,
-          active ? "re" : "de", gtype ? "BADCHAN" : "GLINE", gline->name, 
-          gline->host, gline->expire);
-#endif /* GPATH */
-
-    }
-    else if (expire)
-    {                           /* changing only the expiration */
-      sendto_op_mask(SNO_GLINE,
-          "%s resetting expiration time on %s for %s@%s to " TIME_T_FMT,
-          parv[0], gtype ? "BADCHAN" : "GLINE", gline->name, gline->host, 
-          gline->expire);
-#ifdef GPATH
-      write_log(GPATH, "# " TIME_T_FMT " %s!%s@%s resetting expiration "
-          "time on %s for %s@%s to " TIME_T_FMT "\n", TStime(), parv[0],
-          cptr->user->username, cptr->user->host, gtype ? "BADCHAN" : "GLINE",
-          gline->name, gline->host, gline->expire);
-#endif /* GPATH */
-    }
-  }
-  return 0;
+  return gline_list(sptr, parv[1]);
 }
-
-#endif /* 0 */
-