![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to emprcnfig.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / bsc / cmd / 3270|
Return to emprcnfig.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / bsc / cmd / 3270 |
1.1 root 1: /* D.L.Buck and Associates, Inc. - January, 1984
2: *
3: * COPYRIGHT NOTICE:
4: * Copyright c 1984 - An unpublished work by
5: * D.L.Buck and Associates, Inc.
6: *
7: * PROPRIETARY RIGHTS NOTICE:
8: * All rights reserved. This document and program contains
9: * proprietary information of D.L.Buck and Associates,Inc.
10: * of San Jose, California, U.S.A., embodying confidential
11: * information, ideas, and expressions, no part of which
12: * may be reproduced, or transmitted in any form or by any
13: * means, electronic, mechanical, or otherwise, without
14: * the written permission of D.L.Buck and Associates, Inc.
15: *
16: * NAME
17: * get_cnfig
18: *
19: * SYNOPSIS
20: * get_cnfig(cfgfile)
21: * char *cfgfile
22: *
23: * DESCRIPTION
24: * Get host communications device and printer configuration parameters
25: * from host's configuration file.
26: *
27: */
28:
29: #include <stdio.h>
30: #include "local.h"
31: #include <bsc/bscio.h>
32: #include <sys/time.h>
33:
34: #define YES 1
35: #define NO 0
36:
37: extern struct bscio p;
38: extern char devname[], hostname[];
39: extern char sys_admin[];
40: extern int rviab, pt_to_pt, ascii, chk_hostid, chk_termid, primary;
41: extern char termid;
42: extern char note[];
43: extern FILE *aud, *outfd;
44:
45: extern int prtype,buffered,vfc,tprint,ctype,linesperpage;
46: extern char outtype; /* type of output destination - P=pipe, F=file */
47: char output[50]; /* printer output destination */
48:
49: struct tm *localtime(), *t;
50: long time(),currtime;
51:
52: int had_error; /* set to # errors encountered in config file */
53:
54: get_cnfig(cfgfile)
55: register char *cfgfile;
56: {
57: static char sccsid[] = "@(#)emprcnfig.c 1.4 "; /* sccs id */
58: FILE *popen(),*fopen();
59: FILE *fptr; /* file pointer returned by fopen */
60:
61: register int counter; /* tracks line of config file being read */
62: register int i; /* general purpose int */
63:
64: register char *pos; /* convenient line position pointer */
65:
66: char *index();
67: char cline[80]; /* contains one configuration line */
68:
69: /* default b_flags parameter values */
70: int fulldup = NO;
71:
72: /* set defaults for communications device */
73: p.b_blks = 254; /* default block size */
74: rviab = BSCRVIABT; /* abort on receiving rvi */
75: p.b_nbid = 0; /* default number of bids limit */
76: p.b_nnak = 16; /* default number of naks allowed */
77: p.b_nretry = 15; /* default number of retrys allowed */
78: p.b_nttd = 150; /* default number of temp. txt delays */
79: p.b_nwack = 150; /* default number of wacks allowed */
80: p.b_nor = 30; /* default timeout */
81: pt_to_pt = NO; /* default to multi-point communications */
82: chk_hostid = NO; /* don't check hostid */
83: chk_termid = NO; /* don't check termid */
84: ascii = NO; /* default transmission code is EBCDIC */
85: counter = 0; /* current line number within configuration file */
86:
87: strcpy(devname,"/dev/bsc"); /* default device name */
88:
89: /* set defaults for printer */
90: buffered = YES;
91: ctype = 1; /* default to 3271 control unit */
92: linesperpage=60; /* 60 lines per page */
93: outtype = 'P'; /* printer destination is a pipe (program) */
94: strcpy(output,"/usr/bin/lpr"); /* program to pipe print output to */
95: prtype = 4; /* 3284 printer is default printer type */
96: tprint = NO; /* text print option for 3288 only */
97: vfc = YES; /* does printer have vertical forms unit? */
98:
99: /* read host configuration file for actual parameters */
100: if ((fptr = fopen(cfgfile,"r")) == (FILE *)0) {
101: fprintf(stderr,
102: "em3280: can't open <%s> configuration file\n",hostname);
103: return(1); }
104:
105: while ((fgets(cline,sizeof cline,fptr)) != NULL) {
106: ++counter;
107: cline[strlen(cline)-1] = '\0';
108:
109: if (strncmp(cline,"BUFFERED=",9) == 0) {
110: pos = &cline[9];
111: buffered = (strncmp(pos,"YES",3))?0:1;
112: continue;
113: }
114:
115: if (strncmp(cline,"CODE=",5) == 0) {
116: if(strcmp(&cline[5],"ASCII") != 0 &&
117: strcmp(&cline[5],"EBCDIC") != 0)
118: param_err("CODE",cfgfile);
119: ascii = strcmp(&cline[5],"ASCII") == 0?BSCASCII:NO;
120: continue;
121: }
122:
123: if (strncmp(cline,"CTYPE=",6) == 0) {
124: pos = &cline[6];
125: ctype = atoi(pos);
126: if (ctype != 1 && ctype != 5) {
127: param_err("CTYPE",cfgfile);
128: exit(0);
129: }
130: continue;
131: }
132:
133: if (strncmp(cline,"DEVICE=",7) == 0) {
134: gninit(&cline[7]); /* initialize getnext */
135: continue;
136: }
137:
138: if(strncmp(cline,"DUPLEX=",7) == 0) {
139: if (strcmp(&cline[7],"HALF") != 0 &&
140: strcmp(&cline[7],"FULL") != 0)
141: param_err("DUPLEX",cfgfile);
142: fulldup =strcmp(&cline[7],"HALF")==0?NO:BSCFDX;
143: continue; }
144:
145: if (strncmp(cline,"IDCHECK=",8) ==0) {
146: strcpy(p.b_hostid,&cline[8]);
147: chk_hostid = BSCCKHOST;
148: continue; }
149:
150: if (strncmp(cline,"LINESPERPAGE=",13) == 0) {
151: pos = &cline[13];
152: linesperpage = atoi(pos);
153: continue;
154: }
155:
156: if (strncmp(cline, "MAIL=", 5) == 0) {
157: pos = &cline[5];
158: strcpy(sys_admin,pos);
159: continue;
160: }
161:
162: if (strncmp(cline,"MPTADDR=",8) == 0) {
163: strcpy(p.b_termid,&cline[8]);
164: chk_termid = YES;
165: pt_to_pt = BSCMPT;
166: continue; }
167:
168: if (strncmp(cline,"NBID=",5) == 0) {
169: i = atoi(&cline[5]);
170: if (i > 255)
171: param_err("NBID",cfgfile);
172: else
173: p.b_nbid = i;
174: continue; }
175:
176: if (strncmp(cline,"NNAK=",5) == 0) {
177: i = atoi(&cline[5]);
178: if (i > 255)
179: param_err("NNAK",cfgfile);
180: else
181: p.b_nnak = i;
182: continue; }
183:
184: if (strncmp(cline,"NRETRY=",7) == 0) {
185: i = atoi(&cline[7]);
186: if (i > 255)
187: param_err("NRETRY",cfgfile);
188: else
189: p.b_nretry = i;
190: continue; }
191:
192: if (strncmp(cline,"NTTD=",5) == 0) {
193: i = atoi(&cline[5]);
194: if (i > 255)
195: param_err("NTTD",cfgfile);
196: else
197: p.b_nttd = i;
198: continue; }
199:
200: if (strncmp(cline,"NWACK=",6) == 0) {
201: i = atoi(&cline[6]);
202: if (i > 255)
203: param_err("NWACK",cfgfile);
204: else
205: p.b_nwack = i;
206: continue; }
207:
208: /* format for the OUTPUT parameter is: OUTPUT=<type>,<destination>
209: where type may be P (pipe to a program) or F (write to a file or
210: device). */
211: if (strncmp(cline,"OUTPUT=",7) == 0) {
212: pos = &cline[7];
213: outtype = *pos;
214: pos += 2;
215: strcpy(output,pos);
216:
217: if (outtype != 'P' && outtype != 'F') {
218: param_err("OUTPUT",cfgfile);
219: exit(0);
220: }
221:
222: continue;
223: }
224:
225: if (strncmp(cline,"PTYPE=",6) == 0) {
226: pos = &cline[6];
227: prtype = atoi(pos);
228: if ((prtype < 6 || prtype > 8) && prtype != 4) {
229: param_err("PTYPE",cfgfile);
230: exit(0);
231: }
232: continue;
233: }
234:
235: if (strncmp(cline,"RVIMODE=",8) == 0) {
236: if (strcmp(&cline[8],"ABORT") != 0 &&
237: strcmp(&cline[8],"IGNORE") != 0)
238: param_err("RVIMODE",cfgfile);
239: rviab =strcmp(&cline[8],"ABORT")==0?BSCRVIABT:NO;
240: continue; }
241:
242: if (strncmp(cline,"TERMID=",7) == 0) {
243: strcpy(p.b_termid,&cline[8]);
244: chk_termid = YES;
245: continue; }
246:
247: if (strncmp(cline,"TIMEOUT=",8) == 0) {
248: p.b_nor = atoi(&cline[8]);
249: continue; }
250:
251: if (strncmp(cline,"TPRINT=",7) == 0) {
252: pos = &cline[7];
253: tprint = (strncmp(pos,"YES",3))?0:1;
254: continue;
255: }
256: if (strncmp(cline,"VFC=",4) == 0) {
257: pos = &cline[4];
258: vfc = (strncmp(pos,"YES",3))?0:1;
259: continue;
260: }
261: /* invalid keyword parameter */
262: fprintf(stderr,
263: "em3280 <%s>: Unrecognized keyword, line %d in <%s>\n",
264: hostname,counter,cfgfile);
265: }
266: if ((fulldup == BSCFDX) && (pt_to_pt == BSCMPT))
267: fulldup = NO;
268: p.b_flags = ascii | fulldup | rviab | primary | chk_hostid | pt_to_pt;
269: /* translate termid if one given and ebcdic */
270: if (!ascii && chk_termid)
271: ascebc(p.b_termid,strlen(p.b_termid));
272: termid = p.b_termid[0]; /* cluster address */
273: fclose(fptr);
274: return(had_error);
275: }
276:
277: char *usr_name; /* ptr returned by getlogin */
278: /* write_aud - write message to audit file */
279: write_aud(type,msg)
280: register char *type;
281: register char *msg;
282: {
283: char *getlogin(); /* returns ptr to login name for this
284: process */
285:
286: if (aud == NULL) return;
287:
288: /* if first time, get login name */
289: if (usr_name == NULL)
290: usr_name = getlogin();
291: if (usr_name == NULL) /* who is this guy, anyway? */
292: usr_name = "unknown";
293:
294: /* get current time */
295: currtime = time((long*)0);
296: t = localtime(&currtime);
297:
298: fprintf (aud, "%s %s %02d%02d%02d%02d%02d %s\n",
299: usr_name, type, t->tm_year, (t->tm_mon) + 1,
300: t->tm_mday, t->tm_hour, t->tm_min, msg);
301: /* make sure message gets written out */
302: fflush(aud);
303: }
304:
305: /* param_err -- invalid keyword parameter error */
306: param_err(kword,fname)
307: char *kword,*fname;
308: {
309: fprintf(stderr,
310: "em3277 <%s>: Invalid parameter for keyword <%s> in <%s>\n",
311: hostname,kword,fname);
312: ++had_error;
313: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.