| 1 | /*$Id: logmsg.c,v 1.10 1999/11/10 04:08:27 lindberg Exp $*/ |
| 2 | /*$Name: ezmlm-idx-040 $*/ |
| 3 | #include "stralloc.h" |
| 4 | #include "fmt.h" |
| 5 | #include "subscribe.h" |
| 6 | #include "errtxt.h" |
| 7 | #include <mysql.h> |
| 8 | #include <mysqld_error.h> |
| 9 | |
| 10 | static stralloc logline = {0}; |
| 11 | static char strnum[FMT_ULONG]; |
| 12 | |
| 13 | char *logmsg(dir,num,listno,subs,done) |
| 14 | /* creates an entry for message num and the list listno and code "done". */ |
| 15 | /* Returns NULL on success, "" if dir/sql was not found, and the error */ |
| 16 | /* string on error. NOTE: This routine does nothing for non-sql lists! */ |
| 17 | char *dir; |
| 18 | unsigned long num; |
| 19 | unsigned long listno; |
| 20 | unsigned long subs; |
| 21 | int done; |
| 22 | { |
| 23 | char *table = (char *) 0; |
| 24 | char *ret; |
| 25 | |
| 26 | if ((ret = opensql(dir,&table))) { |
| 27 | if (*ret) |
| 28 | return ret; |
| 29 | else |
| 30 | return (char *) 0; /* no SQL => success */ |
| 31 | } |
| 32 | if (!stralloc_copys(&logline,"INSERT INTO ")) return ERR_NOMEM; |
| 33 | if (!stralloc_cats(&logline,table)) return ERR_NOMEM; |
| 34 | if (!stralloc_cats(&logline,"_mlog (msgnum,listno,subs,done) VALUES (")) |
| 35 | return ERR_NOMEM; |
| 36 | if (!stralloc_catb(&logline,strnum,fmt_ulong(strnum,num))) return ERR_NOMEM; |
| 37 | if (!stralloc_cats(&logline,",")) return ERR_NOMEM; |
| 38 | if (!stralloc_catb(&logline,strnum,fmt_ulong(strnum,listno))) |
| 39 | return ERR_NOMEM; |
| 40 | if (!stralloc_cats(&logline,",")) return ERR_NOMEM; |
| 41 | if (!stralloc_catb(&logline,strnum,fmt_ulong(strnum,subs))) return ERR_NOMEM; |
| 42 | if (!stralloc_cats(&logline,",")) return ERR_NOMEM; |
| 43 | if (done < 0) { |
| 44 | done = - done; |
| 45 | if (!stralloc_append(&logline,"-")) return ERR_NOMEM; |
| 46 | } |
| 47 | if (!stralloc_catb(&logline,strnum,fmt_uint(strnum,done))) return ERR_NOMEM; |
| 48 | if (!stralloc_append(&logline,")")) return ERR_NOMEM; |
| 49 | |
| 50 | if (mysql_real_query((MYSQL *) psql,logline.s,logline.len)) /* log query */ |
| 51 | if (mysql_errno((MYSQL *) psql) != ER_DUP_ENTRY) /* ignore dups */ |
| 52 | return mysql_error((MYSQL *) psql); |
| 53 | return (char *) 0; |
| 54 | } |