3 * This generates confirmation letters to people who recently set
4 * their secure instance passwords.
6 * (c) Copyright 1992 by the Massachusetts Institute of Technology.
7 * For copying and distribution information, please see the file
11 #include <mit-copyright.h>
14 #include <moira_site.h>
16 #include <sys/types.h>
20 EXEC SQL INCLUDE sqlca;
22 #define LETTER "letter.template"
25 char *whoami = "letter.gen";
33 char *outf = NULL, outft[64];
37 EXEC SQL BEGIN DECLARE SECTION;
38 char login[10], first[17], last[17], fullname[34], addr[84];
40 EXEC SQL END DECLARE SECTION;
46 EXEC SQL DATABASE sms;
50 if (stat(argv[1], &sb) == 0) {
51 if (ModDiff (&flag, "users", sb.st_mtime))
54 fprintf(stderr, "File %s does not need to be rebuilt.\n",
60 sprintf(outft, "%s~", outf);
61 if ((out = fopen(outft, "w")) == NULL) {
62 fprintf(stderr, "unable to open %s for output\n", outf);
65 } else if (argc != 1) {
66 fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
74 EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
76 EXEC SQL SELECT secure INTO :lastrun FROM users WHERE users_id = 0;
78 gettimeofday(&tv, NULL);
80 EXEC SQL DECLARE x CURSOR FOR SELECT
81 login, first, last, xaddress, secure
82 FROM users WHERE secure > :lastrun;
85 EXEC SQL FETCH x INTO :login, :first, :last, :addr, :when;
86 if (sqlca.sqlcode != 0) break;
90 sprintf(fullname, "%s %s", first, last);
91 print_letter(out, login, fullname, strtrim(addr), when);
97 EXEC SQL UPDATE users SET secure = :lastrun WHERE users_id = 0;
103 EXEC SQL CLOSE DATABASE;
107 perror("close failed");
115 com_err(whoami, MR_INGRES_ERR, " code %d\n", sqlca.sqlcode);
116 critical_alert("DCM", "Letter build encountered INGRES ERROR %d",
125 /* Read the template into a buffer */
133 sprintf(filename, "%s/%s", DCM_DIR, LETTER);
134 if ((fd = open(filename, O_RDONLY, 0)) < 0) {
135 com_err(whoami, MR_OCONFIG, " opening letter template %s", filename);
138 if (fstat(fd, &stbuf)) {
139 com_err(whoami, MR_OCONFIG, " stating letter template %s", filename);
142 if ((letter_text = (char *)malloc(stbuf.st_size + 1)) == NULL) {
143 com_err(whoami, MR_NO_MEM, " reading letter template");
146 if (read(fd, letter_text, stbuf.st_size) < stbuf.st_size) {
147 com_err(whoami, MR_OCONFIG, " unable to read all of letter");
150 letter_text[stbuf.st_size] = 0;
155 /* Print out a copy of the letter */
157 print_letter(out, login, fullname, addr, when)
159 char *login, *fullname, *addr;
163 char buf[256], *a1, *a2, *d;
166 /* split address into two lines.
167 * First determine if postal or interdepartmental address.
168 * Postal addreses end in state & zip code, as in "MA02139"
169 * Anything else, assume interdepartmental.
173 a2 = rindex(buf, ' '); /* before state & zip */
174 if (a2 && isupper(a2[1]) && isupper(a2[2]) &&
175 isdigit(a2[3]) && isdigit(a2[4]) && isdigit(a2[5]) &&
176 isdigit(a2[6]) && isdigit(a2[7])) {
177 /* Must be postal address. */
178 /* missing space between state & zip, fix */
179 for (p = a2; *p; p++); /* find end of string */
180 for (p--; isdigit(*p); p--)
183 /* Backup to previous space, start of state */
184 for (; *a2 != ' '; a2--);
185 /* Backup to previous space, start of city */
186 for (a2--; *a2 != ' '; a2--);
187 /* terminate first line, leave a2 pointing at second */
190 /* Must be interdepartmental */
191 a2 = "MIT INTERDEPARTMENTAL MAIL";
196 for (p = letter_text; *p; p++) {
204 fputs(fullname, out);