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 }