sprintf(hesiod_dir, "%s/hesiod", 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_passwd();
machines = create_hash(1000);
EXEC SQL DECLARE m_cursor CURSOR FOR
- SELECT NAME, MACH_ID
- FROM MACHINE;
+ SELECT name, mach_id
+ FROM machine;
EXEC SQL OPEN m_cursor;
while (1) {
EXEC SQL FETCH m_cursor INTO :name, :id;
/* make space for group list */
groups = create_hash(15001);
+ /* The following WHENEVER is declarative, not executed,
+ * and applies for the remainder of this file only.
+ */
EXEC SQL WHENEVER SQLERROR GOTO sqlerr;
/* get lock records */
EXEC SQL DECLARE i_cursor CURSOR FOR
SELECT list_id, member_id
FROM imembers
- WHERE member_type = "USER";
+ WHERE member_type = 'USER';
EXEC SQL OPEN i_cursor;
while (1) {
EXEC SQL FETCH i_cursor INTO :lid, :id;
EXEC SQL DECLARE a_cursor CURSOR FOR
SELECT name, trans
FROM alias
- WHERE type = "FILESYS";
+ WHERE type = 'FILESYS';
EXEC SQL OPEN a_cursor;
while (1) {
EXEC SQL FETCH a_cursor INTO :name, :trans;
EXEC SQL DECLARE a_cursor2 CURSOR FOR
SELECT name, trans
FROM alias
- WHERE type = "PALLADIUM";
+ WHERE type = 'PALLADIUM';
EXEC SQL OPEN a_cursor2;
while (1) {
EXEC SQL FETCH a_cursor2 INTO :name, :trans;
EXEC SQL DECLARE a_cursor3 CURSOR FOR
SELECT name, trans
FROM alias
- WHERE type = "SERVICE";
+ WHERE type = 'SERVICE';
EXEC SQL OPEN a_cursor3;
while (1) {
EXEC SQL FETCH a_cursor3 INTO :service, :altserv;