sprintf(nfs_dir, "%s/nfs", DCM_DIR);
#ifsql INGRES
- EXEC SQL CONNECT sms;
+ EXEC SQL CONNECT moira;
#endsql
#ifsql INFORMIX
- EXEC SQL DATABASE sms;
+ EXEC SQL DATABASE moira;
#endsql
changed = do_nfs();
machs = sq_create();
lists = sq_create();
+ /* The following is declarative, not executed,
+ * and so is dependent on where it is in the file,
+ * not in the order of execution of statements.
+ */
EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
EXEC SQL DECLARE s_cursor CURSOR FOR
SELECT m.name, s.value3
fprintf(fd, "%s\n", u);
}
EXEC SQL CLOSE m_cursor;
- if (fclose(fd)) {
+ if (fclose(fd) == EOF) {
fprintf(stderr, "error closing %s\n", file);
exit(MR_CCONFIG);
}
EXEC SQL DECLARE l_cursor CURSOR FOR
SELECT gid, list_id
FROM list
- WHERE grp <> 0 AND active != 0;
+ WHERE grouplist != 0 AND active != 0;
EXEC SQL OPEN l_cursor;
while (1) {
EXEC SQL FETCH l_cursor INTO :gid, :lid;
EXEC SQL CLOSE q_cursor;
if (quotasum)
fprintf(fd, "%d %d\n", prevuid, quotasum);
- if (fd != stdin && fclose(fd)) {
+ if (fd != stdin && fclose(fd) == EOF) {
fprintf(stderr, "error closing %s", file);
exit(MR_CCONFIG);
}
EXEC SQL CLOSE q_cursor2;
if (quotasum)
fprintf(fd, "%d %d\n", prevuid, quotasum);
- if (fd != stdin && fclose(fd)) {
+ if (fd != stdin && fclose(fd) == EOF) {
fprintf(stderr, "error closing %s", file);
exit(MR_CCONFIG);
}
fprintf(fd, "%s %d %d %s\n", strtrim(dir), uid, gid, strtrim(fstype));
}
EXEC SQL CLOSE q_cursor3;
- if (fclose(fd)) {
+ if (fclose(fd) == EOF) {
fprintf(stderr, "error closing %s", file);
exit(MR_CCONFIG);
}