chiark - git - mdw - qmail/blob - qbiff.c

   1 #include <sys/types.h>
   2 #include <sys/stat.h>
   3 #include <utmp.h>
   4 #ifndef UTMP_FILE
   5 #ifdef _PATH_UTMP
   6 #define UTMP_FILE _PATH_UTMP
   7 #else
   8 #define UTMP_FILE "/etc/utmp"
   9 #endif
  10 #endif
  11 #include "readwrite.h"
  12 #include "stralloc.h"
  13 #include "substdio.h"
  14 #include "subfd.h"
  15 #include "open.h"
  16 #include "byte.h"
  17 #include "str.h"
  18 #include "headerbody.h"
  19 #include "hfield.h"
  20 #include "env.h"
  21 #include "exit.h"
  22
  23 substdio ssutmp;
  24 char bufutmp[sizeof(struct utmp) * 16];
  25 int fdutmp;
  26 substdio sstty;
  27 char buftty[1024];
  28 int fdtty;
  29
  30 struct utmp ut;
  31 char line[sizeof(ut.ut_line) + 1];
  32 stralloc woof = {0};
  33 stralloc tofrom = {0};
  34 stralloc text = {0};
  35
  36 void doit(s,n) char *s; int n;
  37 {
  38  if (!stralloc_catb(&text,s,n)) _exit(0);
  39  if (text.len > 78) text.len = 78;
  40 }
  41 void dobody(h) stralloc *h; { doit(h->s,h->len); }
  42 void doheader(h) stralloc *h;
  43 {
  44  int i;
  45  if (hfield_known(h->s,h->len) == H_SUBJECT)
  46   {
  47    i = hfield_skipname(h->s,h->len);
  48    doit(h->s + i,h->len - i);
  49   }
  50 }
  51 void finishheader() { ; }
  52
  53 void main()
  54 {
  55  char *user;
  56  char *sender;
  57  char *userext;
  58  struct stat st;
  59  int i;
  60
  61  if (chdir("/dev") == -1) _exit(0);
  62
  63  if (!(user = env_get("USER"))) _exit(0);
  64  if (!(sender = env_get("SENDER"))) _exit(0);
  65  if (!(userext = env_get("LOCAL"))) _exit(0);
  66  if (str_len(user) > sizeof(ut.ut_name)) _exit(0);
  67
  68  if (!stralloc_copys(&tofrom,"*** TO <")) _exit(0);
  69  if (!stralloc_cats(&tofrom,userext)) _exit(0);
  70  if (!stralloc_cats(&tofrom,"> FROM <")) _exit(0);
  71  if (!stralloc_cats(&tofrom,sender)) _exit(0);
  72  if (!stralloc_cats(&tofrom,">")) _exit(0);
  73
  74  for (i = 0;i < tofrom.len;++i)
  75    if ((tofrom.s[i] < 32) || (tofrom.s[i] > 126))
  76      tofrom.s[i] = '_';
  77
  78  if (!stralloc_copys(&text,"    ")) _exit(0);
  79  if (headerbody(subfdin,doheader,finishheader,dobody) == -1) _exit(0);
  80
  81  for (i = 0;i < text.len;++i)
  82    if ((text.s[i] < 32) || (text.s[i] > 126))
  83      text.s[i] = '/';
  84
  85  if (!stralloc_copys(&woof,"\015\n\007")) _exit(0);
  86  if (!stralloc_cat(&woof,&tofrom)) _exit(0);
  87  if (!stralloc_cats(&woof,"\015\n")) _exit(0);
  88  if (!stralloc_cat(&woof,&text)) _exit(0);
  89  if (!stralloc_cats(&woof,"\015\n")) _exit(0);
  90
  91  fdutmp = open_read(UTMP_FILE);
  92  if (fdutmp == -1) _exit(0);
  93  substdio_fdbuf(&ssutmp,read,fdutmp,bufutmp,sizeof(bufutmp));
  94
  95  while (substdio_get(&ssutmp,&ut,sizeof(ut)) == sizeof(ut))
  96    if (!str_diffn(ut.ut_name,user,sizeof(ut.ut_name)))
  97     {
  98      byte_copy(line,sizeof(ut.ut_line),ut.ut_line);
  99      line[sizeof(ut.ut_line)] = 0;
 100      if (line[0] == '/') continue;
 101      if (!line[0]) continue;
 102      if (line[str_chr(line,'.')]) continue;
 103      fdtty = open_append(line);
 104      if (fdtty == -1) continue;
 105      if (fstat(fdtty,&st) == -1) { close(fdtty); continue; }
 106      if (!(st.st_mode & 0100)) { close(fdtty); continue; }
 107      if (st.st_uid != getuid()) { close(fdtty); continue; }
 108      substdio_fdbuf(&sstty,write,fdtty,buftty,sizeof(buftty));
 109      substdio_putflush(&sstty,woof.s,woof.len);
 110      close(fdtty);
 111     }
 112  _exit(0);
 113 }