| | 1 | /* $Header$ |
| | 2 | * |
| | 3 | * This generates a master /etc/passwd containing all active (status != 0) |
| | 4 | * accounts. |
| | 5 | * |
| | 6 | * (c) Copyright 1988, 1990 by the Massachusetts Institute of Technology. |
| | 7 | * For copying and distribution information, please see the file |
| | 8 | * <mit-copyright.h>. |
| | 9 | */ |
| | 10 | |
| | 11 | #include <mit-copyright.h> |
| | 12 | #include <stdio.h> |
| | 13 | #include <moira.h> |
| | 14 | #include <sys/types.h> |
| | 15 | #include <sys/stat.h> |
| | 16 | #include <sys/time.h> |
| | 17 | EXEC SQL INCLUDE sqlca; |
| | 18 | |
| | 19 | extern int errno; |
| | 20 | char *whoami = "passwd.gen"; |
| | 21 | |
| | 22 | |
| | 23 | main(argc, argv) |
| | 24 | int argc; |
| | 25 | char **argv; |
| | 26 | { |
| | 27 | FILE *out = stdout; |
| | 28 | char *outf = NULL, outft[64]; |
| | 29 | struct stat sb; |
| | 30 | int flag; |
| | 31 | EXEC SQL BEGIN DECLARE SECTION; |
| | 32 | char login[9], shell[33], fullname[33], oa[17], op[13], hp[17]; |
| | 33 | char nickname[17]; |
| | 34 | int uid; |
| | 35 | EXEC SQL END DECLARE SECTION; |
| | 36 | |
| | 37 | #ifsql INGRES |
| | 38 | EXEC SQL CONNECT sms; |
| | 39 | #endsql |
| | 40 | #ifsql INFORMIX |
| | 41 | EXEC SQL DATABASE sms; |
| | 42 | #endsql |
| | 43 | |
| | 44 | if (argc == 2) { |
| | 45 | if (stat(argv[1], &sb) == 0) { |
| | 46 | if (ModDiff (&flag, "users", sb.st_mtime)) |
| | 47 | exit(MR_DATE); |
| | 48 | if (flag < 0) { |
| | 49 | fprintf(stderr, "File %s does not need to be rebuilt.\n", |
| | 50 | argv[1]); |
| | 51 | exit(MR_NO_CHANGE); |
| | 52 | } |
| | 53 | } |
| | 54 | outf = argv[1]; |
| | 55 | sprintf(outft, "%s~", outf); |
| | 56 | if ((out = fopen(outft, "w")) == NULL) { |
| | 57 | fprintf(stderr, "unable to open %s for output\n", outf); |
| | 58 | exit(MR_OCONFIG); |
| | 59 | } |
| | 60 | } else if (argc != 1) { |
| | 61 | fprintf(stderr, "usage: %s [outfile]\n", argv[0]); |
| | 62 | exit(MR_ARGS); |
| | 63 | } else { |
| | 64 | outf = NULL; |
| | 65 | } |
| | 66 | |
| | 67 | EXEC SQL WHENEVER SQLERROR GOTO sqlerr; |
| | 68 | |
| | 69 | EXEC SQL DECLARE x CURSOR FOR SELECT |
| | 70 | login, uid, shell, fullname, office_addr, nickname, |
| | 71 | office_phone, home_phone |
| | 72 | FROM users WHERE status = 1; |
| | 73 | EXEC SQL OPEN x; |
| | 74 | while (1) { |
| | 75 | EXEC SQL FETCH x INTO :login, :uid, :shell, :fullname, :oa, :nickname, |
| | 76 | :op, :hp; |
| | 77 | if (sqlca.sqlcode != 0) break; |
| | 78 | strtrim(login); |
| | 79 | strtrim(fullname); |
| | 80 | strtrim(nickname); |
| | 81 | strtrim(oa); |
| | 82 | strtrim(op); |
| | 83 | strtrim(hp); |
| | 84 | strtrim(shell); |
| | 85 | fprintf(out, "%s:*:%d:101:%s,%s,%s,%s,%s:/mit/%s:%s\n", |
| | 86 | login, uid, fullname, nickname, oa, op, hp, login, shell); |
| | 87 | } |
| | 88 | |
| | 89 | EXEC SQL CLOSE x; |
| | 90 | #ifsql INGRES |
| | 91 | EXEC SQL DISCONNECT; |
| | 92 | #endsql |
| | 93 | #ifsql INFORMIX |
| | 94 | EXEC SQL CLOSE DATABASE; |
| | 95 | #endsql |
| | 96 | |
| | 97 | if (fclose(out)) { |
| | 98 | perror("close failed"); |
| | 99 | exit(MR_CCONFIG); |
| | 100 | } |
| | 101 | if (outf) |
| | 102 | fix_file(outf); |
| | 103 | exit(MR_SUCCESS); |
| | 104 | |
| | 105 | sqlerr: |
| | 106 | com_err(whoami, MR_INGRES_ERR, " code %d\n", sqlca.sqlcode); |
| | 107 | critical_alert("DCM", "Passwd build encountered INGRES ERROR %d", |
| | 108 | sqlca.sqlcode); |
| | 109 | exit(MR_INGRES_ERR); |
| | 110 | } |
andersk / moira.git / blame_incremental