[moira.git] / incremental / afs.c

/* $Header$
 *
 * Do AFS incremental updates
 *
 * Copyright (C) 1989,1992 by the Massachusetts Institute of Technology
 * for copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#include <sys/types.h>
#include <sys/file.h>
#include <strings.h>

#include <krb.h>
#include <moira.h>
#include <moira_site.h>

#include <afs/param.h>
#include <afs/cellconfig.h>
#include <afs/venus.h>
#include <afs/ptclient.h>
#include <afs/pterror.h>

#define STOP_FILE "/moira/afs/noafs"
#define file_exists(file) (access((file), F_OK) == 0)

char *whoami;

/* Main stub routines */
int do_user();
int do_list();
int do_member();
int do_filesys();
int do_quota();

/* Support stub routines */
int run_cmd();
int add_user_lists();
int get_members();
int edit_group();
int pr_try();
int check_afs();

/* libprot.a routines */
extern long pr_Initialize();
extern long pr_CreateUser();
extern long pr_CreateGroup();
extern long pr_DeleteByID();
extern long pr_ChangeEntry();
extern long pr_SetFieldsEntry();
extern long pr_AddToGroup();
extern long pr_RemoveUserFromGroup();

static char tbl_buf[1024];

main(argc, argv)
char **argv;
int argc;
{
    int beforec, afterc, i;
    char *table, **before, **after;

    for (i = getdtablesize() - 1; i > 2; i--)
      close(i);

    table = argv[1];
    beforec = atoi(argv[2]);
    before = &argv[4];
    afterc = atoi(argv[3]);
    after = &argv[4 + beforec];
    whoami = argv[0];

    setlinebuf(stdout);

    strcpy(tbl_buf, table);
    strcat(tbl_buf, " (");
    for (i = 0; i < beforec; i++) {
	if (i > 0)
	  strcat(tbl_buf, ",");
	strcat(tbl_buf, before[i]);
    }
    strcat(tbl_buf, ")->(");
    for (i = 0; i < afterc; i++) {
	if (i > 0)
	  strcat(tbl_buf, ",");
	strcat(tbl_buf, after[i]);
    }
    strcat(tbl_buf, ")");
#ifdef DEBUG
    printf("%s\n", tbl_buf);
#endif

    initialize_sms_error_table();
    initialize_krb_error_table();

    if (!strcmp(table, "users")) {
	do_user(before, beforec, after, afterc);
    } else if (!strcmp(table, "list")) {
	do_list(before, beforec, after, afterc);
    } else if (!strcmp(table, "members")) {
	do_member(before, beforec, after, afterc);
    } else if (!strcmp(table, "filesys")) {
	do_filesys(before, beforec, after, afterc);
    } else if (!strcmp(table, "quota")) {
	do_quota(before, beforec, after, afterc);
    }
    exit(0);
}


do_user(before, beforec, after, afterc)
char **before;
int beforec;
char **after;
int afterc;
{
    int astate, bstate, auid, buid, code;
    char hostname[64];
    char *av[2];

    auid = buid = astate = bstate = 0;
    if (afterc > U_STATE) astate = atoi(after[U_STATE]);
    if (beforec > U_STATE) bstate = atoi(before[U_STATE]);
    if (afterc > U_UID) auid = atoi(after[U_UID]);
    if (beforec > U_UID) buid = atoi(before[U_UID]);

    /* We consider "half-registered" users to be active */
    if (astate == 2) astate = 1;
    if (bstate == 2) bstate = 1;

    if (astate != 1 && bstate != 1)		/* inactive user */
	return;

    if (astate == bstate && auid == buid && 
	!strcmp(before[U_NAME], after[U_NAME]))
	/* No AFS related attributes have changed */
	return;

    if (astate == bstate) {
	/* Only a modify has to be done */
	code = pr_try(pr_ChangeEntry, before[U_NAME], after[U_NAME], auid, "");
	if (code) {
	    critical_alert("incremental",
			   "Couldn't change user %s (id %d) to %s (id %d): %s",
			   before[U_NAME], buid, after[U_NAME], auid,
			   error_message(code));
	}
	return;
    }
    if (bstate == 1) {
	code = pr_try(pr_DeleteByID, buid);
	if (code && code != PRNOENT) {
	    critical_alert("incremental",
			   "Couldn't delete user %s (id %d): %s",
			   before[U_NAME], buid, error_message(code));
	}
	return;
    }
    if (astate == 1) {
	code = pr_try(pr_CreateUser, after[U_NAME], &auid);
	if (code) {
	    critical_alert("incremental",
			   "Couldn't create user %s (id %d): %s",
			   after[U_NAME], auid, error_message(code));
	    return;
	}

	if (beforec) {
	    /* Reactivating a user; get his group list */
	    gethostname(hostname, sizeof(hostname));
	    code = mr_connect(hostname);
	    if (!code) code = mr_auth("afs.incr");
	    if (code) {
		critical_alert("incremental",
			       "Error contacting Moira server to retrieve grouplist of user %s: %s",
			       after[U_NAME], error_message(code));
		return;
	    }
	    av[0] = "ruser";
	    av[1] = after[U_NAME];
	    code = mr_query("get_lists_of_member", 2, av,
			    add_user_lists, after[U_NAME]);
	    if (code && code != MR_NO_MATCH)
		critical_alert("incremental",
			       "Couldn't retrieve membership of user %s: %s",
			       after[U_NAME], error_message(code));
	    mr_disconnect();
	}
	return;
    }
}


do_list(before, beforec, after, afterc)
char **before;
int beforec;
char **after;
int afterc;
{
    register int agid, bgid;
    int ahide, bhide;
    long code, id;
    char hostname[64];
    char g1[PR_MAXNAMELEN], g2[PR_MAXNAMELEN];
    char *av[2];

    agid = bgid = 0;
    if (beforec > L_GID && atoi(before[L_ACTIVE]) && atoi(before[L_GROUP])) {
	bgid = atoi(before[L_GID]);
	bhide = atoi(before[L_HIDDEN]);
    }
    if (afterc > L_GID && atoi(after[L_ACTIVE]) && atoi(after[L_GROUP])) {
	agid = atoi(after[L_GID]);
	ahide = atoi(after[L_HIDDEN]);
    }

    if (agid == 0 && bgid == 0)			/* Not active groups */
	return;

    if (agid && bgid) {
	if (strcmp(after[L_NAME], before[L_NAME])) {
	    /* Only a modify is required */
	    strcpy(g1, "system:");
	    strcpy(g2, "system:");
	    strcat(g1, before[L_NAME]);
	    strcat(g2, after[L_NAME]);
	    code = pr_try(pr_ChangeEntry, g1, g2, -agid, "");
	    if (code) {
		critical_alert("incremental",
			       "Couldn't change group %s (id %d) to %s (id %d): %s",
			       before[L_NAME], -bgid, after[L_NAME], -agid,
			       error_message(code));
	    }
	}
	if (ahide != bhide) {
	    code = pr_try(pr_SetFieldsEntry, -agid, PR_SF_ALLBITS,
			  (ahide ? PRP_STATUS_ANY : PRP_GROUP_DEFAULT) >>PRIVATE_SHIFT,
			  0 /*ngroups*/, 0 /*nusers*/);
	    if (code) {
		critical_alert("incremental",
			       "Couldn't set flags of group %s: %s",
			       after[L_NAME], error_message(code));
	    }
	}
	return;
    }
    if (bgid) {
	code = pr_try(pr_DeleteByID, -bgid);
	if (code && code != PRNOENT) {
	    critical_alert("incremental",
			   "Couldn't delete group %s (id %d): %s",
			   before[L_NAME], -bgid, error_message(code));
	}
	return;
    }
    if (agid) {
	strcpy(g1, "system:");
	strcat(g1, after[L_NAME]);
	strcpy(g2, "system:administrators");
	id = -agid;
	code = pr_try(pr_CreateGroup, g1, g2, &id);
	if (code) {
	    critical_alert("incremental",
			   "Couldn't create group %s (id %d): %s",
			   after[L_NAME], id, error_message(code));
	    return;
	}
	if (ahide) {
	    code = pr_try(pr_SetFieldsEntry, -agid, PR_SF_ALLBITS,
			  (ahide ? PRP_STATUS_ANY : PRP_GROUP_DEFAULT) >>PRIVATE_SHIFT,
			  0 /*ngroups*/, 0 /*nusers*/);
	    if (code) {
		critical_alert("incremental",
			       "Couldn't set flags of group %s: %s",
			       after[L_NAME], error_message(code));
	    }
	}

	/* We need to make sure the group is properly populated */
	if (beforec < L_ACTIVE || atoi(before[L_ACTIVE]) == 0) return;

	gethostname(hostname, sizeof(hostname));
	code = mr_connect(hostname);
	if (!code) code = mr_auth("afs.incr");
	if (code) {
	    critical_alert("incremental",
			   "Error contacting Moira server to resolve %s: %s",
			   after[L_NAME], error_message(code));
	    return;
	}
	av[0] = "LIST";
	av[1] = after[L_NAME];
	get_members(2, av, after[L_NAME]);

	mr_disconnect();
	return;
    }
}


do_member(before, beforec, after, afterc)
char **before;
int beforec;
char **after;
int afterc;
{
    int code;
    char *p;
    
    if ((beforec < 4 || !atoi(before[LM_END])) &&
	(afterc < 4 || !atoi(after[LM_END])))
	return;

    if (afterc) 
	edit_group(1, after[LM_LIST], after[LM_TYPE], after[LM_MEMBER]);
    if (beforec)
	edit_group(0, before[LM_LIST], before[LM_TYPE], before[LM_MEMBER]);
}


do_filesys(before, beforec, after, afterc)
char **before;
int beforec;
char **after;
int afterc;
{
    char cmd[1024];
    
    if (beforec < FS_CREATE) {
	if (afterc < FS_CREATE || atoi(after[FS_CREATE])==0 ||
	    strcmp(after[FS_TYPE], "AFS"))
	    return;

	/* new locker creation */
	sprintf(cmd, "%s/perl -I%s %s/afs_create.pl %s %s %s %s %s %s",
		BIN_DIR, BIN_DIR, BIN_DIR,
		after[FS_NAME], after[FS_L_TYPE], after[FS_MACHINE],
		after[FS_PACK], after[FS_OWNER], after[FS_OWNERS]);
	run_cmd(cmd);
	return;
    }

    /* What do we do?  When do we use FS_CREATE?
     * 
     * TYPE change:  AFS->ERR, ERR->AFS: rename/unmount/remount
     * LOCKERTYPE change: rename/remount
     * PACK change: remount
     * LABEL change: rename/remount
     * Deletion: rename/unmount
     */
    if (afterc < FS_CREATE) {
	if (!strcmp(before[FS_TYPE], "AFS"))
	    critical_alert("incremental",
			   "Could not delete AFS filesystem %s: Operation not supported",
			   before[FS_NAME]);
	return;
    }

    if (!strcmp(after[FS_TYPE], "AFS")) {
	if (strcmp(before[FS_TYPE], "AFS")) {
	    critical_alert("incremental",
			   "Cannot convert %s to an AFS filesystem: Operation not supported",
			   after[FS_NAME]);
	} else {
	    critical_alert("incremental",
			   "Cannot change attributes of AFS filesystem %s: Operation not supported",
			   after[FS_NAME]);
	}
	return;
    }
}


do_quota(before, beforec, after, afterc)
char **before;
int beforec;
char **after;
int afterc;
{
    char cmd[1024];

    if (afterc < Q_DIRECTORY || strcmp("ANY", after[Q_TYPE]) ||
	strncmp("/afs/", after[Q_DIRECTORY], 5))
	return;

    sprintf(cmd, "%s/perl -I%s %s/afs_quota.pl %s %s",
	    BIN_DIR, BIN_DIR, BIN_DIR,
	    after[Q_DIRECTORY], after[Q_QUOTA]);
    run_cmd(cmd);
    return;
}


run_cmd(cmd)
char *cmd;
{
    int success=0, tries=0;

    check_afs();
    
    while (success == 0 && tries < 2) {
	if (tries++)
	    sleep(90);
	com_err(whoami, 0, "Executing command: %s", cmd);
	if (system(cmd) == 0)
	    success++;
    }
    if (!success)
	critical_alert("incremental", "failed command: %s", cmd);
}


add_user_lists(ac, av, user)
    int ac;
    char *av[];
    char *user;
{
    if (atoi(av[5]))
	edit_group(1, av[0], "USER", user);
}


get_members(ac, av, group)
    int ac;
    char *av[];
    char *group;
{
    int code=0;

    if (strcmp(av[0], "LIST")) {
	edit_group(1, group, av[0], av[1]);
    } else {
	code = mr_query("get_end_members_of_list", 1, &av[1],
			get_members, group);
	if (code)
	    critical_alert("incremental",
			   "Couldn't retrieve full membership of %s: %s",
			   group, error_message(code));
    }
    return code;
}


edit_group(op, group, type, member)
    int op;
    char *group;
    char *type;
    char *member;
{
    char *p = 0;
    char buf[PR_MAXNAMELEN];
    int code;
    static char local_realm[REALM_SZ+1] = "";

    /* The following KERBEROS code allows for the use of entities
     * user@foreign_cell.
     */
    if (!local_realm[0])
	krb_get_lrealm(local_realm, 1);
    if (!strcmp(type, "KERBEROS")) {
	p = index(member, '@');
	if (p && !strcasecmp(p+1, local_realm))
	    *p = 0;
    } else if (strcmp(type, "USER"))
	return;					/* invalid type */

    strcpy(buf, "system:");
    strcat(buf, group);
    code=pr_try(op ? pr_AddToGroup : pr_RemoveUserFromGroup, member, buf);
    if (code) {
	if (op==0 && code == PRNOENT) return;
	if (op==1 && code == PRIDEXIST) return;
	if (strcmp(type, "KERBEROS") || code != PRNOENT) {
	    critical_alert("incremental",
			   "Couldn't %s %s %s %s: %s",
			   op ? "add" : "remove", member,
			   op ? "to" : "from", buf,
			   error_message(code));
	}
    }
}


long pr_try(fn, a1, a2, a3, a4, a5, a6, a7, a8)
    long (*fn)();
    char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
{
    static int initd=0;
    register long code;
    register int tries = 0;
#ifdef DEBUG
    char fname[64];
#endif

    check_afs();
    
    if (!initd) {
	code=pr_Initialize(1, AFSCONF_CLIENTNAME, 0);
	if (code) {
	    critical_alert("incremental", "Couldn't initialize libprot: %s",
			   error_message(code));
	    return;
	}
	initd = 1;
    } else {
	sleep(1);				/* give ptserver room */
    }

    while (code = (*fn)(a1, a2, a3, a4, a5, a6, a7, a8)) {
#ifdef DEBUG
	long t;
	t = time(0);
	if (fn == pr_AddToGroup) strcpy(fname, "pr_AddToGroup");
	else if (fn == pr_RemoveUserFromGroup)
	    strcpy(fname, "pr_RemoveUserFromGroup");
	else if (fn == pr_CreateUser) strcpy(fname, "pr_CreateUser");
	else if (fn == pr_CreateGroup) strcpy(fname, "pr_CreateGroup");
	else if (fn == pr_DeleteByID) strcpy(fname, "pr_DeleteByID");
	else if (fn == pr_ChangeEntry) strcpy(fname, "pr_ChangeEntry");
	else if (fn == pr_SetFieldsEntry) strcpy(fname, "pr_SetFieldsEntry");
	else if (fn == pr_AddToGroup) strcpy(fname, "pr_AddToGroup");
	else {
	    sprintf(fname, "pr_??? (0x%08x)", (long)fn);
	}

	com_err(whoami, code, "%s failed (try %d @%u)", fname, tries+1, t);
#endif
	if (++tries > 2)
	    return code;
	if (code == UNOQUORUM) { sleep(90); continue; }
	else { sleep(15); continue; }
    }
    return code;
}


check_afs()
{
    int i;
    
    for (i=0; file_exists(STOP_FILE); i++) {
	if (i > 30) {
	    critical_alert("incremental",
			   "AFS incremental failed (%s exists): %s",
			   STOP_FILE, tbl_buf);
	    exit(1);
	}
	sleep(60);
    }
}
Commit	Line	Data
fb8809f4	1	/* $Header$
	2	*
	3	* Do AFS incremental updates
	4	*
60c22e5f	5	* Copyright (C) 1989,1992 by the Massachusetts Institute of Technology
fb8809f4	6	* for copying and distribution information, please see the file
	7	* <mit-copyright.h>.
	8	*/
	9
60c22e5f	10	#include <sys/types.h>
	11	#include <sys/file.h>
	12	#include <strings.h>
	13
d1be2e3a	14	#include <krb.h>
2ce085d2	15	#include <moira.h>
2ce085d2	16	#include <moira_site.h>
f633445d	17
60c22e5f	18	#include <afs/param.h>
	19	#include <afs/cellconfig.h>
	20	#include <afs/venus.h>
	21	#include <afs/ptclient.h>
	22	#include <afs/pterror.h>
fb8809f4	23
d1be2e3a	24	#define STOP_FILE "/moira/afs/noafs"
60c22e5f	25	#define file_exists(file) (access((file), F_OK) == 0)
fb8809f4	26
	27	char *whoami;
	28
eb63ae5f	29	/* Main stub routines */
	30	int do_user();
	31	int do_list();
	32	int do_member();
	33	int do_filesys();
	34	int do_quota();
	35
	36	/* Support stub routines */
	37	int run_cmd();
	38	int add_user_lists();
	39	int get_members();
	40	int edit_group();
	41	int pr_try();
	42	int check_afs();
	43
	44	/* libprot.a routines */
	45	extern long pr_Initialize();
	46	extern long pr_CreateUser();
	47	extern long pr_CreateGroup();
	48	extern long pr_DeleteByID();
	49	extern long pr_ChangeEntry();
	50	extern long pr_SetFieldsEntry();
	51	extern long pr_AddToGroup();
	52	extern long pr_RemoveUserFromGroup();
	53
	54	static char tbl_buf[1024];
	55
fb8809f4	56	main(argc, argv)
	57	char **argv;
	58	int argc;
	59	{
a7fdf2de	60	int beforec, afterc, i;
fb8809f4	61	char table, before, *after;
fb8809f4	62
a7fdf2de	63	for (i = getdtablesize() - 1; i > 2; i--)
	64	close(i);
	65
fb8809f4	66	table = argv[1];
	67	beforec = atoi(argv[2]);
	68	before = &argv[4];
	69	afterc = atoi(argv[3]);
	70	after = &argv[4 + beforec];
48c9cd1f	71	whoami = argv[0];
f10e3ca2	72
eb63ae5f	73	setlinebuf(stdout);
	74
	75	strcpy(tbl_buf, table);
	76	strcat(tbl_buf, " (");
810d12a7	77	for (i = 0; i < beforec; i++) {
810d12a7	78	if (i > 0)
eb63ae5f	79	strcat(tbl_buf, ",");
eb63ae5f	80	strcat(tbl_buf, before[i]);
810d12a7	81	}
eb63ae5f	82	strcat(tbl_buf, ")->(");
810d12a7	83	for (i = 0; i < afterc; i++) {
810d12a7	84	if (i > 0)
eb63ae5f	85	strcat(tbl_buf, ",");
eb63ae5f	86	strcat(tbl_buf, after[i]);
810d12a7	87	}
eb63ae5f	88	strcat(tbl_buf, ")");
d1be2e3a	89	#ifdef DEBUG
eb63ae5f	90	printf("%s\n", tbl_buf);
810d12a7	91	#endif
810d12a7	92
fb8809f4	93	initialize_sms_error_table();
	94	initialize_krb_error_table();
	95
	96	if (!strcmp(table, "users")) {
	97	do_user(before, beforec, after, afterc);
	98	} else if (!strcmp(table, "list")) {
	99	do_list(before, beforec, after, afterc);
	100	} else if (!strcmp(table, "members")) {
	101	do_member(before, beforec, after, afterc);
	102	} else if (!strcmp(table, "filesys")) {
	103	do_filesys(before, beforec, after, afterc);
1f377b55	104	} else if (!strcmp(table, "quota")) {
fb8809f4	105	do_quota(before, beforec, after, afterc);
fb8809f4	106	}
fb8809f4	107	exit(0);
	108	}
	109
	110
fb8809f4	111	do_user(before, beforec, after, afterc)
	112	char **before;
	113	int beforec;
	114	char **after;
	115	int afterc;
	116	{
eb63ae5f	117	int astate, bstate, auid, buid, code;
9b273918	118	char hostname[64];
9b273918	119	char *av[2];
60c22e5f	120
	121	auid = buid = astate = bstate = 0;
	122	if (afterc > U_STATE) astate = atoi(after[U_STATE]);
	123	if (beforec > U_STATE) bstate = atoi(before[U_STATE]);
	124	if (afterc > U_UID) auid = atoi(after[U_UID]);
	125	if (beforec > U_UID) buid = atoi(before[U_UID]);
	126
	127	/* We consider "half-registered" users to be active */
810d12a7	128	if (astate == 2) astate = 1;
810d12a7	129	if (bstate == 2) bstate = 1;
fb8809f4	130
60c22e5f	131	if (astate != 1 && bstate != 1) /* inactive user */
fb8809f4	132	return;
60c22e5f	133
	134	if (astate == bstate && auid == buid &&
	135	!strcmp(before[U_NAME], after[U_NAME]))
	136	/* No AFS related attributes have changed */
fb8809f4	137	return;
fb8809f4	138
60c22e5f	139	if (astate == bstate) {
60c22e5f	140	/* Only a modify has to be done */
eb63ae5f	141	code = pr_try(pr_ChangeEntry, before[U_NAME], after[U_NAME], auid, "");
60c22e5f	142	if (code) {
	143	critical_alert("incremental",
	144	"Couldn't change user %s (id %d) to %s (id %d): %s",
	145	before[U_NAME], buid, after[U_NAME], auid,
	146	error_message(code));
	147	}
	148	return;
	149	}
	150	if (bstate == 1) {
eb63ae5f	151	code = pr_try(pr_DeleteByID, buid);
60c22e5f	152	if (code && code != PRNOENT) {
	153	critical_alert("incremental",
	154	"Couldn't delete user %s (id %d): %s",
	155	before[U_NAME], buid, error_message(code));
	156	}
	157	return;
	158	}
	159	if (astate == 1) {
eb63ae5f	160	code = pr_try(pr_CreateUser, after[U_NAME], &auid);
60c22e5f	161	if (code) {
	162	critical_alert("incremental",
	163	"Couldn't create user %s (id %d): %s",
	164	after[U_NAME], auid, error_message(code));
96786144	165	return;
60c22e5f	166	}
2dbcb756	167
9b273918	168	if (beforec) {
	169	/* Reactivating a user; get his group list */
	170	gethostname(hostname, sizeof(hostname));
	171	code = mr_connect(hostname);
	172	if (!code) code = mr_auth("afs.incr");
	173	if (code) {
	174	critical_alert("incremental",
	175	"Error contacting Moira server to retrieve grouplist of user %s: %s",
	176	after[U_NAME], error_message(code));
	177	return;
	178	}
2dbcb756	179	av[0] = "ruser";
9b273918	180	av[1] = after[U_NAME];
	181	code = mr_query("get_lists_of_member", 2, av,
	182	add_user_lists, after[U_NAME]);
b80d6d78	183	if (code && code != MR_NO_MATCH)
9b273918	184	critical_alert("incremental",
	185	"Couldn't retrieve membership of user %s: %s",
	186	after[U_NAME], error_message(code));
	187	mr_disconnect();
	188	}
60c22e5f	189	return;
fb8809f4	190	}
	191	}
	192
	193
fb8809f4	194	do_list(before, beforec, after, afterc)
	195	char **before;
	196	int beforec;
	197	char **after;
	198	int afterc;
	199	{
8ec23c21	200	register int agid, bgid;
eb63ae5f	201	int ahide, bhide;
60c22e5f	202	long code, id;
ed9a5300	203	char hostname[64];
60c22e5f	204	char g1[PR_MAXNAMELEN], g2[PR_MAXNAMELEN];
ed9a5300	205	char *av[2];
fb8809f4	206
60c22e5f	207	agid = bgid = 0;
8ec23c21	208	if (beforec > L_GID && atoi(before[L_ACTIVE]) && atoi(before[L_GROUP])) {
60c22e5f	209	bgid = atoi(before[L_GID]);
8ec23c21	210	bhide = atoi(before[L_HIDDEN]);
	211	}
	212	if (afterc > L_GID && atoi(after[L_ACTIVE]) && atoi(after[L_GROUP])) {
60c22e5f	213	agid = atoi(after[L_GID]);
8ec23c21	214	ahide = atoi(after[L_HIDDEN]);
8ec23c21	215	}
fb8809f4	216
60c22e5f	217	if (agid == 0 && bgid == 0) /* Not active groups */
60c22e5f	218	return;
60c22e5f	219
60c22e5f	220	if (agid && bgid) {
8ec23c21	221	if (strcmp(after[L_NAME], before[L_NAME])) {
	222	/* Only a modify is required */
	223	strcpy(g1, "system:");
	224	strcpy(g2, "system:");
	225	strcat(g1, before[L_NAME]);
	226	strcat(g2, after[L_NAME]);
eb63ae5f	227	code = pr_try(pr_ChangeEntry, g1, g2, -agid, "");
8ec23c21	228	if (code) {
	229	critical_alert("incremental",
	230	"Couldn't change group %s (id %d) to %s (id %d): %s",
	231	before[L_NAME], -bgid, after[L_NAME], -agid,
	232	error_message(code));
	233	}
	234	}
	235	if (ahide != bhide) {
eb63ae5f	236	code = pr_try(pr_SetFieldsEntry, -agid, PR_SF_ALLBITS,
	237	(ahide ? PRP_STATUS_ANY : PRP_GROUP_DEFAULT) >>PRIVATE_SHIFT,
	238	0 /ngroups/, 0 /nusers/);
8ec23c21	239	if (code) {
	240	critical_alert("incremental",
	241	"Couldn't set flags of group %s: %s",
	242	after[L_NAME], error_message(code));
	243	}
60c22e5f	244	}
fb8809f4	245	return;
fb8809f4	246	}
60c22e5f	247	if (bgid) {
eb63ae5f	248	code = pr_try(pr_DeleteByID, -bgid);
60c22e5f	249	if (code && code != PRNOENT) {
	250	critical_alert("incremental",
	251	"Couldn't delete group %s (id %d): %s",
	252	before[L_NAME], -bgid, error_message(code));
	253	}
fb8809f4	254	return;
fb8809f4	255	}
60c22e5f	256	if (agid) {
	257	strcpy(g1, "system:");
	258	strcat(g1, after[L_NAME]);
	259	strcpy(g2, "system:administrators");
	260	id = -agid;
eb63ae5f	261	code = pr_try(pr_CreateGroup, g1, g2, &id);
60c22e5f	262	if (code) {
	263	critical_alert("incremental",
	264	"Couldn't create group %s (id %d): %s",
ed9a5300	265	after[L_NAME], id, error_message(code));
60c22e5f	266	return;
60c22e5f	267	}
8ec23c21	268	if (ahide) {
eb63ae5f	269	code = pr_try(pr_SetFieldsEntry, -agid, PR_SF_ALLBITS,
	270	(ahide ? PRP_STATUS_ANY : PRP_GROUP_DEFAULT) >>PRIVATE_SHIFT,
	271	0 /ngroups/, 0 /nusers/);
8ec23c21	272	if (code) {
	273	critical_alert("incremental",
	274	"Couldn't set flags of group %s: %s",
	275	after[L_NAME], error_message(code));
	276	}
	277	}
60c22e5f	278
	279	/* We need to make sure the group is properly populated */
	280	if (beforec < L_ACTIVE \|\| atoi(before[L_ACTIVE]) == 0) return;
	281
ed9a5300	282	gethostname(hostname, sizeof(hostname));
	283	code = mr_connect(hostname);
	284	if (!code) code = mr_auth("afs.incr");
	285	if (code) {
	286	critical_alert("incremental",
	287	"Error contacting Moira server to resolve %s: %s",
	288	after[L_NAME], error_message(code));
	289	return;
	290	}
	291	av[0] = "LIST";
	292	av[1] = after[L_NAME];
	293	get_members(2, av, after[L_NAME]);
	294
	295	mr_disconnect();
	296	return;
60c22e5f	297	}
fb8809f4	298	}
	299
	300
	301	do_member(before, beforec, after, afterc)
	302	char **before;
	303	int beforec;
	304	char **after;
	305	int afterc;
	306	{
60c22e5f	307	int code;
	308	char *p;
	309
bd70a79d	310	if ((beforec < 4 \|\| !atoi(before[LM_END])) &&
bd70a79d	311	(afterc < 4 \|\| !atoi(after[LM_END])))
fb8809f4	312	return;
60c22e5f	313
ed9a5300	314	if (afterc)
	315	edit_group(1, after[LM_LIST], after[LM_TYPE], after[LM_MEMBER]);
	316	if (beforec)
e9f07a3b	317	edit_group(0, before[LM_LIST], before[LM_TYPE], before[LM_MEMBER]);
ed9a5300	318	}
	319
	320
eb63ae5f	321	do_filesys(before, beforec, after, afterc)
	322	char **before;
	323	int beforec;
	324	char **after;
	325	int afterc;
	326	{
	327	char cmd[1024];
	328
	329	if (beforec < FS_CREATE) {
	330	if (afterc < FS_CREATE \|\| atoi(after[FS_CREATE])==0 \|\|
	331	strcmp(after[FS_TYPE], "AFS"))
	332	return;
	333
	334	/* new locker creation */
	335	sprintf(cmd, "%s/perl -I%s %s/afs_create.pl %s %s %s %s %s %s",
	336	BIN_DIR, BIN_DIR, BIN_DIR,
	337	after[FS_NAME], after[FS_L_TYPE], after[FS_MACHINE],
	338	after[FS_PACK], after[FS_OWNER], after[FS_OWNERS]);
	339	run_cmd(cmd);
	340	return;
	341	}
	342
	343	/* What do we do? When do we use FS_CREATE?
	344	*
	345	* TYPE change: AFS->ERR, ERR->AFS: rename/unmount/remount
	346	* LOCKERTYPE change: rename/remount
	347	* PACK change: remount
	348	* LABEL change: rename/remount
	349	* Deletion: rename/unmount
	350	*/
	351	if (afterc < FS_CREATE) {
	352	if (!strcmp(before[FS_TYPE], "AFS"))
	353	critical_alert("incremental",
	354	"Could not delete AFS filesystem %s: Operation not supported",
	355	before[FS_NAME]);
	356	return;
	357	}
	358
	359	if (!strcmp(after[FS_TYPE], "AFS")) {
	360	if (strcmp(before[FS_TYPE], "AFS")) {
	361	critical_alert("incremental",
	362	"Cannot convert %s to an AFS filesystem: Operation not supported",
	363	after[FS_NAME]);
	364	} else {
	365	critical_alert("incremental",
	366	"Cannot change attributes of AFS filesystem %s: Operation not supported",
	367	after[FS_NAME]);
	368	}
	369	return;
	370	}
	371	}
	372
	373
	374	do_quota(before, beforec, after, afterc)
	375	char **before;
	376	int beforec;
	377	char **after;
	378	int afterc;
	379	{
	380	char cmd[1024];
	381
	382	if (afterc < Q_DIRECTORY \|\| strcmp("ANY", after[Q_TYPE]) \|\|
	383	strncmp("/afs/", after[Q_DIRECTORY], 5))
	384	return;
385
386	sprintf(cmd, "%s/perl -I%s %s/afs_quota.pl %s %s",
387	BIN_DIR, BIN_DIR, BIN_DIR,
388	after[Q_DIRECTORY], after[Q_QUOTA]);
389	run_cmd(cmd);
390	return;
391	}
392
393
394	run_cmd(cmd)
395	char *cmd;
396	{
397	int success=0, tries=0;
398
399	check_afs();
400
401	while (success == 0 && tries < 2) {
402	if (tries++)
403	sleep(90);
404	com_err(whoami, 0, "Executing command: %s", cmd);
405	if (system(cmd) == 0)
406	success++;
407	}
408	if (!success)
409	critical_alert("incremental", "failed command: %s", cmd);
410	}
411
412
413	add_user_lists(ac, av, user)
414	int ac;
415	char *av[];
416	char *user;
417	{
418	if (atoi(av[5]))
419	edit_group(1, av[0], "USER", user);
420	}
421
422
ed9a5300	423	get_members(ac, av, group)
	424	int ac;
	425	char *av[];
	426	char *group;
	427	{
	428	int code=0;
	429
	430	if (strcmp(av[0], "LIST")) {
ed9a5300	431	edit_group(1, group, av[0], av[1]);
ed9a5300	432	} else {
cdd40d28	433	code = mr_query("get_end_members_of_list", 1, &av[1],
cdd40d28	434	get_members, group);
ed9a5300	435	if (code)
	436	critical_alert("incremental",
	437	"Couldn't retrieve full membership of %s: %s",
	438	group, error_message(code));
	439	}
	440	return code;
	441	}
	442
	443
	444	edit_group(op, group, type, member)
	445	int op;
	446	char *group;
	447	char *type;
	448	char *member;
	449	{
	450	char *p = 0;
	451	char buf[PR_MAXNAMELEN];
ed9a5300	452	int code;
d1be2e3a	453	static char local_realm[REALM_SZ+1] = "";
ed9a5300	454
60c22e5f	455	/* The following KERBEROS code allows for the use of entities
	456	* user@foreign_cell.
	457	*/
d1be2e3a	458	if (!local_realm[0])
d1be2e3a	459	krb_get_lrealm(local_realm, 1);
ed9a5300	460	if (!strcmp(type, "KERBEROS")) {
ed9a5300	461	p = index(member, '@');
d1be2e3a	462	if (p && !strcasecmp(p+1, local_realm))
60c22e5f	463	*p = 0;
ed9a5300	464	} else if (strcmp(type, "USER"))
ed9a5300	465	return; /* invalid type */
60c22e5f	466
ed9a5300	467	strcpy(buf, "system:");
ed9a5300	468	strcat(buf, group);
eb63ae5f	469	code=pr_try(op ? pr_AddToGroup : pr_RemoveUserFromGroup, member, buf);
ed9a5300	470	if (code) {
	471	if (op==0 && code == PRNOENT) return;
	472	if (op==1 && code == PRIDEXIST) return;
	473	if (strcmp(type, "KERBEROS") \|\| code != PRNOENT) {
60c22e5f	474	critical_alert("incremental",
ed9a5300	475	"Couldn't %s %s %s %s: %s",
	476	op ? "add" : "remove", member,
	477	op ? "to" : "from", buf,
60c22e5f	478	error_message(code));
60c22e5f	479	}
57bc9f26	480	}
fb8809f4	481	}
	482
	483
eb63ae5f	484	long pr_try(fn, a1, a2, a3, a4, a5, a6, a7, a8)
	485	long (*fn)();
	486	char a1, a2, a3, a4, a5, a6, a7, a8;
fb8809f4	487	{
eb63ae5f	488	static int initd=0;
	489	register long code;
	490	register int tries = 0;
	491	#ifdef DEBUG
	492	char fname[64];
	493	#endif
	494
	495	check_afs();
60c22e5f	496
eb63ae5f	497	if (!initd) {
	498	code=pr_Initialize(1, AFSCONF_CLIENTNAME, 0);
	499	if (code) {
	500	critical_alert("incremental", "Couldn't initialize libprot: %s",
	501	error_message(code));
60c22e5f	502	return;
eb63ae5f	503	}
	504	initd = 1;
	505	} else {
	506	sleep(1); /* give ptserver room */
9b9540a1	507	}
9b9540a1	508
eb63ae5f	509	while (code = (*fn)(a1, a2, a3, a4, a5, a6, a7, a8)) {
	510	#ifdef DEBUG
	511	long t;
	512	t = time(0);
	513	if (fn == pr_AddToGroup) strcpy(fname, "pr_AddToGroup");
	514	else if (fn == pr_RemoveUserFromGroup)
	515	strcpy(fname, "pr_RemoveUserFromGroup");
	516	else if (fn == pr_CreateUser) strcpy(fname, "pr_CreateUser");
	517	else if (fn == pr_CreateGroup) strcpy(fname, "pr_CreateGroup");
	518	else if (fn == pr_DeleteByID) strcpy(fname, "pr_DeleteByID");
	519	else if (fn == pr_ChangeEntry) strcpy(fname, "pr_ChangeEntry");
	520	else if (fn == pr_SetFieldsEntry) strcpy(fname, "pr_SetFieldsEntry");
	521	else if (fn == pr_AddToGroup) strcpy(fname, "pr_AddToGroup");
	522	else {
	523	sprintf(fname, "pr_??? (0x%08x)", (long)fn);
9b9540a1	524	}
eb63ae5f	525
	526	com_err(whoami, code, "%s failed (try %d @%u)", fname, tries+1, t);
	527	#endif
	528	if (++tries > 2)
	529	return code;
	530	if (code == UNOQUORUM) { sleep(90); continue; }
	531	else { sleep(15); continue; }
9b9540a1	532	}
eb63ae5f	533	return code;
fb8809f4	534	}
	535
	536
eb63ae5f	537	check_afs()
fb8809f4	538	{
eb63ae5f	539	int i;
	540
	541	for (i=0; file_exists(STOP_FILE); i++) {
	542	if (i > 30) {
	543	critical_alert("incremental",
	544	"AFS incremental failed (%s exists): %s",
	545	STOP_FILE, tbl_buf);
	546	exit(1);
	547	}
	548	sleep(60);
	549	}
fb8809f4	550	}