Change in porting tactics: OS/2's EMX porting layer doesn't allow multiple
[privoxy.git] / actions.c
index 0bc413a..fff75a6 100644 (file)
--- a/actions.c
+++ b/actions.c
@@ -1,4 +1,4 @@
-const char actions_rcs[] = "$Id: actions.c,v 1.11 2001/09/14 00:17:32 jongfoster Exp $";
+const char actions_rcs[] = "$Id: actions.c,v 1.16 2001/10/23 21:30:30 jongfoster Exp $";
 /*********************************************************************
  *
  * File        :  $Source: /cvsroot/ijbswa/current/actions.c,v $
@@ -10,10 +10,10 @@ const char actions_rcs[] = "$Id: actions.c,v 1.11 2001/09/14 00:17:32 jongfoster
  *                IJBSWA team.  http://ijbswa.sourceforge.net
  *
  *                Based on the Internet Junkbuster originally written
- *                by and Copyright (C) 1997 Anonymous Coders and 
+ *                by and Copyright (C) 1997 Anonymous Coders and
  *                Junkbusters Corporation.  http://www.junkbusters.com
  *
- *                This program is free software; you can redistribute it 
+ *                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
@@ -33,6 +33,32 @@ const char actions_rcs[] = "$Id: actions.c,v 1.11 2001/09/14 00:17:32 jongfoster
  *
  * Revisions   :
  *    $Log: actions.c,v $
+ *    Revision 1.16  2001/10/23 21:30:30  jongfoster
+ *    Adding error-checking to selected functions.
+ *
+ *    Revision 1.15  2001/10/14 21:58:22  jongfoster
+ *    Adding support for the CGI-based editor:
+ *    - Exported get_actions()
+ *    - Added new function free_alias_list()
+ *    - Added support for {{settings}} and {{description}} blocks
+ *      in the actions file.  They are currently ignored.
+ *    - Added restriction to only one {{alias}} block which must appear
+ *      first in the file, to simplify the editor's rewriting rules.
+ *    - Note that load_actions_file() is no longer used by the CGI-based
+ *      editor, but some of the other routines in this file are.
+ *
+ *    Revision 1.14  2001/09/22 16:36:59  jongfoster
+ *    Removing unused parameter fs from read_config_line()
+ *
+ *    Revision 1.13  2001/09/16 15:47:37  jongfoster
+ *    First version of CGI-based edit interface.  This is very much a
+ *    work-in-progress, and you can't actually use it to edit anything
+ *    yet.  You must #define FEATURE_CGI_EDIT_ACTIONS for these changes
+ *    to have any effect.
+ *
+ *    Revision 1.12  2001/09/16 13:21:27  jongfoster
+ *    Changes to use new list functions.
+ *
  *    Revision 1.11  2001/09/14 00:17:32  jongfoster
  *    Tidying up memory allocation. New function init_action().
  *
@@ -79,6 +105,7 @@ const char actions_rcs[] = "$Id: actions.c,v 1.11 2001/09/14 00:17:32 jongfoster
 
 #include <stdio.h>
 #include <string.h>
+#include <assert.h>
 
 #include "project.h"
 #include "jcc.h"
@@ -87,27 +114,13 @@ const char actions_rcs[] = "$Id: actions.c,v 1.11 2001/09/14 00:17:32 jongfoster
 #include "miscutil.h"
 #include "errlog.h"
 #include "loaders.h"
+#ifdef FEATURE_CGI_EDIT_ACTIONS
+#include "encode.h"
+#endif /* def FEATURE_CGI_EDIT_ACTIONS */
 
 const char actions_h_rcs[] = ACTIONS_H_VERSION;
 
 
-/* Turn off everything except forwarding */
-/* This structure is used to hold user-defined aliases */
-struct action_alias
-{
-   const char * name;
-   struct action_spec action[1];
-   struct action_alias * next;
-};
-
-
-/*
- * Must declare this in this file for the above structure.
- */
-static int get_actions (char *line, 
-                        struct action_alias * alias_list,
-                        struct action_spec *cur_action);
-
 /*
  * We need the main list of options.
  *
@@ -125,7 +138,7 @@ static int get_actions (char *line,
 #define AV_REM_MULTI  4 /* -multiopt{string} -multiopt{*}       */
 
 /*
- * We need a structure to hold the name, flag changes, 
+ * We need a structure to hold the name, flag changes,
  * type, and string index.
  */
 struct action_name
@@ -181,13 +194,14 @@ static const struct action_name action_names[] =
  *          1  :  cur_action = Current actions, to modify.
  *          2  :  new_action = Action to add.
  *
- * Returns     :  N/A
+ * Returns     :  JB_ERR_OK or JB_ERR_MEMORY
  *
  *********************************************************************/
-void merge_actions (struct action_spec *dest, 
-                    const struct action_spec *src)
+jb_err merge_actions (struct action_spec *dest,
+                      const struct action_spec *src)
 {
    int i;
+   jb_err err;
 
    dest->mask &= src->mask;
    dest->add  &= src->mask;
@@ -200,6 +214,10 @@ void merge_actions (struct action_spec *dest,
       {
          freez(dest->string[i]);
          dest->string[i] = strdup(str);
+         if (NULL == dest->string[i])
+         {
+            return JB_ERR_MEMORY;
+         }
       }
    }
 
@@ -211,7 +229,7 @@ void merge_actions (struct action_spec *dest,
          list_remove_all(dest->multi_remove[i]);
          dest->multi_remove_all[i] = 1;
 
-         list_duplicate(dest->multi_add[i], src->multi_add[i]);
+         err = list_duplicate(dest->multi_add[i], src->multi_add[i]);
       }
       else if (dest->multi_remove_all[i])
       {
@@ -220,16 +238,23 @@ void merge_actions (struct action_spec *dest,
           * about what we add.
           */
          list_remove_list(dest->multi_add[i], src->multi_remove[i]);
-         list_append_list_unique(dest->multi_add[i], src->multi_add[i]);
+         err = list_append_list_unique(dest->multi_add[i], src->multi_add[i]);
       }
       else
       {
          /* No "remove all"s to worry about. */
          list_remove_list(dest->multi_add[i], src->multi_remove[i]);
-         list_append_list_unique(dest->multi_remove[i], src->multi_remove[i]);
-         list_append_list_unique(dest->multi_add[i], src->multi_add[i]);
+         err = list_append_list_unique(dest->multi_remove[i], src->multi_remove[i]);
+         err = err || list_append_list_unique(dest->multi_add[i], src->multi_add[i]);
+      }
+
+      if (err)
+      {
+         return err;
       }
    }
+
+   return JB_ERR_OK;
 }
 
 
@@ -249,10 +274,11 @@ void merge_actions (struct action_spec *dest,
  * Returns     :  N/A
  *
  *********************************************************************/
-void copy_action (struct action_spec *dest, 
-                  const struct action_spec *src)
+jb_err copy_action (struct action_spec *dest,
+                    const struct action_spec *src)
 {
    int i;
+   jb_err err = JB_ERR_OK;
 
    memset(dest, '\0', sizeof(*dest));
 
@@ -262,15 +288,28 @@ void copy_action (struct action_spec *dest,
    for (i = 0; i < ACTION_STRING_COUNT; i++)
    {
       char * str = src->string[i];
-      dest->string[i] = (str ? strdup(str) : NULL);
+      if (str)
+      {
+         str = strdup(str);
+         if (!str)
+         {
+            return JB_ERR_MEMORY;
+         }
+         dest->string[i] = str;
+      }
    }
 
    for (i = 0; i < ACTION_MULTI_COUNT; i++)
    {
       dest->multi_remove_all[i] = src->multi_remove_all[i];
-      list_duplicate(dest->multi_remove[i], src->multi_remove[i]);
-      list_duplicate(dest->multi_add[i],    src->multi_add[i]);
+      err =        list_duplicate(dest->multi_remove[i], src->multi_remove[i]);
+      err = err || list_duplicate(dest->multi_add[i],    src->multi_add[i]);
+      if (err)
+      {
+         return err;
+      }
    }
+   return err;
 }
 
 
@@ -327,14 +366,14 @@ void free_action (struct action_spec *src)
  *                       we found an action.
  *          2  :  name = [out] Start of action name, null
  *                       terminated.  NULL on EOL
- *          3  :  value = [out] Start of action value, null 
+ *          3  :  value = [out] Start of action value, null
  *                        terminated.  NULL if none or EOL.
  *
- * Returns     :  0 => Ok
- *                nonzero => Mismatched {} (line was trashed anyway)
+ * Returns     :  JB_ERR_OK => Ok
+ *                JB_ERR_PARSE => Mismatched {} (line was trashed anyway)
  *
  *********************************************************************/
-int get_action_token(char **line, char **name, char **value)
+jb_err get_action_token(char **line, char **name, char **value)
 {
    char * str = *line;
    char ch;
@@ -358,19 +397,19 @@ int get_action_token(char **line, char **name, char **value)
    if (*str == '{')
    {
       /* null name, just value is prohibited */
-      return 1;
+      return JB_ERR_PARSE;
    }
 
    *name = str;
 
    /* parse option */
-   while (((ch = *str) != '\0') && 
+   while (((ch = *str) != '\0') &&
           (ch != ' ') && (ch != '\t') && (ch != '{'))
    {
       if (ch == '}')
       {
-         /* error */
-         return 1;
+         /* error, '}' without '{' */
+         return JB_ERR_PARSE;
       }
       str++;
    }
@@ -389,7 +428,7 @@ int get_action_token(char **line, char **name, char **value)
          /* More to parse next time. */
          *line = str + 1;
       }
-      return 0;
+      return JB_ERR_OK;
    }
 
    str++;
@@ -400,7 +439,7 @@ int get_action_token(char **line, char **name, char **value)
    {
       /* error */
       *value = NULL;
-      return 1;
+      return JB_ERR_PARSE;
    }
 
    /* got value */
@@ -409,7 +448,7 @@ int get_action_token(char **line, char **name, char **value)
 
    chomp(*value);
 
-   return 0;
+   return JB_ERR_OK;
 }
 
 
@@ -426,14 +465,16 @@ int get_action_token(char **line, char **name, char **value)
  *          3  :  cur_action = Where to store the action.  Caller
  *                             allocates memory.
  *
- * Returns     :  0 => Ok
- *                nonzero => Error (line was trashed anyway)
+ * Returns     :  JB_ERR_OK => Ok
+ *                JB_ERR_PARSE => Parse error (line was trashed anyway)
+ *                nonzero => Out of memory (line was trashed anyway)
  *
  *********************************************************************/
-static int get_actions(char *line,
-                       struct action_alias * alias_list,
-                       struct action_spec *cur_action)
+jb_err get_actions(char *line,
+                   struct action_alias * alias_list,
+                   struct action_spec *cur_action)
 {
+   jb_err err;
    init_action(cur_action);
    cur_action->mask = ACTION_MASK_ALL;
 
@@ -442,15 +483,16 @@ static int get_actions(char *line,
       char * option = NULL;
       char * value = NULL;
 
-      if (get_action_token(&line, &option, &value))
+      err = get_action_token(&line, &option, &value);
+      if (err)
       {
-         return 1;
+         return err;
       }
 
       if (option)
       {
          /* handle option in 'option' */
-      
+
          /* Check for standard action name */
          const struct action_name * action = action_names;
 
@@ -476,11 +518,15 @@ static int get_actions(char *line,
 
                   if ((value == NULL) || (*value == '\0'))
                   {
-                     return 1;
+                     return JB_ERR_PARSE;
                   }
                   /* FIXME: should validate option string here */
                   freez (cur_action->string[action->index]);
                   cur_action->string[action->index] = strdup(value);
+                  if (NULL == cur_action->string[action->index])
+                  {
+                     return JB_ERR_MEMORY;
+                  }
                   break;
                }
             case AV_REM_STRING:
@@ -499,11 +545,15 @@ static int get_actions(char *line,
 
                   if ((value == NULL) || (*value == '\0'))
                   {
-                     return 1;
+                     return JB_ERR_PARSE;
                   }
 
                   list_remove_item(remove, value);
-                  enlist_unique(add, value, 0);
+                  err = enlist_unique(add, value, 0);
+                  if (err)
+                  {
+                     return err;
+                  }
                   break;
                }
             case AV_REM_MULTI:
@@ -532,7 +582,11 @@ static int get_actions(char *line,
                      if ( !cur_action->multi_remove_all[action->index] )
                      {
                         /* there isn't a catch-all in the remove list already */
-                        enlist_unique(remove, value, 0);
+                        err = enlist_unique(remove, value, 0);
+                        if (err)
+                        {
+                           return err;
+                        }
                      }
                      list_remove_item(add, value);
                   }
@@ -540,14 +594,15 @@ static int get_actions(char *line,
                }
             default:
                /* Shouldn't get here unless there's memory corruption. */
-               return 1;
+               assert(0);
+               return JB_ERR_PARSE;
             }
          }
          else
          {
             /* try user aliases. */
             const struct action_alias * alias = alias_list;
-            
+
             while ( (alias != NULL) && (0 != strcmpic(alias->name, option)) )
             {
                alias = alias->next;
@@ -560,13 +615,13 @@ static int get_actions(char *line,
             else
             {
                /* Bad action name */
-               return 1;
+               return JB_ERR_PARSE;
             }
          }
       }
    }
 
-   return 0;
+   return JB_ERR_OK;
 }
 
 
@@ -582,6 +637,7 @@ static int get_actions(char *line,
  *          2  :  add  = As from struct url_actions
  *
  * Returns     :  A string.  Caller must free it.
+ *                NULL on out-of-memory error.
  *
  *********************************************************************/
 char * actions_to_text(struct action_spec *action)
@@ -595,50 +651,50 @@ char * actions_to_text(struct action_spec *action)
    mask |= add;
 
 
-#define DEFINE_ACTION_BOOL(__name, __bit)   \
-   if (!(mask & __bit))                     \
-   {                                        \
-      result = strsav(result, " -" __name); \
-   }                                        \
-   else if (add & __bit)                    \
-   {                                        \
-      result = strsav(result, " +" __name); \
+#define DEFINE_ACTION_BOOL(__name, __bit)    \
+   if (!(mask & __bit))                      \
+   {                                         \
+      string_append(&result, " -" __name);   \
+   }                                         \
+   else if (add & __bit)                     \
+   {                                         \
+      string_append(&result, " +" __name);   \
    }
 
-#define DEFINE_ACTION_STRING(__name, __bit, __index) \
-   if (!(mask & __bit))                     \
-   {                                        \
-      result = strsav(result, " -" __name); \
-   }                                        \
-   else if (add & __bit)                    \
-   {                                        \
-      result = strsav(result, " +" __name "{"); \
-      result = strsav(result, action->string[__index]); \
-      result = strsav(result, "}"); \
+#define DEFINE_ACTION_STRING(__name, __bit, __index)   \
+   if (!(mask & __bit))                                \
+   {                                                   \
+      string_append(&result, " -" __name);             \
+   }                                                   \
+   else if (add & __bit)                               \
+   {                                                   \
+      string_append(&result, " +" __name "{");         \
+      string_append(&result, action->string[__index]); \
+      string_append(&result, "}");                     \
    }
 
 #define DEFINE_ACTION_MULTI(__name, __index)         \
    if (action->multi_remove_all[__index])            \
    {                                                 \
-      result = strsav(result, " -" __name "{*}");    \
+      string_append(&result, " -" __name "{*}");     \
    }                                                 \
    else                                              \
    {                                                 \
       lst = action->multi_remove[__index]->first;    \
       while (lst)                                    \
       {                                              \
-         result = strsav(result, " -" __name "{");   \
-         result = strsav(result, lst->str);          \
-         result = strsav(result, "}");               \
+         string_append(&result, " -" __name "{");    \
+         string_append(&result, lst->str);           \
+         string_append(&result, "}");                \
          lst = lst->next;                            \
       }                                              \
    }                                                 \
    lst = action->multi_add[__index]->first;          \
    while (lst)                                       \
    {                                                 \
-      result = strsav(result, " +" __name "{");      \
-      result = strsav(result, lst->str);             \
-      result = strsav(result, "}");                  \
+      string_append(&result, " +" __name "{");       \
+      string_append(&result, lst->str);              \
+      string_append(&result, "}");                   \
       lst = lst->next;                               \
    }
 
@@ -655,6 +711,136 @@ char * actions_to_text(struct action_spec *action)
 }
 
 
+#ifdef FEATURE_CGI_EDIT_ACTIONS
+/*********************************************************************
+ *
+ * Function    :  actions_to_html
+ *
+ * Description :  Converts a actionsfile entry from numeric form
+ *                ("mask" and "add") to a <br>-seperated HTML string.
+ *
+ * Parameters  :
+ *          1  :  mask = As from struct url_actions
+ *          2  :  add  = As from struct url_actions
+ *
+ * Returns     :  A string.  Caller must free it.
+ *                NULL on out-of-memory error.
+ *
+ *********************************************************************/
+char * actions_to_html(struct action_spec *action)
+{
+   unsigned mask = action->mask;
+   unsigned add  = action->add;
+   char * result = strdup("");
+   char * enc_str;
+   struct list_entry * lst;
+
+   /* sanity - prevents "-feature +feature" */
+   mask |= add;
+
+
+#define DEFINE_ACTION_BOOL(__name, __bit)       \
+   if (!(mask & __bit))                         \
+   {                                            \
+      string_append(&result, "\n<br>-" __name); \
+   }                                            \
+   else if (add & __bit)                        \
+   {                                            \
+      string_append(&result, "\n<br>+" __name); \
+   }
+
+#define DEFINE_ACTION_STRING(__name, __bit, __index) \
+   if (!(mask & __bit))                              \
+   {                                                 \
+      string_append(&result, "\n<br>-" __name);      \
+   }                                                 \
+   else if (add & __bit)                             \
+   {                                                 \
+      string_append(&result, "\n<br>+" __name "{");  \
+      if (NULL == result)                            \
+      {                                              \
+         return NULL;                                \
+      }                                              \
+      enc_str = html_encode(action->string[__index]);\
+      if (NULL == enc_str)                           \
+      {                                              \
+         free(result);                               \
+         return NULL;                                \
+      }                                              \
+      string_append(&result, enc_str);               \
+      free(enc_str);                                 \
+      string_append(&result, "}");                   \
+   }
+
+#define DEFINE_ACTION_MULTI(__name, __index)          \
+   if (action->multi_remove_all[__index])             \
+   {                                                  \
+      string_append(&result, "\n<br>-" __name "{*}"); \
+   }                                                  \
+   else                                               \
+   {                                                  \
+      lst = action->multi_remove[__index]->first;     \
+      while (lst)                                     \
+      {                                               \
+         string_append(&result, "\n<br>-" __name "{");\
+         if (NULL == result)                          \
+         {                                            \
+            return NULL;                              \
+         }                                            \
+         enc_str = html_encode(lst->str);             \
+         if (NULL == enc_str)                         \
+         {                                            \
+            free(result);                             \
+            return NULL;                              \
+         }                                            \
+         string_append(&result, enc_str);             \
+         free(enc_str);                               \
+         string_append(&result, "}");                 \
+         lst = lst->next;                             \
+      }                                               \
+   }                                                  \
+   lst = action->multi_add[__index]->first;           \
+   while (lst)                                        \
+   {                                                  \
+      string_append(&result, "\n<br>+" __name "{");   \
+      if (NULL == result)                             \
+      {                                               \
+         return NULL;                                 \
+      }                                               \
+      enc_str = html_encode(lst->str);                \
+      if (NULL == enc_str)                            \
+      {                                               \
+         free(result);                                \
+         return NULL;                                 \
+      }                                               \
+      string_append(&result, enc_str);                \
+      free(enc_str);                                  \
+      string_append(&result, "}");                    \
+      lst = lst->next;                                \
+   }
+
+#define DEFINE_ACTION_ALIAS 0 /* No aliases for output */
+
+#include "actionlist.h"
+
+#undef DEFINE_ACTION_MULTI
+#undef DEFINE_ACTION_STRING
+#undef DEFINE_ACTION_BOOL
+#undef DEFINE_ACTION_ALIAS
+
+   /* trim leading <br> */
+   if (result && *result)
+   {
+      char * s = result;
+      result = strdup(result + 5);
+      free(s);
+   }
+
+   return result;
+}
+#endif /* def FEATURE_CGI_EDIT_ACTIONS */
+
+
 /*********************************************************************
  *
  * Function    :  current_actions_to_text
@@ -665,6 +851,7 @@ char * actions_to_text(struct action_spec *action)
  *          1  :  action = Action
  *
  * Returns     :  A string.  Caller must free it.
+ *                NULL on out-of-memory error.
  *
  *********************************************************************/
 char * current_action_to_text(struct current_action_spec *action)
@@ -673,43 +860,43 @@ char * current_action_to_text(struct current_action_spec *action)
    char * result = strdup("");
    struct list_entry * lst;
 
-#define DEFINE_ACTION_BOOL(__name, __bit)   \
-   if (flags & __bit)                       \
-   {                                        \
-      result = strsav(result, " +" __name); \
-   }                                        \
-   else                                     \
-   {                                        \
-      result = strsav(result, " -" __name); \
+#define DEFINE_ACTION_BOOL(__name, __bit)  \
+   if (flags & __bit)                      \
+   {                                       \
+      string_append(&result, " +" __name); \
+   }                                       \
+   else                                    \
+   {                                       \
+      string_append(&result, " -" __name); \
    }
 
-#define DEFINE_ACTION_STRING(__name, __bit, __index)    \
-   if (flags & __bit)                                   \
-   {                                                    \
-      result = strsav(result, " +" __name "{");         \
-      result = strsav(result, action->string[__index]); \
-      result = strsav(result, "}");                     \
-   }                                                    \
-   else                                                 \
-   {                                                    \
-      result = strsav(result, " -" __name);             \
+#define DEFINE_ACTION_STRING(__name, __bit, __index)   \
+   if (flags & __bit)                                  \
+   {                                                   \
+      string_append(&result, " +" __name "{");         \
+      string_append(&result, action->string[__index]); \
+      string_append(&result, "}");                     \
+   }                                                   \
+   else                                                \
+   {                                                   \
+      string_append(&result, " -" __name);             \
    }
 
-#define DEFINE_ACTION_MULTI(__name, __index)            \
-   lst = action->multi[__index]->first;                 \
-   if (lst == NULL)                                     \
-   {                                                    \
-      result = strsav(result, " -" __name);             \
-   }                                                    \
-   else                                                 \
-   {                                                    \
-      while (lst)                                       \
-      {                                                 \
-         result = strsav(result, " +" __name "{");      \
-         result = strsav(result, lst->str);             \
-         result = strsav(result, "}");                  \
-         lst = lst->next;                               \
-      }                                                 \
+#define DEFINE_ACTION_MULTI(__name, __index)           \
+   lst = action->multi[__index]->first;                \
+   if (lst == NULL)                                    \
+   {                                                   \
+      string_append(&result, " -" __name);             \
+   }                                                   \
+   else                                                \
+   {                                                   \
+      while (lst)                                      \
+      {                                                \
+         string_append(&result, " +" __name "{");      \
+         string_append(&result, lst->str);             \
+         string_append(&result, "}");                  \
+         lst = lst->next;                              \
+      }                                                \
    }
 
 #define DEFINE_ACTION_ALIAS 0 /* No aliases for output */
@@ -781,13 +968,15 @@ void init_action (struct action_spec *dest)
  *          1  :  dest = Current actions, to modify.
  *          2  :  src = Action to add.
  *
- * Returns     :  N/A
+ * Returns  0  :  no error
+ *        !=0  :  error
  *
  *********************************************************************/
-void merge_current_action (struct current_action_spec *dest, 
-                           const struct action_spec *src)
+jb_err merge_current_action (struct current_action_spec *dest,
+                             const struct action_spec *src)
 {
    int i;
+   jb_err err = JB_ERR_OK;
 
    dest->flags  &= src->mask;
    dest->flags  |= src->add;
@@ -797,8 +986,13 @@ void merge_current_action (struct current_action_spec *dest,
       char * str = src->string[i];
       if (str)
       {
+         str = strdup(str);
+         if (!str)
+         {
+            return JB_ERR_MEMORY;
+         }
          freez(dest->string[i]);
-         dest->string[i] = strdup(str);
+         dest->string[i] = str;
       }
    }
 
@@ -807,14 +1001,23 @@ void merge_current_action (struct current_action_spec *dest,
       if (src->multi_remove_all[i])
       {
          /* Remove everything from dest, then add src->multi_add */
-         list_duplicate(dest->multi[i], src->multi_add[i]);
+         err = list_duplicate(dest->multi[i], src->multi_add[i]);
+         if (err)
+         {
+            return err;
+         }
       }
       else
       {
          list_remove_list(dest->multi[i], src->multi_remove[i]);
-         list_append_list_unique(dest->multi[i], src->multi_add[i]);
+         err = list_append_list_unique(dest->multi[i], src->multi_add[i]);
+         if (err)
+         {
+            return err;
+         }
       }
    }
+   return err;
 }
 
 
@@ -878,6 +1081,32 @@ void unload_actions_file(void *file_data)
 }
 
 
+/*********************************************************************
+ *
+ * Function    :  free_alias_list
+ *
+ * Description :  Free memory used by a list of aliases.
+ *
+ * Parameters  :
+ *          1  :  alias_list = Linked list to free.
+ *
+ * Returns     :  N/A
+ *
+ *********************************************************************/
+void free_alias_list(struct action_alias *alias_list)
+{
+   while (alias_list != NULL)
+   {
+      struct action_alias * next = alias_list->next;
+      alias_list->next = NULL;
+      freez(alias_list->name);
+      free_action(alias_list->action);
+      free(alias_list);
+      alias_list = next;
+   }
+}
+
+
 /*********************************************************************
  *
  * Function    :  load_actions_file
@@ -895,21 +1124,28 @@ int load_actions_file(struct client_state *csp)
 {
    static struct file_list *current_actions_file  = NULL;
 
-   FILE *fp;
+   /*
+    * Parser mode.
+    * Note: Keep these in the order they occur in the file, they are
+    * sometimes tested with <=
+    */
+#define MODE_START_OF_FILE 1
+#define MODE_SETTINGS      2
+#define MODE_DESCRIPTION   3
+#define MODE_ALIAS         4
+#define MODE_ACTIONS       5
 
+   int mode = MODE_START_OF_FILE;
+
+   FILE *fp;
    struct url_actions *last_perm;
    struct url_actions *perm;
    char  buf[BUFFER_SIZE];
    struct file_list *fs;
-#define MODE_START_OF_FILE 1
-#define MODE_ACTIONS       2
-#define MODE_ALIAS         3
-   int mode = MODE_START_OF_FILE;
-   struct action_spec cur_action[1];
+   struct action_spec * cur_action = NULL;
+   int cur_action_used = 0;
    struct action_alias * alias_list = NULL;
 
-   init_action(cur_action);
-
    if (!check_file_changed(current_actions_file, csp->config->actions_file, &fs))
    {
       /* No need to load */
@@ -941,7 +1177,7 @@ int load_actions_file(struct client_state *csp)
       return 1; /* never get here */
    }
 
-   while (read_config_line(buf, sizeof(buf), fp, fs) != NULL)
+   while (read_config_line(buf, sizeof(buf), fp) != NULL)
    {
       if (*buf == '{')
       {
@@ -956,7 +1192,7 @@ int load_actions_file(struct client_state *csp)
             {
                /* too short */
                fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
+               log_error(LOG_LEVEL_FATAL,
                   "can't load actions file '%s': invalid line: %s",
                   csp->config->actions_file, buf);
                return 1; /* never get here */
@@ -970,23 +1206,85 @@ int load_actions_file(struct client_state *csp)
             {
                /* too short */
                fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
+               log_error(LOG_LEVEL_FATAL,
                   "can't load actions file '%s': invalid line: {{ }}",
                   csp->config->actions_file);
                return 1; /* never get here */
             }
 
-            if (0 == strcmpic(start, "alias"))
+            /*
+             * An actionsfile can optionally contain the following blocks.
+             * They *MUST* be in this order, to simplify processing:
+             *
+             * {{settings}}
+             * name=value...
+             *
+             * {{description}}
+             * ...free text, format TBD, but no line may start with a '{'...
+             *
+             * {{alias}}
+             * name=actions...
+             *
+             * The actual actions must be *after* these special blocks.
+             * None of these special blocks may be repeated.
+             *
+             */
+            if (0 == strcmpic(start, "settings"))
+            {
+               /* it's a {{settings}} block */
+               if (mode >= MODE_SETTINGS)
+               {
+                  /* {{settings}} must be first thing in file and must only
+                   * appear once.
+                   */
+                  fclose(fp);
+                  log_error(LOG_LEVEL_FATAL,
+                     "can't load actions file '%s': {{settings}} must only appear once, and it must be before anything else.",
+                     csp->config->actions_file);
+               }
+               mode = MODE_SETTINGS;
+            }
+            else if (0 == strcmpic(start, "description"))
+            {
+               /* it's a {{description}} block */
+               if (mode >= MODE_DESCRIPTION)
+               {
+                  /* {{description}} is a singleton and only {{settings}} may proceed it
+                   */
+                  fclose(fp);
+                  log_error(LOG_LEVEL_FATAL,
+                     "can't load actions file '%s': {{description}} must only appear once, and only a {{settings}} block may be above it.",
+                     csp->config->actions_file);
+               }
+               mode = MODE_DESCRIPTION;
+            }
+            else if (0 == strcmpic(start, "alias"))
             {
                /* it's an {{alias}} block */
-
+               if (mode >= MODE_ALIAS)
+               {
+                  /* {{alias}} must be first thing in file, possibly after
+                   * {{settings}} and {{description}}
+                   *
+                   * {{alias}} must only appear once.
+                   *
+                   * Note that these are new restrictions introduced in
+                   * v2.9.10 in order to make actionsfile editing simpler.
+                   * (Otherwise, reordering actionsfile entries without
+                   * completely rewriting the file becomes non-trivial)
+                   */
+                  fclose(fp);
+                  log_error(LOG_LEVEL_FATAL,
+                     "can't load actions file '%s': {{alias}} must only appear once, and it must be before all actions.",
+                     csp->config->actions_file, start);
+               }
                mode = MODE_ALIAS;
             }
             else
             {
                /* invalid {{something}} block */
                fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
+               log_error(LOG_LEVEL_FATAL,
                   "can't load actions file '%s': invalid line: {{%s}}",
                   csp->config->actions_file, start);
                return 1; /* never get here */
@@ -1003,7 +1301,26 @@ int load_actions_file(struct client_state *csp)
             mode    = MODE_ACTIONS;
 
             /* free old action */
-            free_action(cur_action);
+            if (cur_action)
+            {
+               if (!cur_action_used)
+               {
+                  free_action(cur_action);
+                  free(cur_action);
+               }
+               cur_action = NULL;
+            }
+            cur_action_used = 0;
+            cur_action = (struct action_spec *)zalloc(sizeof(*cur_action));
+            if (cur_action == NULL)
+            {
+               fclose(fp);
+               log_error(LOG_LEVEL_FATAL,
+                  "can't load actions file '%s': out of memory",
+                  csp->config->actions_file);
+               return 1; /* never get here */
+            }
+            init_action(cur_action);
 
             /* trim { */
             strcpy(actions_buf, buf + 1);
@@ -1012,9 +1329,9 @@ int load_actions_file(struct client_state *csp)
             end = actions_buf + strlen(actions_buf) - 1;
             if (*end != '}')
             {
-               /* too short */
+               /* No closing } */
                fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
+               log_error(LOG_LEVEL_FATAL,
                   "can't load actions file '%s': invalid line: %s",
                   csp->config->actions_file, buf);
                return 1; /* never get here */
@@ -1024,30 +1341,37 @@ int load_actions_file(struct client_state *csp)
             /* trim any whitespace immediately inside {} */
             chomp(actions_buf);
 
-            if (*actions_buf == '\0')
-            {
-               /* too short */
-               fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
-                  "can't load actions file '%s': invalid line: %s",
-                  csp->config->actions_file, buf);
-               return 1; /* never get here */
-            }
-
             if (get_actions(actions_buf, alias_list, cur_action))
             {
                /* error */
                fclose(fp);
-               log_error(LOG_LEVEL_FATAL, 
+               log_error(LOG_LEVEL_FATAL,
                   "can't load actions file '%s': invalid line: %s",
                   csp->config->actions_file, buf);
                return 1; /* never get here */
             }
          }
       }
+      else if (mode == MODE_SETTINGS)
+      {
+         /*
+          * Part of the {{settings}} block.
+          * Ignore for now, but we may want to read & check permissions
+          * when we go multi-user.
+          */
+      }
+      else if (mode == MODE_DESCRIPTION)
+      {
+         /*
+          * Part of the {{description}} block.
+          * Ignore for now.
+          */
+      }
       else if (mode == MODE_ALIAS)
       {
-         /* define an alias */
+         /*
+          * define an alias
+          */
          char  actions_buf[BUFFER_SIZE];
          struct action_alias * new_alias;
 
@@ -1056,7 +1380,7 @@ int load_actions_file(struct client_state *csp)
 
          if ((start == NULL) || (start == buf))
          {
-            log_error(LOG_LEVEL_FATAL, 
+            log_error(LOG_LEVEL_FATAL,
                "can't load actions file '%s': invalid alias line: %s",
                csp->config->actions_file, buf);
             return 1; /* never get here */
@@ -1091,7 +1415,7 @@ int load_actions_file(struct client_state *csp)
          }
          if (*start == '\0')
          {
-            log_error(LOG_LEVEL_FATAL, 
+            log_error(LOG_LEVEL_FATAL,
                "can't load actions file '%s': invalid alias line: %s",
                csp->config->actions_file, buf);
             return 1; /* never get here */
@@ -1105,12 +1429,12 @@ int load_actions_file(struct client_state *csp)
          {
             /* error */
             fclose(fp);
-            log_error(LOG_LEVEL_FATAL, 
+            log_error(LOG_LEVEL_FATAL,
                "can't load actions file '%s': invalid alias line: %s = %s",
                csp->config->actions_file, buf, start);
             return 1; /* never get here */
          }
-         
+
          /* add to list */
          new_alias->next = alias_list;
          alias_list = new_alias;
@@ -1136,7 +1460,7 @@ int load_actions_file(struct client_state *csp)
          if (create_url_spec(perm->url, buf))
          {
             fclose(fp);
-            log_error(LOG_LEVEL_FATAL, 
+            log_error(LOG_LEVEL_FATAL,
                "can't load actions file '%s': cannot create URL pattern from: %s",
                csp->config->actions_file, buf);
             return 1; /* never get here */
@@ -1150,7 +1474,7 @@ int load_actions_file(struct client_state *csp)
       {
          /* oops - please have a {} line as 1st line in file. */
          fclose(fp);
-         log_error(LOG_LEVEL_FATAL, 
+         log_error(LOG_LEVEL_FATAL,
             "can't load actions file '%s': first line is invalid: %s",
             csp->config->actions_file, buf);
          return 1; /* never get here */
@@ -1159,7 +1483,7 @@ int load_actions_file(struct client_state *csp)
       {
          /* How did we get here? This is impossible! */
          fclose(fp);
-         log_error(LOG_LEVEL_FATAL, 
+         log_error(LOG_LEVEL_FATAL,
             "can't load actions file '%s': INTERNAL ERROR - mode = %d",
             csp->config->actions_file, mode);
          return 1; /* never get here */
@@ -1167,17 +1491,10 @@ int load_actions_file(struct client_state *csp)
    }
 
    fclose(fp);
-   
+
    free_action(cur_action);
 
-   while (alias_list != NULL)
-   {
-      struct action_alias * next = alias_list->next;
-      freez((char *)alias_list->name);
-      free_action(alias_list->action);
-      free(alias_list);
-      alias_list = next;
-   }
+   free_alias_list(alias_list);
 
    /* the old one is now obsolete */
    if (current_actions_file)