+/* $Id$\r
+ *\r
+ * This generates printcaps and other files for Athena print servers\r
+ *\r
+ * Copyright (C) 1992-1998 by the Massachusetts Institute of Technology.\r
+ * For copying and distribution information, please see the file\r
+ * <mit-copyright.h>.\r
+ */\r
+\r
+#include <mit-copyright.h>\r
+#include <moira.h>\r
+#include <moira_site.h>\r
+\r
+#include <sys/stat.h>\r
+#include <sys/types.h>\r
+\r
+#include <ctype.h>\r
+#include <stdio.h>\r
+#include <string.h>\r
+\r
+#include <time.h>\r
+#ifdef HAVE_KRB4\r
+#include <krb.h>\r
+#endif\r
+#include <krb5.h>\r
+\r
+#include "util.h"\r
+\r
+EXEC SQL INCLUDE sqlca;\r
+\r
+RCSID("$Header$");\r
+\r
+char *whoami = "cups-lpd-print.gen";\r
+char *db = "moira/moira";\r
+\r
+/* OMG, I hate this, but it's cleaner, I guess? */\r
+\r
+void do_host(char *host);\r
+void sqlerr(void);\r
+#ifndef MAX\r
+#define MAX(a, b) ( (a) > (b) ? (a) : (b) )\r
+#endif\r
+\r
+int main(int argc, char **argv)\r
+{\r
+ EXEC SQL BEGIN DECLARE SECTION;\r
+ char name[MACHINE_NAME_SIZE];\r
+ EXEC SQL END DECLARE SECTION;\r
+\r
+ init_acls();\r
+\r
+ EXEC SQL CONNECT :db;\r
+\r
+ EXEC SQL WHENEVER SQLERROR DO sqlerr();\r
+\r
+ EXEC SQL DECLARE csr_hosts CURSOR FOR\r
+ SELECT m.name FROM machine m, serverhosts sh\r
+ WHERE m.mach_id = sh.mach_id AND sh.service = 'CUPS-LPD' AND sh.enable = 1;\r
+ EXEC SQL OPEN csr_hosts;\r
+ while (1)\r
+ {\r
+ EXEC SQL FETCH csr_hosts INTO :name;\r
+ if (sqlca.sqlcode)\r
+ break;\r
+\r
+ strtrim(name);\r
+ do_host(name);\r
+ }\r
+ EXEC SQL CLOSE csr_hosts;\r
+\r
+ exit(MR_SUCCESS);\r
+}\r
+\r
+void printer_user_list(FILE *out, char *type, int id, char *str)\r
+{\r
+ struct save_queue *sq;\r
+ struct imember *m;\r
+\r
+ sq = get_acl(type, id, NULL);\r
+ while (sq_remove_data(sq, &m))\r
+ {\r
+ if (m->type == 'U')\r
+ fprintf(out, "%s %s\n", str, m->name);\r
+ freeimember(m);\r
+ }\r
+ sq_destroy(sq);\r
+}\r
+\r
+\r
+\r
+void do_host(char *host)\r
+{\r
+ EXEC SQL BEGIN DECLARE SECTION;\r
+ char rp[PRINTERS_RP_SIZE], name[PRINTERS_NAME_SIZE];\r
+ char duplexname[PRINTERS_DUPLEXNAME_SIZE], location[PRINTERS_LOCATION_SIZE];\r
+ char hwtype[PRINTERS_HWTYPE_SIZE], lowerhwtype[PRINTERS_HWTYPE_SIZE];\r
+ char modtime[PRINTERS_MODTIME_SIZE], lmodtime[LIST_MODTIME_SIZE];\r
+ char contact[PRINTERS_CONTACT_SIZE], hostname[MACHINE_NAME_SIZE];\r
+ char cupshosts[MACHINE_NAME_SIZE], prtype [PRINTERS_TYPE_SIZE];\r
+ char *spoolhost = host, *unixtime_fmt = UNIXTIME_FMT, *p;\r
+ char *lhost;\r
+ int ka, pc, ac, lpc_acl, top_lpc_acl, banner, rm;\r
+ EXEC SQL END DECLARE SECTION;\r
+ TARFILE *tf;\r
+ FILE *out;\r
+ char filename[MAXPATHLEN], *duptc;\r
+ time_t mtime, now = time(NULL);\r
+\r
+ lhost = (char *) strdup (host);\r
+ for (p = lhost; *p; p++)\r
+ *p = tolower(*p);\r
+\r
+ sprintf(filename, "%s/cups-lpd/%s", DCM_DIR, host);\r
+ tf = tarfile_open(filename);\r
+\r
+ /* LPRng printers */\r
+ out = tarfile_start(tf, "/etc/cups/lprng.printers.txt", 0644, 0, 0,\r
+ "root", "lp", now);\r
+\r
+ EXEC SQL DECLARE csr_lprng CURSOR FOR\r
+ SELECT pr.rp, pr.name, pr.duplexname, pr.hwtype,\r
+ m.name, pr.banner, pr.location, pr.contact, pr.ka,\r
+ pr.ac, pr.type as prtype\r
+ FROM printers pr, machine m, serverhosts sh\r
+ WHERE m.mach_id = sh.mach_id AND sh.service = 'PRINT' AND sh.enable = 1\r
+ AND pr.rm = m.mach_id ORDER BY pr.name;\r
+ EXEC SQL OPEN csr_lprng;\r
+ while (1)\r
+ {\r
+ EXEC SQL FETCH csr_lprng INTO :rp, :name, :duplexname,\r
+ :hwtype, :hostname, :banner, :location, :contact, :ka, :ac, :prtype;\r
+ if (sqlca.sqlcode)\r
+ break;\r
+\r
+ strtrim(rp);\r
+ strtrim(name);\r
+ strtrim(duplexname);\r
+ strtrim(hwtype);\r
+ strtrim(hostname);\r
+ strtrim(location);\r
+ strtrim(contact);\r
+ strcpy(lowerhwtype, hwtype);\r
+ for (p = lowerhwtype; *p; p++)\r
+ *p = tolower(*p);\r
+ for (p = name;*p;p++)\r
+ *p = tolower(*p);\r
+ for (p = duplexname;*p;p++)\r
+ *p = tolower(*p);\r
+\r
+ fprintf(out, "%s|%s|%s|%s|%s|%s\n", name,duplexname,hostname,location,hwtype,prtype);\r
+ }\r
+ EXEC SQL CLOSE csr_lprng;\r
+ tarfile_end(tf);\r
+\r
+ /* CUPS printers */\r
+ out = tarfile_start(tf, "/etc/cups/cups.printers.txt", 0644, 0, 0,\r
+ "root", "lp", now);\r
+\r
+ EXEC SQL DECLARE csr_cups CURSOR FOR\r
+ SELECT pr.rp, pr.name, pr.duplexname, pr.hwtype,\r
+ m.name, pr.banner, pr.location, pr.contact, pr.ka,\r
+ pr.ac, pr.type as prtype\r
+ FROM printers pr, machine m, serverhosts sh\r
+ WHERE m.mach_id = sh.mach_id AND sh.service = 'CUPS-PRINT' AND sh.enable = 1\r
+ AND pr.rm = m.mach_id ORDER BY pr.name;\r
+ EXEC SQL OPEN csr_cups;\r
+ while (1)\r
+ {\r
+ EXEC SQL FETCH csr_cups INTO :rp, :name, :duplexname,\r
+ :hwtype, :hostname, :banner, :location, :contact, :ka, :ac, :prtype;\r
+ if (sqlca.sqlcode)\r
+ break;\r
+\r
+ strtrim(rp);\r
+ strtrim(name);\r
+ strtrim(duplexname);\r
+ strtrim(hwtype);\r
+ strtrim(hostname);\r
+ strtrim(location);\r
+ strtrim(contact);\r
+ strcpy(lowerhwtype, hwtype);\r
+ for (p = lowerhwtype; *p; p++)\r
+ *p = tolower(*p);\r
+ for (p = name;*p;p++)\r
+ *p = tolower(*p);\r
+ for (p = duplexname;*p;p++)\r
+ *p = tolower(*p);\r
+\r
+ fprintf(out, "%s|%s|%s|%s|%s|%s\n", name,duplexname,hostname,location,hwtype,prtype);\r
+ }\r
+ EXEC SQL CLOSE csr_cups;\r
+ tarfile_end(tf);\r
+ tarfile_close(tf);\r
+}\r
+\r
+void sqlerr(void)\r
+{\r
+ db_error(sqlca.sqlcode);\r
+}\r