If get_host returns MR_NO_MATCH, check host aliases. Fixes the common

[moira.git] / gen / cups-lpd.pc

/* $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