/* $Header$
*
* This generates the files necessary to load an nfs server.
+ *
+ * (c) Copyright 1988 by the Massachusetts Institute of Technology.
+ * For copying and distribution information, please see the file
+ * <mit-copyright.h>.
*/
+#include <mit-copyright.h>
#include <stdio.h>
#include <sms.h>
#include <sms_app.h>
#include <sys/stat.h>
#include <sys/time.h>
+#undef NFS_DIR
#define NFS_DIR "/u1/sms/dcm/nfs"
#define min(x,y) ((x) < (y) ? (x) : (y))
-struct np {
- char mach[33];
- char dev[33];
- char list[33];
-};
-
-struct fs {
- int nfsphys;
- char *dir;
- int owner;
- int owners;
- struct qt *quota;
-};
-
-
+char *whoami = "nfs.gen";
char *malloc(), *strsave();
char *ingres_date_and_time(), *ingres_time(), *ingres_date();
char cmd[64];
struct stat sb;
int changed = 0;
+ int ingerr();
if (argc > 2) {
fprintf(stderr, "usage: %s [outfile]\n", argv[0]);
exit(SMS_ARGS);
}
+ IIseterr(ingerr);
+ initialize_sms_error_table();
## ingres sms
-## set lockmode session where readlock = nolock
+## set lockmode session where level = table
changed = do_nfs();
}
if (argc == 2) {
- sprintf(cmd, "cd %s; tar cf %s .", NFS_DIR, argv[1]);
+ sprintf(cmd, "cd %s; cp /u1/sms/nfs/* .; tar cf %s .", NFS_DIR, argv[1]);
if (system(cmd))
exit(SMS_TAR_FAIL);
}
}
+/*
+ * ingerr: (supposedly) called when Ingres indicates an error.
+ * I have not yet been able to get this to work to intercept a
+ * database open error.
+ */
+#define INGRES_DEADLOCK 4700
+
+static int ingerr(num)
+ int *num;
+{
+ char buf[256];
+ int ingres_errno;
+
+ switch (*num) {
+ case INGRES_DEADLOCK:
+ ingres_errno = SMS_DEADLOCK;
+ break;
+ default:
+ ingres_errno = SMS_INGRES_ERR;
+ }
+ com_err(whoami, SMS_INGRES_ERR, " code %d\n", *num);
+ critical_alert("DCM", "NFS build encountered INGRES ERROR %d", *num);
+ exit(ingres_errno);
+}
+
+
/* Generate the files. Returns zero if nothing changed, non-zero otherwise. */
int do_nfs()
int do_lists(lists)
struct save_queue *lists;
##{
- struct save_queue *sq;
char file[64], *u;
struct hash *users, *do_everyone();
struct stat sb;
## retrieve (flag2 = int4(interval("min", tblstats.modtime - filetime)))
## where tblstats.table = "list"
## retrieve (flag3 = int4(interval("min", tblstats.modtime - filetime)))
-## where tblstats.table = "members"
+## where tblstats.table = "imembers"
## retrieve (flag4 = int4(interval("min", tblstats.modtime - filetime)))
## where tblstats.table = "serverhosts"
if (flag1 < 0 && flag2 < 0 && flag3 < 0 && flag4 < 0) {
}
}
+## begin transaction
+ /* get locks */
+## retrieve (lname = list.modtime) where list.list_id = 0
+## retrieve (lname = users.modtime) where users.users_id = 0
+
/* build the list of everyone, and store it in a file whose name
* corresponds to the empty list.
*/
/* now do each of the lists used by an NFS server */
## range of l is list
## range of l1 is list
-## range of m is members
+## range of m is imembers
## range of u is users
while (sq_get_data(lists, &listname)) {
if (strlen(listname) == 0)
fprintf(stderr, "cannot open %s for output\n", file);
exit(SMS_OCONFIG);
}
- sq = sq_create();
- sq_save_data(sq, listname);
- while (sq_get_data(sq, &lsname)) {
-## repeat retrieve (lname = trim(l.name))
-## where m.list_id = l1.list_id and l1.name = @lsname and
-## m.member_type = "LIST" and m.member_id = l.list_id {
- sq_save_unique_string(sq, lname);
-## }
-## repeat retrieve (id = m.member_id)
-## where m.list_id = l1.list_id and l1.name = @lsname and
-## m.member_type = "USER" {
- if (u = hash_lookup(users, id))
- fprintf(fd, "%s\n", u);
-## }
- }
- sq_destroy(sq);
+## repeat retrieve (id = m.member_id)
+## where m.list_id = l1.list_id and l1.name = @lsname and
+## m.member_type = "USER" {
+ if (u = hash_lookup(users, id))
+ fprintf(fd, "%s\n", u);
+## }
if (fclose(fd)) {
fprintf(stderr, "error closing %s\n", file);
exit(SMS_CCONFIG);
}
}
+/* don't free here either
sq_destroy(lists);
+ */
+## end transaction
return(1);
##}
## char name[33];
## int gid, id, lid, maxid, uid;
FILE *fd;
- int first;
+ int i;
struct save_queue *sq;
fprintf(stderr, "Building the list of everybody\n");
hash_store(groups, lid, strsave(buf));
## }
- /* get special cases: lists that aren't groups themselves but are
- * members of groups. */
- sq = sq_create();
-## range of m is members
-## retrieve (gid = list.#gid, lid = l.list_id)
-## where l.group = 0 and l.active != 0 and m.member_type = "LIST" and
-## m.member_id = l.list_id and m.list_id = list.list_id and
-## list.group != 0 {
- if (l = hash_lookup(groups, lid)) {
- sprintf(buf, "%s:%d", l, gid);
- free(l);
- } else {
- sprintf(buf, ":%d", gid);
- }
- hash_store(groups, lid, strsave(buf));
- sq_save_data(sq, lid);
-## }
-
- while (sq_get_data(sq, &id)) {
-## repeat retrieve (lid = l.list_id, gid = l.#gid)
-## where l.group = 0 and l.active != 0 and m.member_type = "LIST" and
-## m.member_id = l.list_id and m.list_id = @id {
- if (l = hash_lookup(groups, lid)) {
- sprintf(buf, "%s%s", l, hash_lookup(groups, id));
- free(l);
- } else {
- strcpy(buf, hash_lookup(groups, id));
- }
- sq_save_unique_data(sq, lid);
-## }
- }
- sq_destroy(sq);
-
/* now do grplists */
users = create_hash(10000);
## range of u is users
hash_store(users, id, u);
## }
-## repeat retrieve (lid = m.list_id, id = m.member_id)
-## where m.member_type = "USER" {
- if (u = (struct user *) hash_lookup(users, id)) {
+## range of m is imembers
+## retrieve (lid = m.list_id, id = m.member_id) where m.member_type = "USER" {
+ if ((u = (struct user *) hash_lookup(users, id)) &&
+ (hash_lookup(groups, lid) != NULL)) {
g = (struct grp *) malloc(sizeof(struct grp));
g->next = u->lists;
u->lists = g;
for (p = &(users->data[users->size - 1]); p >= users->data; p--) {
for (b = *p; b; b = b->next) {
+ i = 0;
u = (struct user *)b->data;
sprintf(buf, "%s:%d", u->name, u->uid);
for (g = u->lists; g; g = g->next)
- if (l = hash_lookup(groups, g->id))
- strcat(buf, l);
- /* should free stuff here... */
+ if (l = hash_lookup(groups, g->id)) {
+ i++;
+ strcat(buf, l);
+ }
+ /* should free stuff here...
+ if (i > 1) {
+ remove_duplicate_groups(buf);
+ } */
b->data = strsave(buf);
fprintf(fd, "%s\n", buf);
}
return(users);
##}
+#define MAXGROUPS 256
+
+remove_duplicate_groups(p)
+register char *p;
+{
+ register char *pp;
+ char *index();
+ register int *mp;
+ int memory[MAXGROUPS], i, *mg = &memory[MAXGROUPS-1];
+
+ bzero(memory, MAXGROUPS * sizeof(int));
+ p = index(p, ':');
+ p++;
+ while (p = index(p, ':')) {
+ i = atoi(++p);
+ pp = p;
+ for (mp = memory; *mp && mp < mg; mp++)
+ if (*mp == i) {
+ if (p = index(p, ':'))
+ strcpy(pp, ++p);
+ else {
+ *(--pp) = 0;
+ }
+ p = pp - 2;
+ break;
+ }
+ *mp = i;
+ }
+}
+
/* Now do each of the servers, linking the credentials list file and
* compiling the quota and dirs files.
## range of f is filesys
## range of u is users
## range of l is list
+
+/* acquire locks on users, lists, machines & filesystems */
+## begin transaction
+## retrieve (listname = u.modtime) where u.users_id = 0
+## retrieve (listname = l.modtime) where l.list_id = 0
+## retrieve (listname = m.modtime) where m.mach_id = 0
+## retrieve (listname = f.modtime) where f.filsys_id = 0
+
while (sq_get_data(machs, &machname)) {
## repeat retrieve (listname = trim(s.value3))
## where s.mach_id = m.mach_id and m.name = @machname
}
sq_destroy(sq);
}
+## end transaction
return(1);
##}