3 * Load data into Moira from Registrar's Office data file
5 * Copyright (C) 1990-1998 by the Massachusetts Institute of Technology
6 * For copying and distribution information, please see the file
10 #include <mit-copyright.h>
12 #include <moira_site.h>
13 #include <moira_schema.h>
22 EXEC SQL INCLUDE sqlca;
39 205-234 office address
46 #define LOC_LAST (LOC_ID + LEN_ID)
48 #define LOC_FIRST (LOC_LAST + LEN_LAST)
50 #define LOC_MIDDLE (LOC_FIRST + LEN_FIRST)
52 #define LOC_YEAR (LOC_MIDDLE + LEN_MIDDLE)
54 #define LOC_COURSE (LOC_YEAR + LEN_YEAR)
56 #define LOC_ADDRESS (LOC_COURSE + LEN_COURSE)
57 #define LEN_ADDRESS 30
58 #define LOC_CITY (LOC_ADDRESS + LEN_ADDRESS)
60 #define LOC_STATE (LOC_CITY + LEN_CITY)
62 #define LOC_ZIP (LOC_STATE + LEN_STATE)
64 #define LOC_PHONE (LOC_ZIP + LEN_ZIP)
66 #define LOC_OADDR (LOC_PHONE + LEN_PHONE)
68 #define LOC_OPHONE (LOC_OADDR + LEN_OADDR)
71 EXEC SQL BEGIN DECLARE SECTION;
73 char *prog = "stuload";
74 EXEC SQL END DECLARE SECTION;
78 struct entry *get_next_entry(FILE *in);
79 void process_entry(struct entry *e, int secure);
81 int main(int argc, char **argv)
86 char buf[80], *file = NULL;
87 EXEC SQL BEGIN DECLARE SECTION;
89 EXEC SQL END DECLARE SECTION;
91 whoami = strrchr(argv[0], '/');
97 setvbuf(stdout, NULL, _IOLBF, BUFSIZ);
98 setvbuf(stderr, NULL, _IOLBF, BUFSIZ);
100 for (i = 1; i < argc; i++)
102 if (!strcmp(argv[i], "-w"))
106 fprintf(stderr, "Usage: %s [-w] inputfile\n", whoami);
115 fprintf(stderr, "Usage: %s [-w] inputfile\n", whoami);
119 in = fopen(file, "r");
122 fprintf(stderr, "Unable to open %s for input\n", file);
126 initialize_sms_error_table();
128 EXEC SQL CONNECT :db IDENTIFIED BY :db;
131 dbmserr("connecting", sqlca.sqlcode);
135 EXEC SQL SELECT users_id INTO :who FROM users WHERE login = 'root';
137 while ((e = get_next_entry(in)))
140 EXEC SQL COMMIT WORK;
143 dbmserr("committing work", sqlca.sqlcode);
150 fgets(buf, sizeof(buf), stdin);
158 struct entry *get_next_entry(FILE *in)
160 static struct entry e;
161 static char buf[BUFSIZ], classbuf[10];
162 static char namebuf[LEN_FIRST + LEN_MIDDLE + LEN_LAST + 2];
163 static char addrbuf[USERS_HOME_ADDR_SIZE], xaddrbuf[USERS_XADDRESS_SIZE];
164 static char first[LEN_FIRST + 1], last[LEN_LAST + 1], middle[LEN_MIDDLE + 1];
165 static char id[LEN_ID + 1], course[LEN_COURSE + 1];
166 static char year[LEN_YEAR + 1], address[LEN_ADDRESS + 1];
167 static char city[LEN_CITY + 1];
168 static char state[LEN_STATE + 1], phone[LEN_PHONE + 1];
169 static char ophone[LEN_OPHONE + 1], title[128];
170 static char zip[LEN_ZIP + 1], oaddr[LEN_OADDR + 1];
171 static int nyear = 0;
172 int ends_jr, ends_iii, ends_iv, ends_sr, ends_ii, ends_v;
180 gettimeofday(&tv, NULL);
181 tm = localtime(&tv.tv_sec);
187 if (!fgets(buf, sizeof(buf), in))
190 strlcpy(id, &buf[LOC_ID], LEN_ID + 1);
192 strlcpy(last, &buf[LOC_LAST], LEN_LAST + 1);
194 strlcpy(first, &buf[LOC_FIRST], LEN_FIRST + 1);
196 strlcpy(middle, &buf[LOC_MIDDLE], LEN_MIDDLE + 1);
198 strlcpy(year, &buf[LOC_YEAR], LEN_YEAR + 1);
200 strlcpy(course, &buf[LOC_COURSE], LEN_COURSE + 1);
202 strlcpy(address, &buf[LOC_ADDRESS], LEN_ADDRESS + 1);
204 strlcpy(city, &buf[LOC_CITY], LEN_CITY + 1);
206 strlcpy(state, &buf[LOC_STATE], LEN_STATE + 1);
208 strlcpy(zip, &buf[LOC_ZIP], LEN_ZIP + 1);
210 strlcpy(phone, &buf[LOC_PHONE], LEN_PHONE + 1);
212 strlcpy(oaddr, &buf[LOC_OADDR], LEN_OADDR + 1);
214 strlcpy(ophone, &buf[LOC_OPHONE], LEN_OPHONE + 1);
220 ends_jr = ends_iii = ends_iv = ends_sr = ends_ii = ends_v = 0;
221 LookForJrAndIII(e.last, &ends_sr, &ends_jr, &ends_iii, &ends_iv,
223 if (middle[1] == '.' && middle[2] == '\0')
227 sprintf(e.name, "%s %s %s", first, middle, last);
229 sprintf(e.name, "%s %s", first, last);
234 if (year[0] == 'G' || year[0] == 'N')
237 sprintf(title, "Grad Student");
242 sprintf(classbuf, "%d", nyear + 4 - atoi(year) + 1900);
243 sprintf(title, "Undergrad (class of %s)", classbuf);
250 e.ophone = e.xphone2 = ophone;
254 strlcpy(e.haddr, address, sizeof(addrbuf));
257 strlcat(e.haddr, " ", sizeof(addrbuf));
258 strlcat(e.haddr, city, sizeof(addrbuf));
262 strlcat(e.haddr, " ", sizeof(addrbuf));
263 strlcat(e.haddr, state, sizeof(addrbuf));
264 strlcat(e.haddr, zip, sizeof(addrbuf));
268 e.hphone = e.xphone1 = phone;
271 e.xaddress = xaddrbuf;
272 strlcpy(e.xaddress, address, sizeof(xaddrbuf));
273 strlcat(e.xaddress, " |", sizeof(xaddrbuf));
276 strlcat(e.xaddress, city, sizeof(xaddrbuf));
279 strlcat(e.xaddress, " ", sizeof(xaddrbuf));
280 strlcat(e.xaddress, state, sizeof(xaddrbuf));
281 strlcat(e.xaddress, zip, sizeof(xaddrbuf));
285 strlcat(e.xaddress, "MIT INTERDEPARTMENTAL MAIL", sizeof(xaddrbuf));