3 * This generates the web server user & group data.
7 * Copyright 1998 by the Massachusetts Institute of Technology.
8 * For copying and distribution information, please see the file
12 #include <mit-copyright.h>
14 #include <moira_site.h>
22 EXEC SQL INCLUDE sqlca;
28 #define WWW_SUBDIR "www"
31 #define MAX_RECSIZE 10240
33 char *whoami = "www.gen";
34 char *db = "moira/moira";
36 void filsys(FILE *out);
37 void group(FILE *out);
39 char www_dir[MAXPATHLEN];
41 char *colors[] = {"red", "green", "blue", "yellow", "mauve", "spooge",
42 "rose", "ivory", "mitbeige", "twinkie", "midnightblue",
43 "grey", "lilac", "orange", "purple", "ronhoffmanngreen"};
47 int main(int argc, char **argv)
49 char outgrp[MAXPATHLEN];
50 char outfs[MAXPATHLEN];
51 char wkgrp[MAXPATHLEN];
52 char wkfs[MAXPATHLEN];
59 initialize_sms_error_table();
62 sprintf(www_dir, "%s/%s", DCM_DIR, WWW_SUBDIR);
65 sprintf(www_dir, "%s", argv[1]);
66 /* fake out dcm - we'll append .out later */
67 if (c = strrchr(www_dir, '.'))
73 fprintf(stderr, "usage: %s [outdir]\n", argv[0]);
77 if (stat(www_dir, &sb) < 0)
81 if (mkdir(www_dir, 0700) < 0)
83 fprintf(stderr, "%s: unable to make directory %s (%s))\n",
84 whoami, www_dir, strerror(errno));
90 fprintf(stderr, "%s: cannot stat %s (%s)\n", whoami, www_dir,
95 else if(!S_ISDIR(sb.st_mode))
97 fprintf(stderr, "%s: %s not a directory\n" , whoami, www_dir);
101 EXEC SQL CONNECT :db;
103 sprintf(outgrp, "%s/group", www_dir);
104 sprintf(outfs, "%s/filsys", www_dir);
105 sprintf(wkgrp, "%s/group~", www_dir);
106 sprintf(wkfs, "%s/filsys~", www_dir);
108 fprintf(stderr, "%s: building fs database...\n", whoami);
109 if (!(outfsf = fopen(wkfs, "w")))
111 fprintf(stderr, "%s: cannot open %s for writing (%s)\n", whoami,
112 wkfs, strerror(errno));
118 fprintf(stderr, "%s: close of %s failed (%s)", whoami,
119 wkfs, strerror(errno));
124 fprintf(stderr, "%s: building group database...\n", whoami);
125 if (!(outgrpf = fopen(wkgrp, "w")))
127 fprintf(stderr, "%s: cannot open %s for writing (%s)\n", whoami,
128 wkgrp, strerror(errno));
134 fprintf(stderr, "%s: close of %s failed (%s)", whoami, wkgrp,
140 fprintf(stderr, "%s: building tar file...\n", whoami);
141 sprintf(cmd, "(cd %s; tar cf - . ) > %s.out", www_dir, www_dir);
148 void filsys(FILE *out)
151 EXEC SQL BEGIN DECLARE SECTION;
152 char label[FILESYS_LABEL_SIZE], path[FILESYS_NAME_SIZE];
153 char type[FILESYS_TYPE_SIZE], key[FSGROUP_KEY_SIZE];
154 char alias[ALIAS_NAME_SIZE];
156 EXEC SQL END DECLARE SECTION;
158 EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
160 EXEC SQL DECLARE filsys_cursor CURSOR FOR
161 SELECT label, name, type, filsys_id FROM filesys
162 WHERE type='AFS' or type='FSGROUP'
164 EXEC SQL OPEN filsys_cursor;
167 EXEC SQL FETCH filsys_cursor INTO :label, :path, :type, :fid;
171 if (!*strtrim(label))
174 if (!strcmp(strtrim(type), "FSGROUP"))
177 EXEC SQL DECLARE group_cursor CURSOR FOR
178 SELECT f.name, g.key FROM filesys f, fsgroup g
179 WHERE f.filsys_id = g.filsys_id AND f.type='AFS'
180 AND g.group_id = :fid
182 EXEC SQL OPEN group_cursor;
183 EXEC SQL FETCH group_cursor INTO :path, :key;
184 EXEC SQL CLOSE group_cursor;
187 EXEC SQL DECLARE alias_cursor CURSOR FOR
188 SELECT name INTO :alias FROM alias
189 WHERE type='FILESYS' AND trans=:label;
193 for (c = label; *c; c++)
195 fprintf(out, "%s:%s\n", label, path);
197 EXEC SQL OPEN alias_cursor;
200 EXEC SQL FETCH alias_cursor INTO :alias;
204 if (!*strtrim(alias))
206 for (c = alias; *c; c++)
208 fprintf(out, "%s:%s\n", alias, path);
210 EXEC SQL CLOSE alias_cursor;
213 EXEC SQL CLOSE filsys_cursor;
219 db_error(sqlca.sqlcode);
223 void group(FILE *out)
228 EXEC SQL BEGIN DECLARE SECTION;
229 char user[USERS_LOGIN_SIZE];
230 char list[LIST_NAME_SIZE];
231 char parent[LIST_NAME_SIZE];
232 EXEC SQL END DECLARE SECTION;
234 EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
236 EXEC SQL DECLARE user_cursor CURSOR FOR
237 SELECT login FROM users WHERE status=1 OR status=2 OR status=6 OR status=9
239 EXEC SQL OPEN user_cursor;
243 EXEC SQL FETCH user_cursor INTO :user;
250 recsize = strlen(user) + 3;
252 fprintf(out, "%s:xjOhFdLKGK84w:", user);
254 EXEC SQL DECLARE member_cursor CURSOR FOR
255 SELECT DISTINCT l.name from list l, imembers i, users u
256 WHERE u.login=:user AND u.users_id=i.member_id AND
257 i.member_type='USER' AND i.list_id=l.list_id AND
258 l.grouplist != 0 and l.active != 0
260 EXEC SQL OPEN member_cursor;
264 EXEC SQL FETCH member_cursor INTO :list;
268 fprintf(out, "%s%s", first ? "" : ",", list);
269 recsize += strlen(list) + 1;
271 if (recsize > MAX_RECSIZE)
273 fprintf(stderr, "truncated group list for %s\n", user);
278 EXEC SQL CLOSE member_cursor;
284 EXEC SQL CLOSE user_cursor;
290 db_error(sqlca.sqlcode);