[moira.git] / db / newmoira.dc

/* $Header$
 *
 * Creates a new sms database
 *
 * 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 "../server/query.h"
EXEC SQL INCLUDE sqlca;

extern char *tables[];
extern struct query Queries2[];
extern int QueryCount2;

char *values[] = { "users_id", "mach_id", "clu_id", "list_id",
		   "nfsphys_id", "filsys_id", "strings_id", "dcm_enable",
		   0 };

struct alias { char *name;
	       char *type;
	       char *trans;
	   } aliases[] = {
		   {"ace_type", "TYPE", "KERBEROS"},
		   {"ace_type", "TYPE", "LIST"},
		   {"ace_type", "TYPE", "NONE"},
		   {"ace_type", "TYPE", "USER"},
		   {"alias", "TYPE", "FILESYS"},
		   {"alias", "TYPE", "PALLADIUM"},
		   {"alias", "TYPE", "TYPE"},
		   {"alias", "TYPE", "SERVICE"},
		   {"alias", "TYPE", "TYPEDATA"},
		   {"alias", "TYPE", "VALUE"},
		   {"boolean", "TYPE", "FALSE"},
		   {"boolean", "TYPE", "DONTCARE"},
		   {"boolean", "TYPE", "TRUE"},
		   {"class", "TYPE", "STAFF"},
		   {"class", "TYPE", "1990"},
		   {"class", "TYPE", "1991"},
		   {"class", "TYPE", "1992"},
		   {"class", "TYPE", "1993"},
		   {"class", "TYPE", "FACULTY"},
		   {"class", "TYPE", "G"},
		   {"class", "TYPE", "GUEST"},
		   {"class", "TYPE", "TEST"},
		   {"class", "TYPE", "SYSTEM"},
		   {"filesys", "TYPE", "ERR"},
		   {"filesys", "TYPE", "FSGROUP"},
		   {"filesys", "TYPE", "NFS"},
		   {"filesys", "TYPE", "RVD"},
		   {"filesys", "TYPE", "AFS"},
		   {"fs_access_AFS", "TYPE", "w"},
		   {"fs_access_AFS", "TYPE", "n"},
		   {"fs_access_NFS", "TYPE", "r"},
		   {"fs_access_NFS", "TYPE", "n"},
		   {"fs_access_NFS", "TYPE", "w"},
		   {"fs_access_RVD", "TYPE", "r"},
		   {"fs_access_RVD", "TYPE", "x"},
		   {"gaus", "TYPE", "LIST"},
		   {"gaus", "TYPE", "USER"},
		   {"gaus", "TYPE", "RLIST"},
		   {"gaus", "TYPE", "RUSER"},
		   {"lockertype", "TYPE", "COURSE"},
		   {"lockertype", "TYPE", "HOMEDIR"},
		   {"lockertype", "TYPE", "OTHER"},
		   {"lockertype", "TYPE", "PROJECT"},
		   {"lockertype", "TYPE", "SYSTEM"},
		   {"mac_type", "TYPE", "MAC"},
		   {"mac_type", "TYPE", "NEXT"},
		   {"mac_type", "TYPE", "PMAX"},
		   {"mac_type", "TYPE", "RT"},
		   {"mac_type", "TYPE", "VAX"},
		   {"member", "TYPE", "KERBEROS"},
		   {"member", "TYPE", "LIST"},
		   {"member", "TYPE", "STRING"},
		   {"member", "TYPE", "USER"},
		   {"pobox", "TYPE", "SMTP"},
		   {"pobox", "TYPE", "NONE"},
		   {"pobox", "TYPE", "POP"},
		   {"quota_type", "TYPE", "USER"},
		   {"quota_type", "TYPE", "GROUP"},
		   {"quota_type", "TYPE", "ANY"},
		   {"rmember", "TYPE", "LIST"},
		   {"rmember", "TYPE", "STRING"},
		   {"rmember", "TYPE", "USER"},
		   {"rmember", "TYPE", "KERBEROS"},
		   {"rmember", "TYPE", "RLIST"},
		   {"rmember", "TYPE", "RSTRING"},
		   {"rmember", "TYPE", "RUSER"},
		   {"rmember", "TYPE", "RKERBEROS"},
		   {"service", "TYPE", "REPLICAT"},
		   {"service", "TYPE", "REPLICATED"},
		   {"service", "TYPE", "UNIQUE"},
		   {"slabel", "TYPE", "LPR"},
		   {"slabel", "TYPE", "KERBEROS"},
		   {"slabel", "TYPE", "USRLIB"},
		   {"slabel", "TYPE", "SYSLIB"},
		   {"slabel", "TYPE", "ZEPHYR"},
		   {"ANY", "TYPEDATA", "none"},
		   {"KERBEROS", "TYPEDATA", "string"},
		   {"GROUP", "TYPEDATA", "list"},
		   {"LIST", "TYPEDATA", "list"},
		   {"NONE", "TYPEDATA", "none"},
		   {"POP", "TYPEDATA", "machine"},
		   {"RLIST", "TYPEDATA", "list"},
		   {"RSTRING", "TYPEDATA", "string"},
		   {"RUSER", "TYPEDATA", "user"},
		   {"SMTP", "TYPEDATA", "string"},
		   {"STRING", "TYPEDATA", "string"},
		   {"USER", "TYPEDATA", "user"},	
		   0 };


int ingres_errno = 0;

main(argc, argv)
int argc;
char **argv;
{
    EXEC SQL BEGIN DECLARE SECTION;
    char buffer[256];
    char *db, *tbl, *value, *user, *query, *trans, *type;
    int i, list;
    char stmt_buf[256];
    EXEC SQL END DECLARE SECTION;

    if (argc == 2)
      db = argv[1];
    else
      db = "sms";
#ifsql INGRES
    EXEC SQL CONNECT :db;
#endsql
#ifsql INFORMIX
    EXEC SQL DATABASE db;
#endsql
    EXEC SQL WHENEVER SQLERROR CALL ingerr;

    strcpy(buffer, "root");
    user = buffer;
    while (buffer[0]) {
	for (i = 0; tbl = tables[i]; i++) {
#ifsql INGRES
	    sprintf(stmt_buf,"GRANT ALL PRIVILEGES ON TABLE %s TO %s",tbl,user);
	    EXEC SQL EXECUTE IMMEDIATE :stmt_buf;
#endsql
	    if (ingres_errno) {
		printf("Unable to give %s permission to access table %s\n",
		       user, tbl);
		exit(1);
	    }
	}
	printf("Enter the name of another user to be given direct access to\n");
	printf("the database, or [RETURN] if none: ");
	fflush(stdout);
	gets(user);
    }

    for (i = 0; tbl = tables[i]; i++) {
	EXEC SQL INSERT INTO tblstats
	  (table_name, modtime, appends, updates, deletes)
	  VALUES (:tbl, 'now', 0, 0, 0);
	if (ingres_errno) {
	    printf("Unable to initialize tblstats for %s\n", tbl);
	    EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	    printf("SQL error: %s\n",buffer);
	    exit(1);
	}
    }

    for (i = 0; value = values[i]; i++) {
	EXEC SQL INSERT INTO numvalues (name, value)
	  VALUES (:value, 1);
	if (ingres_errno) {
	    printf("Unable to install initial value of %s\n", value);
	    EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	    printf("SQL error: %s\n",buffer);
	    exit(1);
	}
    }

    printf("What is the starting UID to assign: ");
    fflush(stdout);
    gets(buffer);
    i = atoi(buffer);
    EXEC SQL INSERT INTO numvalues (name, value)
      VALUES ('uid', :i);
    if (ingres_errno) {
	printf("Unable to install value for uid\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    printf("What is the starting GID to assign: ");
    fflush(stdout);
    gets(buffer);
    i = atoi(buffer);
    EXEC SQL INSERT INTO numvalues (name, value)
      VALUES ('gid', :i);
    if (ingres_errno) {
	printf("Unable to install value for gid\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    printf("What is the default NFS quota to assign: ");
    fflush(stdout);
    gets(buffer);
    i = atoi(buffer);
    EXEC SQL INSERT INTO numvalues (name, value)
      VALUES ('def_quota', :i);
    if (ingres_errno) {
	printf("Unable to install value for def_quota\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);	
	exit(1);
    }

    /* place holder records */
    EXEC SQL INSERT INTO users (login, potype, users_id)
      VALUES ('[nobody]', 'NONE', 0);
    if (ingres_errno) {
	printf("Unable to install 0 user\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO machine (name, type)
      VALUES ('[NONE]', 'NONE');
    if (ingres_errno) {
	printf("Unable to install 0 machine\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO subnet (name)
      VALUES ('NONE');
    if (ingres_errno) {
	printf("Unable to install 0 subnet\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO cluster (name)
      VALUES ('[unassigned]');
    if (ingres_errno) {
	printf("Unable to install 0 cluster\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO list (name, acl_type)
      VALUES ('[none]', 'NONE');
    if (ingres_errno) {
	printf("Unable to install 0 list\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO filesys (label, type)
      VALUES ('[none]', 'NONE');
    if (ingres_errno) {
	printf("Unable to install 0 filesys\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO nfsphys (device)
      VALUES ('/dev/null');
    if (ingres_errno) {
	printf("Unable to install 0 nfsphys\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    /* magic for ALL_USERS */
    EXEC SQL INSERT INTO users (login, users_id, potype)
      VALUES ('default', 1, 'NONE');
    if (ingres_errno) {
	printf("Unable to install default user\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO list (name, list_id, acl_type)
      VALUES ('default', 1, 'NONE');
    if (ingres_errno) {
	printf("Unable to install default list\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO imembers
      (list_id, member_type, member_id, ref_count, direct)
      VALUES (1, 'USER', 1, 1, 1);
    if (ingres_errno) {
	printf("Unable to install default user on default list\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    /* Privileged users */
    EXEC SQL INSERT INTO users (login, users_id, potype)
      VALUES ('root', 2, 'NONE');
    if (ingres_errno) {
	printf("Unable to install root user\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO list (name, list_id, acl_type, acl_id)
      VALUES ('dbadmin', 2, 'LIST', 2);
    if (ingres_errno) {
	printf("Unable to install default dbadmin list\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    printf("What is the name of a privileged user: ");
    fflush(stdout);
    gets(buffer);
    user = buffer;
    EXEC SQL INSERT INTO users (login, users_id, potype)
      VALUES (:user, 3, 'NONE');
    if (ingres_errno) {
	printf("Unable to install user %s\n", buffer);
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO imembers
      (list_id, member_type, member_id, ref_count, direct)
      VALUES (2, 'USER', 2, 1, 1);
    if (ingres_errno) {
	printf("Unable to put user root on list dbadmin\n");
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }
    EXEC SQL INSERT INTO imembers
      (list_id, member_type, member_id, ref_count, direct)
      VALUES (2, 'USER', 3, 1, 1);
    if (ingres_errno) {
	printf("Unable to put user %s on list dbadmin\n", buffer);
	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	printf("SQL error: %s\n",buffer);
	exit(1);
    }

    /* And the capacls */
    for (i = 0; i < QueryCount2; i++) {
	query = Queries2[i].name;
	value = Queries2[i].shortname;
	list = 2;
	if (!strcmp(value, "gali") || !strcmp(value, "glig") ||
	    !strcmp(value, "glim") || !strcmp(value, "gval"))
	  list = 1;
	EXEC SQL INSERT INTO capacls (capability, tag, list_id)
	  VALUES (:query, :value, :list);
	if (ingres_errno) {
	    printf("Unable to install query ACL for %s (%s)\n", query, value);
	    EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	    printf("SQL error: %s\n",buffer);
	    exit(1);
	}
    }
    EXEC SQL INSERT INTO capacls (capability, tag, list_id)
      VALUES ('trigger_dcm', 'tdcm', 2);

    /* and the aliases */
    for (i = 0; aliases[i].name ; i++) {
	value = aliases[i].name;
	type = aliases[i].type;
	trans = aliases[i].trans;
	EXEC SQL INSERT INTO alias (name, type, trans)
	  VALUES (:value, :type, :trans);
    }

    printf("\nNow committing work... ");
#ifsql INGRES
    EXEC SQL COMMIT WORK;
#endsql

    printf("done.\n");
    exit(0);
}


/*
 * 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.
 */

int ingerr()
{
    ingres_errno = -sqlca.sqlcode;
    return ingres_errno;
}


/* dummy routines */
int access_user() {}
int access_login() {}
int access_list() {}
int access_visible_list() {}
int access_vis_list_by_name() {}
int access_member() {}
int access_qgli() {}
int access_service() {}
int access_filesys() {}
int setup_ausr() {}
int setup_dusr() {}
int setup_spop() {}
int setup_dpob() {}
int setup_dmac() {}
int setup_dclu() {}
int setup_alis() {}
int setup_dlis() {}
int setup_dsin() {}
int setup_dshi() {}
int setup_afil() {}
int setup_ufil() {}
int setup_dfil() {}
int setup_dnfp() {}
int setup_dqot() {}
int setup_sshi() {}
int setup_akum() {}
int followup_fix_modby() {}
int followup_ausr() {}
int followup_gpob() {}
int followup_glin() {}
int followup_aqot() {}
int followup_gzcl() {}
int followup_gsha() {}
int followup_gqot() {}
int set_modtime() {}
int set_modtime_by_id() {}
int set_finger_modtime() {}
int set_pobox_modtime() {}
int set_uppercase_modtime() {}
int set_mach_modtime_by_id() {}
int set_cluster_modtime_by_id() {}
int set_serverhost_modtime() {}
int set_nfsphys_modtime() {}
int set_filesys_modtime() {}
int set_zephyr_modtime() {}
int set_pobox() {}
int get_list_info() {}
int add_member_to_list() {}
int delete_member_from_list() {}
int get_ace_use() {}
int qualified_get_lists() {}
int get_members_of_list() {}
int qualified_get_server() {}
int qualified_get_serverhost() {}
int trigger_dcm() {}
int count_members_of_list() {}
int get_lists_of_member() {}
int register_user() {}
int followup_gpce() {}
int prefetch_value() {}
int prefetch_filesys() {}
int followup_dqot() {}
int followup_guax() {}
int followup_uuac() {}
int get_end_members_of_list() {}
int _sdl_followup() {}
int access_host() {}
int access_ahal() {}
int setup_dsnt() {}
int setup_ahst() {}
int setup_ahal() {}
int followup_gsnt() {}
int followup_ghst() {}
int access_snt() {}
int get_hostalias() {}
Commit	Line	Data
21e8ec7e	1	/* $Header$
	2	*
	3	* Creates a new sms database
	4	*
	5	* Copyright 1988 by the Massachusetts Institute of Technology.
	6	* For copying and distribution information, please see the file
	7	* <mit-copyright.h>.
	8	*/
	9
	10	#include <mit-copyright.h>
	11	#include <stdio.h>
	12	#include "../server/query.h"
	13	EXEC SQL INCLUDE sqlca;
	14
	15	extern char *tables[];
	16	extern struct query Queries2[];
	17	extern int QueryCount2;
	18
	19	char *values[] = { "users_id", "mach_id", "clu_id", "list_id",
	20	"nfsphys_id", "filsys_id", "strings_id", "dcm_enable",
	21	0 };
	22
	23	struct alias { char *name;
	24	char *type;
	25	char *trans;
	26	} aliases[] = {
	27	{"ace_type", "TYPE", "KERBEROS"},
	28	{"ace_type", "TYPE", "LIST"},
	29	{"ace_type", "TYPE", "NONE"},
	30	{"ace_type", "TYPE", "USER"},
	31	{"alias", "TYPE", "FILESYS"},
	32	{"alias", "TYPE", "PALLADIUM"},
	33	{"alias", "TYPE", "TYPE"},
	34	{"alias", "TYPE", "SERVICE"},
	35	{"alias", "TYPE", "TYPEDATA"},
	36	{"alias", "TYPE", "VALUE"},
	37	{"boolean", "TYPE", "FALSE"},
	38	{"boolean", "TYPE", "DONTCARE"},
	39	{"boolean", "TYPE", "TRUE"},
	40	{"class", "TYPE", "STAFF"},
	41	{"class", "TYPE", "1990"},
	42	{"class", "TYPE", "1991"},
	43	{"class", "TYPE", "1992"},
	44	{"class", "TYPE", "1993"},
	45	{"class", "TYPE", "FACULTY"},
	46	{"class", "TYPE", "G"},
	47	{"class", "TYPE", "GUEST"},
	48	{"class", "TYPE", "TEST"},
	49	{"class", "TYPE", "SYSTEM"},
	50	{"filesys", "TYPE", "ERR"},
	51	{"filesys", "TYPE", "FSGROUP"},
	52	{"filesys", "TYPE", "NFS"},
	53	{"filesys", "TYPE", "RVD"},
	54	{"filesys", "TYPE", "AFS"},
	55	{"fs_access_AFS", "TYPE", "w"},
	56	{"fs_access_AFS", "TYPE", "n"},
	57	{"fs_access_NFS", "TYPE", "r"},
	58	{"fs_access_NFS", "TYPE", "n"},
	59	{"fs_access_NFS", "TYPE", "w"},
	60	{"fs_access_RVD", "TYPE", "r"},
	61	{"fs_access_RVD", "TYPE", "x"},
	62	{"gaus", "TYPE", "LIST"},
	63	{"gaus", "TYPE", "USER"},
	64	{"gaus", "TYPE", "RLIST"},
65	{"gaus", "TYPE", "RUSER"},
66	{"lockertype", "TYPE", "COURSE"},
67	{"lockertype", "TYPE", "HOMEDIR"},
68	{"lockertype", "TYPE", "OTHER"},
69	{"lockertype", "TYPE", "PROJECT"},
70	{"lockertype", "TYPE", "SYSTEM"},
71	{"mac_type", "TYPE", "MAC"},
72	{"mac_type", "TYPE", "NEXT"},
73	{"mac_type", "TYPE", "PMAX"},
74	{"mac_type", "TYPE", "RT"},
75	{"mac_type", "TYPE", "VAX"},
76	{"member", "TYPE", "KERBEROS"},
77	{"member", "TYPE", "LIST"},
78	{"member", "TYPE", "STRING"},
79	{"member", "TYPE", "USER"},
80	{"pobox", "TYPE", "SMTP"},
81	{"pobox", "TYPE", "NONE"},
82	{"pobox", "TYPE", "POP"},
83	{"quota_type", "TYPE", "USER"},
84	{"quota_type", "TYPE", "GROUP"},
85	{"quota_type", "TYPE", "ANY"},
86	{"rmember", "TYPE", "LIST"},
87	{"rmember", "TYPE", "STRING"},
88	{"rmember", "TYPE", "USER"},
89	{"rmember", "TYPE", "KERBEROS"},
90	{"rmember", "TYPE", "RLIST"},
91	{"rmember", "TYPE", "RSTRING"},
92	{"rmember", "TYPE", "RUSER"},
93	{"rmember", "TYPE", "RKERBEROS"},
94	{"service", "TYPE", "REPLICAT"},
95	{"service", "TYPE", "REPLICATED"},
96	{"service", "TYPE", "UNIQUE"},
97	{"slabel", "TYPE", "LPR"},
98	{"slabel", "TYPE", "KERBEROS"},
99	{"slabel", "TYPE", "USRLIB"},
100	{"slabel", "TYPE", "SYSLIB"},
101	{"slabel", "TYPE", "ZEPHYR"},
102	{"ANY", "TYPEDATA", "none"},
103	{"KERBEROS", "TYPEDATA", "string"},
104	{"GROUP", "TYPEDATA", "list"},
105	{"LIST", "TYPEDATA", "list"},
106	{"NONE", "TYPEDATA", "none"},
107	{"POP", "TYPEDATA", "machine"},
108	{"RLIST", "TYPEDATA", "list"},
109	{"RSTRING", "TYPEDATA", "string"},
110	{"RUSER", "TYPEDATA", "user"},
111	{"SMTP", "TYPEDATA", "string"},
112	{"STRING", "TYPEDATA", "string"},
113	{"USER", "TYPEDATA", "user"},
114	0 };
115
116
117	int ingres_errno = 0;
118
119	main(argc, argv)
120	int argc;
121	char **argv;
122	{
21e8ec7e	123	EXEC SQL BEGIN DECLARE SECTION;
bbc27b1e	124	char buffer[256];
21e8ec7e	125	char db, tbl, value, user, query, trans, *type;
21e8ec7e	126	int i, list;
bce54968	127	char stmt_buf[256];
21e8ec7e	128	EXEC SQL END DECLARE SECTION;
	129
	130	if (argc == 2)
	131	db = argv[1];
	132	else
	133	db = "sms";
	134	#ifsql INGRES
bce54968	135	EXEC SQL CONNECT :db;
21e8ec7e	136	#endsql
	137	#ifsql INFORMIX
	138	EXEC SQL DATABASE db;
	139	#endsql
	140	EXEC SQL WHENEVER SQLERROR CALL ingerr;
	141
	142	strcpy(buffer, "root");
	143	user = buffer;
	144	while (buffer[0]) {
	145	for (i = 0; tbl = tables[i]; i++) {
	146	#ifsql INGRES
bce54968	147	sprintf(stmt_buf,"GRANT ALL PRIVILEGES ON TABLE %s TO %s",tbl,user);
bce54968	148	EXEC SQL EXECUTE IMMEDIATE :stmt_buf;
21e8ec7e	149	#endsql
	150	if (ingres_errno) {
	151	printf("Unable to give %s permission to access table %s\n",
	152	user, tbl);
	153	exit(1);
	154	}
	155	}
	156	printf("Enter the name of another user to be given direct access to\n");
	157	printf("the database, or [RETURN] if none: ");
	158	fflush(stdout);
	159	gets(user);
	160	}
	161
	162	for (i = 0; tbl = tables[i]; i++) {
	163	EXEC SQL INSERT INTO tblstats
	164	(table_name, modtime, appends, updates, deletes)
529ecfa9	165	VALUES (:tbl, 'now', 0, 0, 0);
21e8ec7e	166	if (ingres_errno) {
21e8ec7e	167	printf("Unable to initialize tblstats for %s\n", tbl);
bbc27b1e	168	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bbc27b1e	169	printf("SQL error: %s\n",buffer);
21e8ec7e	170	exit(1);
	171	}
	172	}
	173
	174	for (i = 0; value = values[i]; i++) {
	175	EXEC SQL INSERT INTO numvalues (name, value)
	176	VALUES (:value, 1);
	177	if (ingres_errno) {
	178	printf("Unable to install initial value of %s\n", value);
bce54968	179	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	180	printf("SQL error: %s\n",buffer);
21e8ec7e	181	exit(1);
	182	}
	183	}
	184
	185	printf("What is the starting UID to assign: ");
	186	fflush(stdout);
	187	gets(buffer);
	188	i = atoi(buffer);
	189	EXEC SQL INSERT INTO numvalues (name, value)
529ecfa9	190	VALUES ('uid', :i);
21e8ec7e	191	if (ingres_errno) {
21e8ec7e	192	printf("Unable to install value for uid\n");
bce54968	193	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	194	printf("SQL error: %s\n",buffer);
21e8ec7e	195	exit(1);
	196	}
	197
	198	printf("What is the starting GID to assign: ");
	199	fflush(stdout);
	200	gets(buffer);
	201	i = atoi(buffer);
	202	EXEC SQL INSERT INTO numvalues (name, value)
529ecfa9	203	VALUES ('gid', :i);
21e8ec7e	204	if (ingres_errno) {
21e8ec7e	205	printf("Unable to install value for gid\n");
bce54968	206	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	207	printf("SQL error: %s\n",buffer);
21e8ec7e	208	exit(1);
	209	}
	210
	211	printf("What is the default NFS quota to assign: ");
	212	fflush(stdout);
	213	gets(buffer);
	214	i = atoi(buffer);
	215	EXEC SQL INSERT INTO numvalues (name, value)
529ecfa9	216	VALUES ('def_quota', :i);
21e8ec7e	217	if (ingres_errno) {
21e8ec7e	218	printf("Unable to install value for def_quota\n");
bce54968	219	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	220	printf("SQL error: %s\n",buffer);
21e8ec7e	221	exit(1);
	222	}
	223
	224	/* place holder records */
	225	EXEC SQL INSERT INTO users (login, potype, users_id)
529ecfa9	226	VALUES ('[nobody]', 'NONE', 0);
21e8ec7e	227	if (ingres_errno) {
21e8ec7e	228	printf("Unable to install 0 user\n");
bce54968	229	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	230	printf("SQL error: %s\n",buffer);
21e8ec7e	231	exit(1);
	232	}
	233	EXEC SQL INSERT INTO machine (name, type)
529ecfa9	234	VALUES ('[NONE]', 'NONE');
21e8ec7e	235	if (ingres_errno) {
21e8ec7e	236	printf("Unable to install 0 machine\n");
bce54968	237	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	238	printf("SQL error: %s\n",buffer);
21e8ec7e	239	exit(1);
21e8ec7e	240	}
21313710	241	EXEC SQL INSERT INTO subnet (name)
	242	VALUES ('NONE');
	243	if (ingres_errno) {
	244	printf("Unable to install 0 subnet\n");
	245	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
	246	printf("SQL error: %s\n",buffer);
	247	exit(1);
	248	}
21e8ec7e	249	EXEC SQL INSERT INTO cluster (name)
529ecfa9	250	VALUES ('[unassigned]');
21e8ec7e	251	if (ingres_errno) {
21e8ec7e	252	printf("Unable to install 0 cluster\n");
bce54968	253	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	254	printf("SQL error: %s\n",buffer);
21e8ec7e	255	exit(1);
	256	}
	257	EXEC SQL INSERT INTO list (name, acl_type)
529ecfa9	258	VALUES ('[none]', 'NONE');
21e8ec7e	259	if (ingres_errno) {
21e8ec7e	260	printf("Unable to install 0 list\n");
bce54968	261	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	262	printf("SQL error: %s\n",buffer);
21e8ec7e	263	exit(1);
	264	}
	265	EXEC SQL INSERT INTO filesys (label, type)
529ecfa9	266	VALUES ('[none]', 'NONE');
21e8ec7e	267	if (ingres_errno) {
21e8ec7e	268	printf("Unable to install 0 filesys\n");
bce54968	269	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	270	printf("SQL error: %s\n",buffer);
21e8ec7e	271	exit(1);
	272	}
	273	EXEC SQL INSERT INTO nfsphys (device)
529ecfa9	274	VALUES ('/dev/null');
21e8ec7e	275	if (ingres_errno) {
21e8ec7e	276	printf("Unable to install 0 nfsphys\n");
bce54968	277	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	278	printf("SQL error: %s\n",buffer);
21e8ec7e	279	exit(1);
	280	}
	281
	282	/* magic for ALL_USERS */
	283	EXEC SQL INSERT INTO users (login, users_id, potype)
529ecfa9	284	VALUES ('default', 1, 'NONE');
21e8ec7e	285	if (ingres_errno) {
21e8ec7e	286	printf("Unable to install default user\n");
bce54968	287	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	288	printf("SQL error: %s\n",buffer);
21e8ec7e	289	exit(1);
	290	}
	291	EXEC SQL INSERT INTO list (name, list_id, acl_type)
529ecfa9	292	VALUES ('default', 1, 'NONE');
21e8ec7e	293	if (ingres_errno) {
21e8ec7e	294	printf("Unable to install default list\n");
bce54968	295	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	296	printf("SQL error: %s\n",buffer);
21e8ec7e	297	exit(1);
	298	}
	299	EXEC SQL INSERT INTO imembers
	300	(list_id, member_type, member_id, ref_count, direct)
529ecfa9	301	VALUES (1, 'USER', 1, 1, 1);
21e8ec7e	302	if (ingres_errno) {
21e8ec7e	303	printf("Unable to install default user on default list\n");
bce54968	304	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	305	printf("SQL error: %s\n",buffer);
21e8ec7e	306	exit(1);
	307	}
	308
	309	/* Privileged users */
	310	EXEC SQL INSERT INTO users (login, users_id, potype)
529ecfa9	311	VALUES ('root', 2, 'NONE');
21e8ec7e	312	if (ingres_errno) {
21e8ec7e	313	printf("Unable to install root user\n");
bce54968	314	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	315	printf("SQL error: %s\n",buffer);
21e8ec7e	316	exit(1);
	317	}
	318	EXEC SQL INSERT INTO list (name, list_id, acl_type, acl_id)
529ecfa9	319	VALUES ('dbadmin', 2, 'LIST', 2);
21e8ec7e	320	if (ingres_errno) {
21e8ec7e	321	printf("Unable to install default dbadmin list\n");
bce54968	322	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	323	printf("SQL error: %s\n",buffer);
21e8ec7e	324	exit(1);
	325	}
	326
	327	printf("What is the name of a privileged user: ");
	328	fflush(stdout);
	329	gets(buffer);
	330	user = buffer;
	331	EXEC SQL INSERT INTO users (login, users_id, potype)
529ecfa9	332	VALUES (:user, 3, 'NONE');
21e8ec7e	333	if (ingres_errno) {
21e8ec7e	334	printf("Unable to install user %s\n", buffer);
bce54968	335	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	336	printf("SQL error: %s\n",buffer);
21e8ec7e	337	exit(1);
	338	}
	339	EXEC SQL INSERT INTO imembers
	340	(list_id, member_type, member_id, ref_count, direct)
529ecfa9	341	VALUES (2, 'USER', 2, 1, 1);
21e8ec7e	342	if (ingres_errno) {
21e8ec7e	343	printf("Unable to put user root on list dbadmin\n");
bce54968	344	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	345	printf("SQL error: %s\n",buffer);
21e8ec7e	346	exit(1);
	347	}
	348	EXEC SQL INSERT INTO imembers
	349	(list_id, member_type, member_id, ref_count, direct)
529ecfa9	350	VALUES (2, 'USER', 3, 1, 1);
21e8ec7e	351	if (ingres_errno) {
21e8ec7e	352	printf("Unable to put user %s on list dbadmin\n", buffer);
bce54968	353	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	354	printf("SQL error: %s\n",buffer);
21e8ec7e	355	exit(1);
	356	}
	357
	358	/* And the capacls */
	359	for (i = 0; i < QueryCount2; i++) {
	360	query = Queries2[i].name;
	361	value = Queries2[i].shortname;
	362	list = 2;
	363	if (!strcmp(value, "gali") \|\| !strcmp(value, "glig") \|\|
	364	!strcmp(value, "glim") \|\| !strcmp(value, "gval"))
	365	list = 1;
	366	EXEC SQL INSERT INTO capacls (capability, tag, list_id)
	367	VALUES (:query, :value, :list);
	368	if (ingres_errno) {
	369	printf("Unable to install query ACL for %s (%s)\n", query, value);
bce54968	370	EXEC SQL INQUIRE_SQL (:buffer = ERRORTEXT);
bce54968	371	printf("SQL error: %s\n",buffer);
21e8ec7e	372	exit(1);
	373	}
	374	}
	375	EXEC SQL INSERT INTO capacls (capability, tag, list_id)
529ecfa9	376	VALUES ('trigger_dcm', 'tdcm', 2);
21e8ec7e	377
	378	/* and the aliases */
	379	for (i = 0; aliases[i].name ; i++) {
	380	value = aliases[i].name;
	381	type = aliases[i].type;
	382	trans = aliases[i].trans;
	383	EXEC SQL INSERT INTO alias (name, type, trans)
	384	VALUES (:value, :type, :trans);
	385	}
	386
bce54968	387	printf("\nNow committing work... ");
	388	#ifsql INGRES
	389	EXEC SQL COMMIT WORK;
	390	#endsql
	391
21e8ec7e	392	printf("done.\n");
	393	exit(0);
	394	}
	395
	396
	397	/*
	398	* ingerr: (supposedly) called when Ingres indicates an error.
	399	* I have not yet been able to get this to work to intercept a
	400	* database open error.
	401	*/
	402
529ecfa9	403	int ingerr()
21e8ec7e	404	{
529ecfa9	405	ingres_errno = -sqlca.sqlcode;
529ecfa9	406	return ingres_errno;
21e8ec7e	407	}
	408
	409
	410	/* dummy routines */
	411	int access_user() {}
	412	int access_login() {}
	413	int access_list() {}
	414	int access_visible_list() {}
	415	int access_vis_list_by_name() {}
	416	int access_member() {}
	417	int access_qgli() {}
	418	int access_service() {}
	419	int access_filesys() {}
	420	int setup_ausr() {}
	421	int setup_dusr() {}
	422	int setup_spop() {}
	423	int setup_dpob() {}
	424	int setup_dmac() {}
	425	int setup_dclu() {}
	426	int setup_alis() {}
	427	int setup_dlis() {}
	428	int setup_dsin() {}
	429	int setup_dshi() {}
	430	int setup_afil() {}
	431	int setup_ufil() {}
	432	int setup_dfil() {}
	433	int setup_dnfp() {}
	434	int setup_dqot() {}
	435	int setup_sshi() {}
	436	int setup_akum() {}
	437	int followup_fix_modby() {}
	438	int followup_ausr() {}
	439	int followup_gpob() {}
	440	int followup_glin() {}
	441	int followup_aqot() {}
	442	int followup_gzcl() {}
	443	int followup_gsha() {}
	444	int followup_gqot() {}
	445	int set_modtime() {}
	446	int set_modtime_by_id() {}
	447	int set_finger_modtime() {}
	448	int set_pobox_modtime() {}
	449	int set_uppercase_modtime() {}
	450	int set_mach_modtime_by_id() {}
	451	int set_cluster_modtime_by_id() {}
	452	int set_serverhost_modtime() {}
	453	int set_nfsphys_modtime() {}
	454	int set_filesys_modtime() {}
	455	int set_zephyr_modtime() {}
	456	int set_pobox() {}
	457	int get_list_info() {}
	458	int add_member_to_list() {}
	459	int delete_member_from_list() {}
	460	int get_ace_use() {}
	461	int qualified_get_lists() {}
	462	int get_members_of_list() {}
	463	int qualified_get_server() {}
	464	int qualified_get_serverhost() {}
	465	int trigger_dcm() {}
	466	int count_members_of_list() {}
	467	int get_lists_of_member() {}
	468	int register_user() {}
	469	int followup_gpce() {}
bce54968	470	int prefetch_value() {}
	471	int prefetch_filesys() {}
	472	int followup_dqot() {}
	473	int followup_guax() {}
	474	int followup_uuac() {}
	475	int get_end_members_of_list() {}
6f4a799e	476	int _sdl_followup() {}
6846079d	477	int access_host() {}
	478	int access_ahal() {}
	479	int setup_dsnt() {}
	480	int setup_ahst() {}
	481	int setup_ahal() {}
	482	int followup_gsnt() {}
	483	int followup_ghst() {}
0e63ee79	484	int access_snt() {}
572a1ae7	485	int get_hostalias() {}