src/debug.c

   1 /*
   2  * debug routines
   3  *
   4  * Copyright (c) 1998 Dirk Koopman G1TLH
   5  *
   6  * $Id$
   7  */
   8
   9 #include <stdio.h>
  10 #include <stdarg.h>
  11 #include <errno.h>
  12 #include <time.h>
  13 #include <string.h>
  14 #include <sys/stat.h>
  15 #include <unistd.h>
  16
  17 #include "debug.h"
  18
  19 #define LOGDIR "./dbg"
  20
  21 static char opened = 0;
  22 unsigned long dbglevel = 0;
  23 static int pid;
  24 static char *prog;
  25 static FILE *f;
  26 static int thisday;
  27 static time_t systime;
  28
  29 void (*dbgproc)();
  30 char dbgbuf[1500];
  31
  32 static int getdayno(time_t t)
  33 {
  34         struct tm *tm;
  35
  36         tm = gmtime(&t);
  37         return tm->tm_mday;
  38 }
  39
  40 static char *genlogname(char *dir, char *fn, int day, int readonly)
  41 {
  42         static char buf[256];
  43         struct stat s;
  44
  45         sprintf(buf, "%s/%s_%d", dir, fn, day);
  46
  47         /* look to see if this is out of date, if it is remove it */
  48         if (!readonly && stat(buf, &s) >= 0) {
  49                 if (systime - s.st_mtime > (7*24*60*60))
  50                         unlink(buf);
  51         }
  52         return buf;
  53 }
  54
  55 static void rotate_log()
  56 {
  57         int i;
  58         char *fn;
  59
  60         i = getdayno(systime);
  61         if (i != thisday) {
  62                 thisday = i;
  63                 dbghup();
  64         }
  65 }
  66
  67 void dbghup()
  68 {
  69         char *fn;
  70
  71         if (f) {
  72                 fclose(f);
  73                 f = 0;
  74         }
  75         if (!f) {
  76                 if (!thisday)
  77                         thisday = getdayno(systime);
  78         fn = genlogname(LOGDIR, "log", thisday, 0);
  79                 f = fopen(fn, "a");
  80     }
  81
  82         if (!f)
  83                 die("can't open %s (%d) for debug", fn, errno);
  84 }
  85
  86 char *dbgtime()
  87 {
  88         time_t t;
  89         char *ap;
  90         static char buf[30];
  91
  92         ap = ctime(&systime);
  93         sprintf(buf, "%2.2s%3.3s%4.4s %8.8s", &ap[8], &ap[4], &ap[20], &ap[11]);
  94         return buf;
  95 }
  96
  97 void dbginit(char *ident)
  98 {
  99         pid = getpid();
 100         prog = strdup(ident);
 101         time(&systime);
 102         mkdir(LOGDIR, 01777);
 103         dbghup();
 104 }
 105
 106 void dbgadd(unsigned long level)
 107 {
 108     dbglevel |= level;
 109 }
 110
 111 void dbgsub(unsigned long level)
 112 {
 113     dbglevel &= ~level;
 114 }
 115
 116 void dbgset(unsigned long level)
 117 {
 118     dbglevel = level;
 119 }
 120
 121 unsigned long dbgget()
 122 {
 123         return dbglevel;
 124 }
 125
 126 void dbgread(char *s)
 127 {
 128     unsigned long level = strtoul(s, 0, 0);
 129     dbgset(level);
 130 }
 131
 132 void dbg(unsigned long level, char *format, ...)
 133 {
 134     if (f && DBGLEVEL(level)) {
 135                 char dbuf[100];
 136         char buf[1500-100];
 137                 int i;
 138         va_list ap;
 139
 140                 time(&systime);
 141
 142                 rotate_log();
 143
 144         sprintf(dbuf, "%s %s[%d,%04lx] ", dbgtime(), prog, pid, level);
 145         va_start(ap, format);
 146         vsprintf(buf, format, ap);
 147                 i = strlen(buf);
 148                 if (i>1 && buf[i-1] == '\n')
 149                         buf[i-1] = 0;
 150                 fprintf(f, "%s", dbuf);
 151                 fprintf(f, "%s", buf);
 152                 fputc('\n', f);
 153         va_end(ap);
 154                 fflush(f);
 155
 156                 /* save for later */
 157                 if (dbgproc) {
 158                         sprintf(dbgbuf, "%s%s", dbuf, buf);
 159                         (dbgproc)(dbgbuf);
 160                 }
 161     }
 162 }
 163
 164 void dbgdump(unsigned long level, char *dir, unsigned char *s, int lth)
 165 {
 166     if (f && DBGLEVEL(level)) {
 167         int c, l;
 168         unsigned char *p2, *p1;
 169         char *p, buf[120];
 170
 171                 time(&systime);
 172
 173                 rotate_log();
 174
 175         sprintf(buf, "%s %s[%d,%04lx] %s Lth: %d", dbgtime(), prog, pid, level, dir, lth);
 176         fprintf(f, "%s\n", buf);
 177                 if (dbgproc) {
 178                         (dbgproc)(buf);
 179                 }
 180
 181         /* calc how many blocks of 8 I can do */
 182         c = 80 / 8;
 183         c /= 3;
 184
 185         for (p = buf, p2 = s; p2 < s + lth; p2 += c * 8, p = buf) {
 186             int i, l = c * 8;
 187             sprintf(p, "%4d: ", p2 - s);
 188             p += strlen(p);
 189             for (p1 = p2; p1 < s + lth && p1 < p2 + l; ++p1) {
 190                 sprintf(p, "%02X", *p1);
 191                 p += strlen(p);
 192             }
 193             for ( ;p1 < p2 + l; ++p1) {
 194                 sprintf(p, "  ");
 195                 p += strlen(p);
 196             }
 197             sprintf(p, " ");
 198             p += strlen(p);
 199             for (p1 = p2; p1 < s + lth && p1 < p2 + l; ++p1) {
 200                 sprintf(p, "%c", (*p1 >= ' ' && *p1 <= 0x7e) ? *p1 : '.');
 201                 p += strlen(p);
 202             }
 203             fprintf(f, "%s\n", buf);
 204                         if (dbgproc) {
 205                                 (dbgproc)(buf);
 206                         }
 207         }
 208     }
 209         fflush(f);
 210 }
 211
 212 void dbgclose()
 213 {
 214     if (f) {
 215         fclose(f);
 216         opened = 0;
 217     }
 218 }