From: mar <mar>
Date: Wed, 10 Mar 1993 13:49:54 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: release77~203
X-Git-Url: http://andersk.mit.edu/gitweb/moira.git/commitdiff_plain/834f8184d4e0dbe45b537753304ad271764c0e6d

Initial revision
---

diff --git a/regtape/nodups.qc b/regtape/nodups.qc
new file mode 100644
index 00000000..8f7fc92b
--- /dev/null
+++ b/regtape/nodups.qc
@@ -0,0 +1,254 @@
+/* $Header$ */
+
+#include <stdio.h>
+#include <ctype.h>
+#include <moira.h>
+
+struct user {
+    int	users_id;
+    char first[33];
+    char last[33];
+    int status;
+};
+
+extern int errno;
+int debug;
+char *program;
+
+
+main(argc, argv)
+int argc;
+char  **argv;
+{
+    char buf[1024], first[33], last[33];
+    int i;
+    char *inputfile;
+    FILE *in;
+    struct user *u;
+    struct user users[32];
+    struct user *get_user();
+
+    program = argv[0];
+
+    for (i = 1; i < argc; i++) {
+	if (!strcmp(argv[i], "-d"))
+	  debug++;
+	else if (!strcmp(argv[i], "-D"))
+	  setenv("ING_SET", "set printqry");
+	else if (argv[i][0] == '-')
+	  usage(argv);
+	else if (inputfile != NULL)
+	  usage(argv);
+	else inputfile = argv[i];
+    }
+
+    if (inputfile) {
+	in = fopen(inputfile, "r");
+	if (in == NULL) {
+	    com_err(program, errno, "opening file \"%s\" for input", inputfile);
+	    exit(1);
+	}
+    } else
+      in = stdin;
+
+##  ingres sms
+
+    i = 0;
+    while (!feof(in)) {
+	fgets(buf, sizeof(buf), in);
+	u = get_user(buf);
+	if (!u) continue;
+	if (strcmp(u->last, users[0].last) ||
+	    strcmp(u->first, users[0].first)) {
+	    /* We've got a matching group! */
+	    process_users(users, i);
+	    bcopy(u, &(users[0]), sizeof(*u));
+	    i = 1;
+	} else {
+	    bcopy(u, &(users[i]), sizeof(*u));
+	    i++;
+	}
+    }
+}
+
+usage(argv)
+char **argv;
+{
+    fprintf(stderr, "Usage: %s [-w] [-D]\n", argv[0]);
+    exit(1);
+}
+
+struct user *get_user(buf)
+char *buf;
+{
+    static struct user u;
+
+    if (sscanf(buf, "| %d|%s |%s | %d|", &u.users_id, u.first,
+	       u.last, &u.status) != 4) {
+	com_err(program, 0, " parsing input line %s", buf);
+	return(NULL);
+    }
+    return(&u);
+}
+
+
+process_users(users, count)
+struct user users[];
+int count;
+##{
+    char buf[256];
+    int i;
+##  char login[9], id[17], class[9], modtime[26], modwith[9], xmodtime[26];
+##  char login2[9], id2[17], class2[9], modtime2[26],modwith2[9],xmodtime2[26];
+##  char login3[9], id3[17], class3[9], modtime3[26],modwith3[9],xmodtime3[26];
+##  int users_id, users_id2, users_id3, status, status2, status3, rowcount;
+
+    printf("\nGot %d users named %s %s\n", count, users[0].first, users[0].last);
+    if (count < 2) return;
+
+    users_id = users[0].users_id;
+##  range of u is users
+##  retrieve (login = u.#login, id = u.mit_id, class = u.mit_year,
+##	      modtime = u.#modtime, modwith = u.#modwith,
+##	      xmodtime = u.#xmodtime, status = u.#status)
+##	where u.#users_id = users_id
+
+    users_id2 = users[1].users_id;
+##  retrieve (login2 = u.#login, id2 = u.mit_id, class2 = u.mit_year,
+##	      modtime2 = u.#modtime, modwith2 = u.#modwith,
+##	      xmodtime2 = u.#xmodtime, status2 = u.#status)
+##	where u.#users_id = users_id2
+
+    modtime[20] = modtime2[20] = xmodtime[20] = xmodtime2[20] = 0;
+
+    printf("A: %s %5d %d\t\t\tB: %s %5d %d\n", login, users_id, status,
+	   login2, users_id2, status2);
+    printf("   %s %s\t\t   %s %s\n", class, id, class2, id2);
+    printf("   %s %s\t   %s %s\n", modtime, modwith, modtime2, modwith2);
+    printf("   %s\t\t\t   %s\n", xmodtime, xmodtime2);
+
+    if (count > 2) {
+	for (i = 2; i < count; i++) {
+	    users_id3 = users[i].users_id;
+##	    retrieve (login3 = u.#login, id3 = u.mit_id, class3 = u.mit_year,
+##		      modtime3 = u.#modtime, modwith3 = u.#modwith,
+##		      xmodtime3 = u.#xmodtime, status3 = u.#status)
+##		where u.#users_id = users_id3
+	    modtime3[20] = xmodtime3[20] = 0;
+	    printf("\n%c: %s %5d %d\n", 'A' + i,
+		   login3, users_id3, status3);
+	    printf("   %s %s\n", class3, id3);
+	    printf("   %s %s\n", modtime3, modwith3);
+	    printf("   %s\n", xmodtime3);
+	}
+    }
+
+    if (count == 2) {
+	if (status == 3 || status2 == 3) return;
+	if ((status == 0 || status == 4) &&
+	    !isdigit(id[0]) && !isdigit(xmodtime[0])) {
+	    printf("DELETING %s\n", login);
+##	    replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		       modby=8873) where u.#users_id = users_id
+##	    inquire_equel(rowcount = "rowcount")
+	    if (rowcount != 1)
+	      printf("Failed!\007\007\007\n");
+	    else
+	      printf("User %s marked for deletion.\n", login);
+	    return;
+	}
+	if ((status2 == 0 || status2 == 4) &&
+	    !isdigit(id2[0]) && !isdigit(xmodtime2[0])) {
+	    printf("DELETING %s\n", login2);
+##	    replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		       modby=8873) where u.#users_id = users_id2
+##	    inquire_equel(rowcount = "rowcount")
+	    if (rowcount != 1)
+	      printf("Failed!\007\007\007\n");
+	    else
+	      printf("User %s marked for deletion.\n", login2);
+	    return;
+	}
+    }
+
+    printf("\n0,sp: Do nothing\n1: Delete B\n2: Delete A\n");
+    printf("3: A<-B's ID; Delete B\n4: B<-A's ID; Delete A\n");
+    if (count > 2)
+      printf("5: Delete C\n");
+    if (count > 3)
+      printf("6: Delete D\n");
+    printf("?");fflush(stdout);
+    gets(buf);
+    switch (buf[0]) {
+    case '1':
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id2
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %s marked for deletion.\n", login2);
+	break;
+    case '2':
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %s marked for deletion.\n", login);
+	break;
+    case '3':
+##	replace u (#mit_id = id2, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id2
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %s updated, %s marked for deletion.\n", login, login2);
+	break;
+    case '4':
+##	replace u (#mit_id = id, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id2
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %s updated, %s marked for deletion.\n", login2, login);
+	break;
+    case '5':
+	users_id = users[2].users_id;
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %d marked for deletion.\n", users[2].users_id);
+	break;
+    case '6':
+	users_id = users[3].users_id;
+##	replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
+##		   modby=8873) where u.#users_id = users_id
+##	inquire_equel(rowcount = "rowcount")
+	if (rowcount != 1)
+	  printf("Failed!\007\007\007\n");
+	else
+	  printf("User %d marked for deletion.\n", users[3].users_id);
+	break;
+    case 'q':
+	exit(0);
+    default:
+	printf("Leaving unchanged\n");
+    }
+##}