- EXEC SQL DECLARE p_cursor3 CURSOR FOR
- SELECT name, identifier, mach_id
- FROM palladium;
- EXEC SQL OPEN p_cursor3;
- while (1)
- {
- EXEC SQL FETCH p_cursor3 INTO :name, :identifier, :rm;
- if (sqlca.sqlcode)
- break;
- if (!hash_lookup(machines, rm))
- break;
- strtrim(name);
- fprintf(out, "%s.palladium\t%s %s \"%s %d %s interface directory\"\n",
- name, HCLASS, HTYPE, (char *)hash_lookup(machines, rm),
- identifier, name);
- }
- EXEC SQL CLOSE p_cursor3;
+ strtrim(duplexname);
+ if (!valid(duplexname))
+ continue;
+ if (!strcmp(strtrim(type), "ALIAS"))
+ {
+ EXEC SQL SELECT duplexname INTO :duplexrp
+ FROM printers WHERE name = :rp;
+ strtrim(duplexrp);
+ }
+ else
+ strcpy(duplexrp, duplexname);
+ fprintf(out, "%s.pcap\t%s %s \"%s:rp=%s:rm=%s:ka#%d:mc#%d:",
+ duplexname, HCLASS, HTYPE, duplexname, duplexrp,
+ rmname, ka, mc);
+
+ if (!strcmp(pskind, "BSD"))
+ fprintf(out, "auth=none:remote_support=RQM:");
+ else if (!strcmp(pskind, "ATHENA"))
+ {
+ fprintf(out, "auth=%s:az:remote_support=RQM:",
+ ka ? "kerberos4" : "none");
+ }
+ else if (!strcmp(pskind, "LPRNG"))
+ fprintf(out, "auth=kerberos5:xn:");