[unix-history] / usr / src / cmd / berknet / mwrite.c

/*
	Mwrite provides the "response" function in the network.
	It sends its standard input to "toaddress", either by opening
	his terminal and writing on it, or by mailing it to him.
	It is executed by a remote machine from netdameon.c, either for a 
	response to be sent back or an errormsg to be sent back.
	It excutes mmail locally if it needs to.

Archaic Usage:
	mwrite toaddress ttystr lutmptime fmach fuser [command ltimeSent]

New Usage:
	mwrite [-t toaddress] [-f fromaddress] [-x lutmptime]
		[-c command] [-y ttystr] [-e ltimeSent] [-r rc]
	
	fmach is a single letter.
	ttystr is the full name, e.g. /dev/tty0
	ltimeSent is number of secs since TIMEBASE in decimal.
	lutmptime is the login time from utmp in OCTAL in the old protocol
	and in decimal in the new protocol.
	rc is the decimal return code (exit code>>8) of the command.
	command and ltimeSent are optional.

	There is duplication in this argument list.
	See the note in mmail.c about this stuff.

	Mwrite must be setuid bin or setuid root, to get in group 0,
	on the CC machines, in order to write on the user's terminal.

	Exit Codes:
		Returns 0 if the writing on the terminal works.
		Returns the return code of the mmail program if this is mailed.
*/
# include "defs.h"
jmp_buf env;
main(argc,argv)
  char **argv; {
	long lutmptime, otime, ltimeSent, ltimeCur, ltimeElap;
	int alarmint();
	FILE *file;
	int i;
	struct utmp *putmp;
	char buf[BUFSIZ],*s;
	char fromaddress[BUFSIZ], toaddress[BUFSIZ];
	char ttynamestr[BUFSIZ], cmdstr[BUFSIZ], *stimeCur, stimeSent[20];
	char src[10], stemp[BUFSIZ];
	struct stat statbuf;

	debugflg = DBV;
	argv[argc] = 0;
	otime = 0;
	src[0] = 0;
	errno = 0;

	/*
	NO LONGER NEEDED
	strcpy(toaddress,argv[1]);
	strcpy(ttynamestr,argv[2]);
	sscanf(argv[3],"%lo",&lutmptime);
	sprintf(fromaddress,"%s:%s",longname(argv[4][0]),argv[5]);
	if(argc > 6)strcpy(cmdstr,argv[6]);
	else cmdstr[0] = 0;
	if(argc > 7)strcpy(stimeSent,argv[7]);
	else stimeSent[0] = 0;
	*/

	/* parse arguments */
	for(i = 1; i < argc; i++){
		if(argv[i][0] == '-')
		switch(argv[i][1]){
		case 't':
			strcpy(toaddress,argv[++i]);
			break;
		case 'y':
			strcpy(ttynamestr,argv[++i]);
			break;
		case 'x':
			lutmptime = atol(argv[++i]);
			break;
		case 'f':
			strcpy(fromaddress,argv[++i]);
			break;
		case 'c':
			strcpy(cmdstr,argv[++i]);
			break;
		case 'e':
			strcpy(stimeSent,argv[++i]);
			break;
		case 'r':
			strcpy(src,argv[++i]);
			break;
		}
		/* it is important that this code ignore unknown flags
		   so that options can be added w/o recompiling */
	}

	ltimeSent=atol(stimeSent)+TIMEBASE;

	setjmp(env);
	alarm(0);
	signal(SIGALRM,alarmint);
	if(errno != 100 && ttynamestr[0] && ttynamestr[8] != 'x'){
		alarm(100);
		putmp = getutmp(ttynamestr);
		if(putmp != NULL) otime = putmp->ut_time;
		/*
		debug("lutmptime %lo otime %lo",lutmptime,otime);
		*/
		if(otime != 0 && otime == lutmptime) {
			file = fopen(ttynamestr,"w");
			if(file != NULL && fstat(fileno(file),&statbuf) !=  -1
				&& (statbuf.st_mode&02)){
				alarm(0);
				if(src[0] != 0)sprintf(stemp,", R: %s",src);
				else stemp[0] = 0;
				ltimeCur = gettime();
				stimeCur = ctime(&ltimeCur);
				stimeCur += 11;
				stimeCur[strlen(stimeCur)-9] = 0;
				fprintf(file,
					"\r\nMessage from %s at %s ...\r\n",
					fromaddress, stimeCur);
				if(cmdstr[0] != 0){
					s = ctime(&ltimeSent);
					s[strlen(s)-6] = 0;
					ltimeElap = ltimeCur - ltimeSent;
					fprintf(file,
					"(command: %s%s, sent %s, took %s)\r\n",
					cmdstr,stemp,s,comptime(ltimeElap));
				}
				while(fgets(buf,BUFSIZ,stdin) != NULL){
					fputs(buf,file);
					fputc('\r',file);
				}
				fprintf(file,"------\r\n");
				exit(EX_OK);
				}
			}
		}
	
	/* well, couldn't write to him, so we'll mail to him on this mach */
	/* mail to "toaddress", saying its from "fromaddress", about a command
	   "cmdstr", which was sent at time "stimeSent" */

	alarm(0);
	sprintf(stimeSent,"%ld",ltimeSent);
	if(cmdstr[0] != 0){
		if(src[0] != 0)
			mexecl(MMAILCMD,"mmail", "-r",src, "-c",cmdstr,
				"-e",stimeSent,"-f",fromaddress,
				"-t",toaddress,"-z",0);
		else
			mexecl(MMAILCMD,"mmail", "-c",cmdstr, "-e",stimeSent,
				"-f",fromaddress, "-t",toaddress,"-z",0);
	}
	else
		mexecl(MMAILCMD,"mmail", "-f",fromaddress, "-t",toaddress,
			"-z", 0);
	perror(MMAILCMD);
	exit(EX_UNAVAILABLE);
}
alarmint(){
	errno = 100;
	signal(SIGALRM,SIG_IGN);		/* alarm off */
	longjmp(env,0);			/* ugh */
	}
Commit	Line	Data
442dbcf7 BJ	1	/*
	2	Mwrite provides the "response" function in the network.
	3	It sends its standard input to "toaddress", either by opening
	4	his terminal and writing on it, or by mailing it to him.
	5	It is executed by a remote machine from netdameon.c, either for a
	6	response to be sent back or an errormsg to be sent back.
	7	It excutes mmail locally if it needs to.
	8
	9	Archaic Usage:
	10	mwrite toaddress ttystr lutmptime fmach fuser [command ltimeSent]
	11
	12	New Usage:
	13	mwrite [-t toaddress] [-f fromaddress] [-x lutmptime]
	14	[-c command] [-y ttystr] [-e ltimeSent] [-r rc]
	15
	16	fmach is a single letter.
	17	ttystr is the full name, e.g. /dev/tty0
	18	ltimeSent is number of secs since TIMEBASE in decimal.
	19	lutmptime is the login time from utmp in OCTAL in the old protocol
	20	and in decimal in the new protocol.
	21	rc is the decimal return code (exit code>>8) of the command.
	22	command and ltimeSent are optional.
	23
	24	There is duplication in this argument list.
	25	See the note in mmail.c about this stuff.
	26
	27	Mwrite must be setuid bin or setuid root, to get in group 0,
	28	on the CC machines, in order to write on the user's terminal.
	29
	30	Exit Codes:
	31	Returns 0 if the writing on the terminal works.
	32	Returns the return code of the mmail program if this is mailed.
	33	*/
	34	# include "defs.h"
	35	jmp_buf env;
	36	main(argc,argv)
	37	char **argv; {
	38	long lutmptime, otime, ltimeSent, ltimeCur, ltimeElap;
	39	int alarmint();
	40	FILE *file;
	41	int i;
	42	struct utmp *putmp;
	43	char buf[BUFSIZ],*s;
	44	char fromaddress[BUFSIZ], toaddress[BUFSIZ];
	45	char ttynamestr[BUFSIZ], cmdstr[BUFSIZ], *stimeCur, stimeSent[20];
	46	char src[10], stemp[BUFSIZ];
	47	struct stat statbuf;
	48
	49	debugflg = DBV;
	50	argv[argc] = 0;
	51	otime = 0;
	52	src[0] = 0;
	53	errno = 0;
	54
	55	/*
	56	NO LONGER NEEDED
	57	strcpy(toaddress,argv[1]);
	58	strcpy(ttynamestr,argv[2]);
	59	sscanf(argv[3],"%lo",&lutmptime);
	60	sprintf(fromaddress,"%s:%s",longname(argv[4][0]),argv[5]);
	61	if(argc > 6)strcpy(cmdstr,argv[6]);
	62	else cmdstr[0] = 0;
	63	if(argc > 7)strcpy(stimeSent,argv[7]);
	64	else stimeSent[0] = 0;
65	*/
66
67	/* parse arguments */
68	for(i = 1; i < argc; i++){
69	if(argv[i][0] == '-')
70	switch(argv[i][1]){
71	case 't':
72	strcpy(toaddress,argv[++i]);
73	break;
74	case 'y':
75	strcpy(ttynamestr,argv[++i]);
76	break;
77	case 'x':
78	lutmptime = atol(argv[++i]);
79	break;
80	case 'f':
81	strcpy(fromaddress,argv[++i]);
82	break;
83	case 'c':
84	strcpy(cmdstr,argv[++i]);
85	break;
86	case 'e':
87	strcpy(stimeSent,argv[++i]);
88	break;
89	case 'r':
90	strcpy(src,argv[++i]);
91	break;
92	}
93	/* it is important that this code ignore unknown flags
94	so that options can be added w/o recompiling */
95	}
96
97	ltimeSent=atol(stimeSent)+TIMEBASE;
98
99	setjmp(env);
100	alarm(0);
101	signal(SIGALRM,alarmint);
102	if(errno != 100 && ttynamestr[0] && ttynamestr[8] != 'x'){
103	alarm(100);
104	putmp = getutmp(ttynamestr);
105	if(putmp != NULL) otime = putmp->ut_time;
106	/*
107	debug("lutmptime %lo otime %lo",lutmptime,otime);
108	*/
109	if(otime != 0 && otime == lutmptime) {
110	file = fopen(ttynamestr,"w");
111	if(file != NULL && fstat(fileno(file),&statbuf) != -1
112	&& (statbuf.st_mode&02)){
113	alarm(0);
114	if(src[0] != 0)sprintf(stemp,", R: %s",src);
115	else stemp[0] = 0;
116	ltimeCur = gettime();
117	stimeCur = ctime(&ltimeCur);
118	stimeCur += 11;
119	stimeCur[strlen(stimeCur)-9] = 0;
120	fprintf(file,
121	"\r\nMessage from %s at %s ...\r\n",
122	fromaddress, stimeCur);
123	if(cmdstr[0] != 0){
124	s = ctime(&ltimeSent);
125	s[strlen(s)-6] = 0;
126	ltimeElap = ltimeCur - ltimeSent;
127	fprintf(file,
128	"(command: %s%s, sent %s, took %s)\r\n",
129	cmdstr,stemp,s,comptime(ltimeElap));
130	}
131	while(fgets(buf,BUFSIZ,stdin) != NULL){
132	fputs(buf,file);
133	fputc('\r',file);
134	}
135	fprintf(file,"------\r\n");
136	exit(EX_OK);
137	}
138	}
139	}
140
141	/* well, couldn't write to him, so we'll mail to him on this mach */
142	/* mail to "toaddress", saying its from "fromaddress", about a command
143	"cmdstr", which was sent at time "stimeSent" */
144
145	alarm(0);
146	sprintf(stimeSent,"%ld",ltimeSent);
147	if(cmdstr[0] != 0){
148	if(src[0] != 0)
149	mexecl(MMAILCMD,"mmail", "-r",src, "-c",cmdstr,
150	"-e",stimeSent,"-f",fromaddress,
151	"-t",toaddress,"-z",0);
152	else
153	mexecl(MMAILCMD,"mmail", "-c",cmdstr, "-e",stimeSent,
154	"-f",fromaddress, "-t",toaddress,"-z",0);
155	}
156	else
157	mexecl(MMAILCMD,"mmail", "-f",fromaddress, "-t",toaddress,
158	"-z", 0);
159	perror(MMAILCMD);
160	exit(EX_UNAVAILABLE);
161	}
162	alarmint(){
163	errno = 100;
164	signal(SIGALRM,SIG_IGN); /* alarm off */
165	longjmp(env,0); /* ugh */
166	}