Return to sendberkmail.c CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / net

Annotation of 3BSD/cmd/net/sendberkmail.c, revision 1.1.1.1

1.1       root        1: # include "defs.h"
                      2: 
                      3: /*
                      4: Usage:
                      5:        sendberkmail [-m mach ] [-f addrfrom] [-h hopcnt] -t addrto
                      6:        
                      7: Archaic Usage:
                      8:        sendberkmail mach:user
                      9: 
                     10:        Send remote mail to user on mach.
                     11:        Only one addrto allowed.
                     12: 
                     13:        Sendberkmail uses the network to send an mmail command
                     14:        to the remote machine.  It specifies the source, destination,
                     15:        and a hop count only.
                     16: 
                     17:        Sendberkmail uses the -q option of net, so only error msgs
                     18:        and non-zero return codes will be sent back.
                     19: 
                     20:        It is best to think of sendberkmail as a transport mechanism:
                     21:        It takes mail from one machine to another machine (specified
                     22:        using the -m option) and executes the local mail program
                     23:        there with a to-address of "addrto", and a from-address
                     24:        of "addrfrom".  If the -m option is not given, it parses the
                     25:        "addrto" field to get a berkeley network address.
                     26:        This extreme generality is necessary when destinations are on
                     27:        different networks, consider a command from the Ing70:
                     28: 
                     29:                sendberkmail -m csvax -f schmidt@parc -t research!chuck 
                     30: 
                     31:        This is clearly a forwarding function- send mail from the Arpanet
                     32:        to the Bell Net, which calls our CSVAX.
                     33:        Alternatively, executed on the CSVAX,
                     34:                sendberkmail -m ing70 -f research!chuck -t schmidt@parc
                     35:        sends mail the other way.
                     36: 
                     37:        There is duplication in the arguments because of
                     38:        a need to convert to labelled parameters.
                     39:        See the note in mmail.c to that effect.
                     40: 
                     41: 
                     42:        Options:
                     43:                -t addrto       mail command on remote machine will be
                     44:                                fed "addrto" as address
                     45:                -f addrfrom     mail will be "From" addrfrom
                     46:                -m mach         send this mail to the "mach" machine
                     47:                -h hopcnt       if this hopcnt hits a threshold, there
                     48:                                is presumed to be an infinite loop.
                     49:        
                     50:        Exit Codes:
                     51:                Returns the net commands return code normally.
                     52:                101     The net cmd wont exec.
                     53:                102     Bad userid/name.
                     54:                103     Mail is to the local machine.
                     55:                104     Wrong # arguments.
                     56: */
                     57: main(argc,argv)
                     58:   char **argv; {
                     59:        char addrto[BUFSIZ], addrfrom[BUFSIZ];
                     60:        char mchto = 0, snto[NS], *snfrom, smchto[20];
                     61:        int cmdstr[BUFSIZ], hopcntstr[20];
                     62:        char rcmd[BUFSIZ];
                     63:        int hopcnt = 0;
                     64: 
                     65:        argc[argv] = 0;
                     66:        debugflg = DBV;
                     67:        addrfrom[0] = 0;
                     68:        addrto[0] = 0;
                     69: 
                     70:        while(argc > 1 && argv[1][0] == '-'){
                     71:                argc--; argv++;
                     72:                switch(argv[0][1]){
                     73:                case 'f':
                     74:                        harg(addrfrom,&argc,&argv);
                     75:                        break;
                     76:                case 'h':
                     77:                        harg(hopcntstr,&argc,&argv);
                     78:                        hopcnt = atoi(hopcntstr);
                     79:                        break;
                     80:                case 'm':
                     81:                        harg(smchto,&argc,&argv);
                     82:                        mchto = lookup(smchto);
                     83:                        break;
                     84:                case 't':
                     85:                        harg(addrto,&argc,&argv);
                     86:                        break;
                     87:                /* it is important to ignore unknown flags
                     88:                   for compatibility reasons */
                     89:                }
                     90:        }
                     91: 
                     92:        /* handle to address */
                     93:        if(argc > 1)strcpy(addrto,argv[1]);
                     94:        if(addrto[0] == 0){
                     95:                fprintf(stderr,"Usage: sendberkmail mach:user\n");
                     96:                exit(104);
                     97:        }
                     98:        if(mchto == 0)
                     99:                mchto = MchSFromAddr(snto,addrto);
                    100:        else
                    101:                strcpy(snto,addrto);
                    102:        if(mchto == 0 || mchto == local){
                    103:                fprintf(stderr,
                    104:                "Use mail to send to %s on this machine. Mail not delivered.\n",
                    105:                        addrto);
                    106:                exit(103);
                    107:        }
                    108:        sprintf(rcmd,"mail %s",addrto);
                    109: 
                    110:        /* handle from address */
                    111:        snfrom = SnCurrent();
                    112:        if(snfrom == NULL){
                    113:                fprintf(stderr,"Unknown userid\n");
                    114:                exit(102);
                    115:        }
                    116:        if(addrfrom[0] == 0)
                    117:                sprintf(addrfrom,"%s:%s",longname(local),snfrom);
                    118: 
                    119:        /* uses both old and new options of mmail */
                    120:        /* compatibility problems
                    121:        sprintf(cmdstr,"%s %s %s %s -f %s -t %s -h %d", MMAILCMD,snfrom,
                    122:                longname(local),snto,addrfrom,addrto,hopcnt);
                    123:        */
                    124:        sprintf(cmdstr,"%s %s %s %s", MMAILCMD,snfrom,
                    125:                longname(local),snto);
                    126: 
                    127: 
                    128:        mexecl(netcmd,"net","-m",longname(mchto),"-q","-l","network",
                    129:                "-","-c",rcmd,cmdstr,0);
                    130:        fprintf(stderr,"Network is down\n");
                    131:        exit(101);
                    132:        }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.