source: trunk/third/moira/gen/www.pc @ 24319

Revision 24319, 6.5 KB checked in by broder, 15 years ago (diff)
New Moira snapshot from SVN.
Line 
1/* $Id: www.pc 3956 2010-01-05 20:56:56Z zacheiss $
2 *
3 * This generates the web server user & group data.
4 *
5 * tom@mit.edu
6 *
7 * Copyright 1998 by the Massachusetts Institute of Technology.
8 * For copying and distribution information, please see the file
9 * <mit-copyright.h>.
10 */
11
12#include <mit-copyright.h>
13#include <moira.h>
14#include <moira_site.h>
15#include <sys/stat.h>
16#include <stdio.h>
17#include <string.h>
18#include <time.h>
19#include <errno.h>
20#include "util.h"
21
22EXEC SQL INCLUDE sqlca;
23
24RCSID("$HeadURL: svn+ssh://svn.mit.edu/moira/trunk/moira/gen/www.pc $ $Id: www.pc 3956 2010-01-05 20:56:56Z zacheiss $");
25
26
27#ifndef WWW_SUBDIR
28#define WWW_SUBDIR "www"
29#endif
30
31#define MAX_RECSIZE 10240
32
33char *whoami = "www.gen";
34char *db = "moira/moira";
35
36void filsys(FILE *out);
37void group(FILE *out);
38
39char www_dir[MAXPATHLEN];
40
41char *colors[] = {"red", "green", "blue", "yellow", "mauve", "spooge",
42                  "rose", "ivory", "mitbeige", "twinkie", "midnightblue",
43                  "grey", "lilac", "orange", "purple", "ronhoffmanngreen"};
44int ncolors = 16;
45
46
47int main(int argc, char **argv)
48{
49  char outgrp[MAXPATHLEN];
50  char outfs[MAXPATHLEN];
51  char wkgrp[MAXPATHLEN];
52  char wkfs[MAXPATHLEN];
53  char cmd[BUFSIZ];
54  FILE *outgrpf;
55  FILE *outfsf;
56  struct stat sb;
57  char *c;
58
59  initialize_sms_error_table();
60
61  if (argc == 1)
62    sprintf(www_dir, "%s/%s", DCM_DIR, WWW_SUBDIR);
63  else
64    {
65      sprintf(www_dir, "%s", argv[1]);
66      /* fake out dcm - we'll append .out later */
67      if (c = strrchr(www_dir, '.'))
68        *c = '\0';
69    }
70
71  if (argc > 2)
72    {
73      fprintf(stderr, "usage: %s [outdir]\n", argv[0]);
74      exit(MR_ARGS);
75    }
76
77  if (stat(www_dir, &sb) < 0)
78    {
79      if (errno == ENOENT)
80        {
81          if (mkdir(www_dir, 0700) < 0)
82            {
83              fprintf(stderr, "%s: unable to make directory %s (%s))\n",
84                      whoami, www_dir, strerror(errno));
85              exit(MR_CCONFIG);
86            }
87        }
88      else
89        {
90          fprintf(stderr, "%s: cannot stat %s (%s)\n", whoami, www_dir,
91                  strerror(errno));
92          exit(MR_CCONFIG);
93        }
94    }
95  else if(!S_ISDIR(sb.st_mode))
96    {
97      fprintf(stderr, "%s: %s not a directory\n" , whoami, www_dir);
98      exit(MR_CCONFIG);
99    }
100
101  EXEC SQL CONNECT :db;
102
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);
107
108  fprintf(stderr, "%s: building fs database...\n", whoami);
109  if (!(outfsf = fopen(wkfs, "w")))
110    {
111      fprintf(stderr, "%s: cannot open %s for writing (%s)\n", whoami,
112              wkfs, strerror(errno));
113      exit(MR_OCONFIG);
114    }
115  filsys(outfsf);
116  if (fclose(outfsf))
117    {
118      fprintf(stderr, "%s: close of %s failed (%s)", whoami,
119              wkfs, strerror(errno));
120      exit(MR_CCONFIG);
121    }
122  fix_file(outfs);
123
124  fprintf(stderr, "%s: building group database...\n", whoami);
125  if (!(outgrpf = fopen(wkgrp, "w")))
126    {
127      fprintf(stderr, "%s: cannot open %s for writing (%s)\n", whoami,
128              wkgrp, strerror(errno));
129      exit(MR_OCONFIG);
130    }
131  group(outgrpf);
132  if (fclose(outgrpf))
133    {
134      fprintf(stderr, "%s: close of %s failed (%s)", whoami, wkgrp,
135              strerror(errno));
136      exit(MR_CCONFIG);
137    }
138  fix_file(outgrp);
139 
140  fprintf(stderr, "%s: building tar file...\n", whoami);
141  sprintf(cmd, "(cd %s; tar cf - . ) > %s.out", www_dir, www_dir);
142  if (system(cmd))
143    exit(MR_TAR_FAIL);
144
145  exit(MR_SUCCESS);
146}
147
148void filsys(FILE *out)
149{
150  char *c;
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];
155  int status, fid;
156  EXEC SQL END DECLARE SECTION;
157
158  EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
159
160  EXEC SQL DECLARE filsys_cursor CURSOR FOR
161    SELECT label, name, type, filsys_id FROM filesys
162    WHERE type='AFS' or type='FSGROUP'
163    ORDER by label;
164  EXEC SQL OPEN filsys_cursor;
165  while (1)
166    {
167      EXEC SQL FETCH filsys_cursor INTO :label, :path, :type, :fid;
168      if (sqlca.sqlcode)
169        break;
170
171      if (!*strtrim(label))
172        continue;
173
174      if (!strcmp(strtrim(type), "FSGROUP"))
175        {
176          *path = '\0';
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
181            ORDER BY g.key;
182          EXEC SQL OPEN group_cursor;
183          EXEC SQL FETCH group_cursor INTO :path, :key;
184          EXEC SQL CLOSE group_cursor;
185        }
186
187      EXEC SQL DECLARE alias_cursor CURSOR FOR
188        SELECT name INTO :alias FROM alias
189        WHERE type='FILESYS' AND trans=:label;
190
191      if (!*strtrim(path))
192        continue;
193      for (c = label; *c; c++)
194        *c = tolower(*c);
195      fprintf(out, "%s:%s\n", label, path);
196
197      EXEC SQL OPEN alias_cursor;
198      while (1)
199        {
200          EXEC SQL FETCH alias_cursor INTO :alias;
201          if (sqlca.sqlcode)
202            break;
203         
204          if (!*strtrim(alias))
205            continue;
206          for (c = alias; *c; c++)
207            *c = tolower(*c);
208          fprintf(out, "%s:%s\n", alias, path);
209        }
210      EXEC SQL CLOSE alias_cursor;
211    }
212
213  EXEC SQL CLOSE filsys_cursor;
214  EXEC SQL COMMIT;
215
216  return;
217
218sqlerr:
219  db_error(sqlca.sqlcode);
220  exit(MR_DBMS_ERR);
221}
222
223void group(FILE *out)
224{
225  int first;
226  int recsize;
227
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;
233
234  EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
235
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
238    ORDER by login;
239  EXEC SQL OPEN user_cursor;
240
241  while (1)
242    {
243      EXEC SQL FETCH user_cursor INTO :user;
244      if (sqlca.sqlcode)
245        break;
246      strtrim(user);
247      if (!isalpha(*user))
248        continue;
249
250      recsize = strlen(user) + 3;
251      first = 1;
252      fprintf(out, "%s:xjOhFdLKGK84w:", user);
253
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
259        ORDER by l.name;
260      EXEC SQL OPEN member_cursor;
261
262      while (1)
263        {
264          EXEC SQL FETCH member_cursor INTO :list;
265          if (sqlca.sqlcode)
266            break;
267          strtrim(list);
268          fprintf(out, "%s%s", first ? "" : ",", list);
269          recsize += strlen(list) + 1;
270          first = 0;
271          if (recsize > MAX_RECSIZE)
272            {
273              fprintf(stderr, "truncated group list for %s\n", user);
274              break;
275            }
276        }
277
278      EXEC SQL CLOSE member_cursor;
279      EXEC SQL COMMIT;
280
281      fprintf(out, "\n");
282    }
283
284  EXEC SQL CLOSE user_cursor;
285  EXEC SQL COMMIT;
286
287  return;
288
289sqlerr:
290  db_error(sqlca.sqlcode);
291  exit(MR_DBMS_ERR);
292}
Note: See TracBrowser for help on using the repository browser.