![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sendberkmail.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / old / berknet|
Return to sendberkmail.c CVS log | Up to [CSRG BSD Unix] / 42BSD / old / berknet |
1.1 root 1: static char sccsid[] = "@(#)sendberkmail.c 4.1 (Berkeley) 9/12/82";
2:
3: # include "defs.h"
4:
5: /*
6: Usage:
7: sendberkmail [-m mach ] [-f addrfrom] [-h hopcnt] -t addrto
8:
9: Archaic Usage:
10: sendberkmail mach:user
11:
12: Send remote mail to user on mach.
13: Only one addrto allowed.
14:
15: Sendberkmail uses the network to send an mmail command
16: to the remote machine. It specifies the source, destination,
17: and a hop count only.
18:
19: Sendberkmail uses the -q option of net, so only error msgs
20: and non-zero return codes will be sent back.
21:
22: It is best to think of sendberkmail as a transport mechanism:
23: It takes mail from one machine to another machine (specified
24: using the -m option) and executes the local mail program
25: there with a to-address of "addrto", and a from-address
26: of "addrfrom". If the -m option is not given, it parses the
27: "addrto" field to get a berkeley network address.
28: This extreme generality is necessary when destinations are on
29: different networks, consider a command from the Ing70:
30:
31: sendberkmail -m csvax -f schmidt@parc -t research!chuck
32:
33: This is clearly a forwarding function- send mail from the Arpanet
34: to the Bell Net, which calls our CSVAX.
35: Alternatively, executed on the CSVAX,
36: sendberkmail -m ing70 -f research!chuck -t schmidt@parc
37: sends mail the other way.
38:
39: There is duplication in the arguments because of
40: a need to convert to labelled parameters.
41: See the note in mmail.c to that effect.
42:
43:
44: Options:
45: -t addrto mail command on remote machine will be
46: fed "addrto" as address
47: -f addrfrom mail will be "From" addrfrom
48: -m mach send this mail to the "mach" machine
49: -h hopcnt if this hopcnt hits a threshold, there
50: is presumed to be an infinite loop.
51:
52: */
53: main(argc,argv)
54: char **argv; {
55: char addrto[BUFSIZ], addrfrom[BUFSIZ], *sn;
56: char mchto = 0, snto[BUFSIZ], snfrom[BUFSIZ], smchto[20], mchfrom;
57: int cmdstr[BUFSIZ], hopcntstr[20];
58: char rcmd[BUFSIZ];
59: int hopcnt = 0;
60:
61: argc[argv] = 0;
62: debugflg = DBV;
63: addrfrom[0] = 0;
64: addrto[0] = 0;
65:
66: while(argc > 1 && argv[1][0] == '-'){
67: argc--; argv++;
68: switch(argv[0][1]){
69: case 'f':
70: harg(addrfrom);
71: break;
72: case 'h':
73: harg(hopcntstr);
74: hopcnt = atoi(hopcntstr);
75: break;
76: case 'm':
77: harg(smchto);
78: mchto = lookup(smchto);
79: break;
80: case 't':
81: harg(addrto);
82: break;
83: /* it is important to ignore unknown flags
84: for compatibility reasons */
85: }
86: }
87:
88: /* handle to address */
89: if(argc > 1)strcpy(addrto,argv[1]);
90: if(addrto[0] == 0){
91: fprintf(stderr,"Usage: sendberkmail mach:user\n");
92: exit(EX_USAGE);
93: }
94: if(mchto == 0)
95: mchto = MchSFromAddr(snto,addrto);
96: else
97: strcpy(snto,addrto);
98: if(mchto == 0){
99: fprintf(stderr,"Unknown host %s\n",addrto);
100: exit(EX_NOHOST);
101: };
102: if(mchto == local){
103: fprintf(stderr,
104: "Use mail to send to %s on this machine. Mail not delivered.\n",
105: addrto);
106: exit(EX_NOUSER);
107: }
108: sprintf(rcmd,"mail %s",addrto);
109:
110: /* handle from address */
111: if(addrfrom[0] == 0){
112: char name[100];
113: SnCurrent(name);
114: sprintf(addrfrom,"%s:%s",longname(local),name);
115: }
116: mchfrom = MchSFromAddr(snfrom,addrfrom);
117:
118: /* uses new options of mmail */
119: /* X's are for compatibility with mmail */
120: sprintf(cmdstr,"%s XXX XXX XXX -f '%s' -t '%s' -h %d", MMAILCMD,
121: addrfrom,addrto,hopcnt);
122: /* old code:
123: sprintf(cmdstr,"%s '%s' %s '%s'", MMAILCMD,snfrom,
124: longname(mchfrom),snto);
125: */
126:
127:
128: mexecl(netcmd,"net","-m",longname(mchto),"-q","-l","network",
129: "-","-c",rcmd,cmdstr,0);
130: perror(netcmd);
131: fprintf(stderr,"Network is down\n");
132: exit(EX_UNAVAILABLE);
133: }
134:
135: SnCurrent(name)
136: char *name;
137: {
138: char *sn;
139: sn = getlogin();
140: if(sn == NULL || *sn == 0 || *sn == ' '){
141: struct passwd *pwd;
142: pwd = getpwuid(getuid()); /* will read passwd file */
143: if(pwd != NULL) sn = pwd->pw_name;
144: if(sn == NULL){
145: fprintf(stderr,"Who are you?\n");
146: exit(EX_OSERR);
147: }
148: }
149: strcpy(name, sn);
150: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.