X-Git-Url: https://git.distorted.org.uk/~mdw/ezmlm/blobdiff_plain/5b62e993b0af39700031c2875d7f6654e6a02850..f8beb284087c279acfb30506f5bb32baa4949b44:/sub_std/tagmsg.c

diff --git a/sub_std/tagmsg.c b/sub_std/tagmsg.c
new file mode 100644
index 0000000..0919346
--- /dev/null
+++ b/sub_std/tagmsg.c
@@ -0,0 +1,55 @@
+/*$Id: tagmsg.c,v 1.3 1999/10/12 23:38:36 lindberg Exp $*/
+/*$Name: ezmlm-idx-040 $*/
+#include "stralloc.h"
+#include "scan.h"
+#include "fmt.h"
+#include "strerr.h"
+#include "cookie.h"
+#include "slurp.h"
+#include "errtxt.h"
+#include "subscribe.h"
+#include "makehash.h"
+
+static stralloc line = {0};
+static stralloc key = {0};
+static char hash[COOKIE];
+static char strnum[FMT_ULONG];	/* message number as sz */
+
+static void die_nomem(fatal)
+char *fatal;
+{
+  strerr_die2x(100,fatal,ERR_NOMEM);
+}
+
+void tagmsg(dir,msgnum,seed,action,hashout,bodysize,chunk,fatal)
+/* This routine creates a cookie from num,seed and the */
+/* list key and returns that cookie in hashout. The use of sender/num and */
+/* first char of action is used to make cookie differ between messages,   */
+/* the key is the secret list key. */
+
+char *dir;			/* db base dir */
+unsigned long msgnum;		/* number of this message */
+char *seed;			/* seed. NULL ok, but less entropy */
+char *action;			/* to make it certain the cookie differs from*/
+				/* one used for a digest */
+char *hashout;			/* calculated hash goes here */
+unsigned long bodysize;
+unsigned long chunk;
+char *fatal;
+{
+  unsigned int i;
+
+  strnum[fmt_ulong(strnum,msgnum)] = '\0';	/* message nr ->string*/
+
+    switch(slurp("key",&key,32)) {
+      case -1:
+	strerr_die3sys(111,fatal,ERR_READ,"key: ");
+      case 0:
+	strerr_die3x(100,fatal,"key",ERR_NOEXIST);
+    }
+    cookie(hash,key.s,key.len,strnum,seed,action);
+    for (i = 0; i < COOKIE; i++)
+      hashout[i] = hash[i];
+
+    return;
+}