int argc;
char **argv;
{
- char buffer[256];
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)
else
db = "sms";
#ifsql INGRES
- EXEC SQL CONNECT db;
+ EXEC SQL CONNECT :db;
#endsql
#ifsql INFORMIX
EXEC SQL DATABASE db;
while (buffer[0]) {
for (i = 0; tbl = tables[i]; i++) {
#ifsql INGRES
-/* EXEC SQL define permit all on table to user; */
+ 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",
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);
}
}
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);
}
}
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);
}
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);
}
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);
}
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 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);
}
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
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);
}
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);
}
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
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
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);
}
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);
}
}
VALUES (:value, :type, :trans);
}
+ printf("\nNow committing work... ");
+#ifsql INGRES
+ EXEC SQL COMMIT WORK;
+#endsql
+
printf("done.\n");
exit(0);
}
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() {}