home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / net / netmail.c < prev    next >
C/C++ Source or Header  |  1980-02-17  |  1KB  |  39 lines
  1. /* Copyright (c) 1979 Regents of the University of California */
  2. /*
  3.  * netmail [-l ...] [-p ...] [-f] [-n] mach
  4.  */
  5. # include "defs.h"
  6.  
  7. main(argc,argv)
  8.   char **argv; {
  9.     char *hdir;
  10.     char buf[BFS], buf1[BFS];
  11.     char tomach;
  12.     debugflg = DBV;
  13.     tomach = getremote(local);
  14.     hdir = getenv("HOME");
  15.     if(hdir == 0 || strcmp(hdir,"/") == 0)hdir = ".";
  16.     argc--; argv++;
  17.     while(argc > 0 && argv[0][0] == '-'){
  18.         switch(argv[0][1]){
  19.         case 'l':    harg(status.login,&argc,&argv); break;
  20.         case 'p':     harg(status.mpasswd,&argc,&argv); break;
  21.         case 'f':    status.force++; break;
  22.         case 'n':    status.nonotify++; break;
  23.         default:
  24.             fprintf(stderr,
  25.             "Usage: netmail [-l login] [-p password] [-f] [-n] [mach]\n");
  26.             exit(1);
  27.         }
  28.         argc--, argv++;
  29.         }
  30.     if(argc > 0) tomach = lookup(argv[0]);
  31.     sprintf(buf,"-m%c",tomach);
  32.     sprintf(buf1,"%s/mbox.%s",hdir,longname(tomach));
  33.     if(tomach == local)
  34.         mexecl(Bsh,"sh","-c",cmd,0);
  35.     else kexecl(netcmd,"net",buf,"-r",buf1,"-c","netmail",PRMAIL,0);
  36.     fprintf(stderr,"Network is down\n");
  37.     exit(1);
  38.     }
  39.