[moira.git] / regtape / nodups.qc

/* $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");
    }
##}
Commit	Line	Data
834f8184	1	/* $Header$ */
	2
	3	#include <stdio.h>
	4	#include <ctype.h>
	5	#include <moira.h>
	6
	7	struct user {
	8	int users_id;
	9	char first[33];
	10	char last[33];
	11	int status;
	12	};
	13
	14	extern int errno;
	15	int debug;
	16	char *program;
	17
	18
	19	main(argc, argv)
	20	int argc;
	21	char **argv;
	22	{
	23	char buf[1024], first[33], last[33];
	24	int i;
	25	char *inputfile;
	26	FILE *in;
	27	struct user *u;
	28	struct user users[32];
	29	struct user *get_user();
	30
	31	program = argv[0];
	32
	33	for (i = 1; i < argc; i++) {
	34	if (!strcmp(argv[i], "-d"))
	35	debug++;
	36	else if (!strcmp(argv[i], "-D"))
	37	setenv("ING_SET", "set printqry");
	38	else if (argv[i][0] == '-')
	39	usage(argv);
	40	else if (inputfile != NULL)
	41	usage(argv);
	42	else inputfile = argv[i];
	43	}
	44
	45	if (inputfile) {
	46	in = fopen(inputfile, "r");
	47	if (in == NULL) {
	48	com_err(program, errno, "opening file \"%s\" for input", inputfile);
	49	exit(1);
	50	}
	51	} else
	52	in = stdin;
	53
	54	## ingres sms
	55
	56	i = 0;
	57	while (!feof(in)) {
	58	fgets(buf, sizeof(buf), in);
	59	u = get_user(buf);
	60	if (!u) continue;
	61	if (strcmp(u->last, users[0].last) \|\|
	62	strcmp(u->first, users[0].first)) {
	63	/* We've got a matching group! */
	64	process_users(users, i);
65	bcopy(u, &(users[0]), sizeof(*u));
66	i = 1;
67	} else {
68	bcopy(u, &(users[i]), sizeof(*u));
69	i++;
70	}
71	}
72	}
73
74	usage(argv)
75	char **argv;
76	{
77	fprintf(stderr, "Usage: %s [-w] [-D]\n", argv[0]);
78	exit(1);
79	}
80
81	struct user *get_user(buf)
82	char *buf;
83	{
84	static struct user u;
85
86	if (sscanf(buf, "\| %d\|%s \|%s \| %d\|", &u.users_id, u.first,
87	u.last, &u.status) != 4) {
88	com_err(program, 0, " parsing input line %s", buf);
89	return(NULL);
90	}
91	return(&u);
92	}
93
94
95	process_users(users, count)
96	struct user users[];
97	int count;
98	##{
99	char buf[256];
100	int i;
101	## char login[9], id[17], class[9], modtime[26], modwith[9], xmodtime[26];
102	## char login2[9], id2[17], class2[9], modtime2[26],modwith2[9],xmodtime2[26];
103	## char login3[9], id3[17], class3[9], modtime3[26],modwith3[9],xmodtime3[26];
104	## int users_id, users_id2, users_id3, status, status2, status3, rowcount;
105
106	printf("\nGot %d users named %s %s\n", count, users[0].first, users[0].last);
107	if (count < 2) return;
108
109	users_id = users[0].users_id;
110	## range of u is users
111	## retrieve (login = u.#login, id = u.mit_id, class = u.mit_year,
112	## modtime = u.#modtime, modwith = u.#modwith,
113	## xmodtime = u.#xmodtime, status = u.#status)
114	## where u.#users_id = users_id
115
116	users_id2 = users[1].users_id;
117	## retrieve (login2 = u.#login, id2 = u.mit_id, class2 = u.mit_year,
118	## modtime2 = u.#modtime, modwith2 = u.#modwith,
119	## xmodtime2 = u.#xmodtime, status2 = u.#status)
120	## where u.#users_id = users_id2
121
122	modtime[20] = modtime2[20] = xmodtime[20] = xmodtime2[20] = 0;
123
124	printf("A: %s %5d %d\t\t\tB: %s %5d %d\n", login, users_id, status,
125	login2, users_id2, status2);
126	printf(" %s %s\t\t %s %s\n", class, id, class2, id2);
127	printf(" %s %s\t %s %s\n", modtime, modwith, modtime2, modwith2);
128	printf(" %s\t\t\t %s\n", xmodtime, xmodtime2);
129
130	if (count > 2) {
131	for (i = 2; i < count; i++) {
132	users_id3 = users[i].users_id;
133	## retrieve (login3 = u.#login, id3 = u.mit_id, class3 = u.mit_year,
134	## modtime3 = u.#modtime, modwith3 = u.#modwith,
135	## xmodtime3 = u.#xmodtime, status3 = u.#status)
136	## where u.#users_id = users_id3
137	modtime3[20] = xmodtime3[20] = 0;
138	printf("\n%c: %s %5d %d\n", 'A' + i,
139	login3, users_id3, status3);
140	printf(" %s %s\n", class3, id3);
141	printf(" %s %s\n", modtime3, modwith3);
142	printf(" %s\n", xmodtime3);
143	}
144	}
145
146	if (count == 2) {
147	if (status == 3 \|\| status2 == 3) return;
148	if ((status == 0 \|\| status == 4) &&
149	!isdigit(id[0]) && !isdigit(xmodtime[0])) {
150	printf("DELETING %s\n", login);
151	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
152	## modby=8873) where u.#users_id = users_id
153	## inquire_equel(rowcount = "rowcount")
154	if (rowcount != 1)
155	printf("Failed!\007\007\007\n");
156	else
157	printf("User %s marked for deletion.\n", login);
158	return;
159	}
160	if ((status2 == 0 \|\| status2 == 4) &&
161	!isdigit(id2[0]) && !isdigit(xmodtime2[0])) {
162	printf("DELETING %s\n", login2);
163	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
164	## modby=8873) where u.#users_id = users_id2
165	## inquire_equel(rowcount = "rowcount")
166	if (rowcount != 1)
167	printf("Failed!\007\007\007\n");
168	else
169	printf("User %s marked for deletion.\n", login2);
170	return;
171	}
172	}
173
174	printf("\n0,sp: Do nothing\n1: Delete B\n2: Delete A\n");
175	printf("3: A<-B's ID; Delete B\n4: B<-A's ID; Delete A\n");
176	if (count > 2)
177	printf("5: Delete C\n");
178	if (count > 3)
179	printf("6: Delete D\n");
180	printf("?");fflush(stdout);
181	gets(buf);
182	switch (buf[0]) {
183	case '1':
184	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
185	## modby=8873) where u.#users_id = users_id2
186	## inquire_equel(rowcount = "rowcount")
187	if (rowcount != 1)
188	printf("Failed!\007\007\007\n");
189	else
190	printf("User %s marked for deletion.\n", login2);
191	break;
192	case '2':
193	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
194	## modby=8873) where u.#users_id = users_id
195	## inquire_equel(rowcount = "rowcount")
196	if (rowcount != 1)
197	printf("Failed!\007\007\007\n");
198	else
199	printf("User %s marked for deletion.\n", login);
200	break;
201	case '3':
202	## replace u (#mit_id = id2, #modtime=date("now"), #modwith="nodups",
203	## modby=8873) where u.#users_id = users_id
204	## inquire_equel(rowcount = "rowcount")
205	if (rowcount != 1)
206	printf("Failed!\007\007\007\n");
207	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
208	## modby=8873) where u.#users_id = users_id2
209	## inquire_equel(rowcount = "rowcount")
210	if (rowcount != 1)
211	printf("Failed!\007\007\007\n");
212	else
213	printf("User %s updated, %s marked for deletion.\n", login, login2);
214	break;
215	case '4':
216	## replace u (#mit_id = id, #modtime=date("now"), #modwith="nodups",
217	## modby=8873) where u.#users_id = users_id2
218	## inquire_equel(rowcount = "rowcount")
219	if (rowcount != 1)
220	printf("Failed!\007\007\007\n");
221	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
222	## modby=8873) where u.#users_id = users_id
223	## inquire_equel(rowcount = "rowcount")
224	if (rowcount != 1)
225	printf("Failed!\007\007\007\n");
226	else
227	printf("User %s updated, %s marked for deletion.\n", login2, login);
228	break;
229	case '5':
230	users_id = users[2].users_id;
231	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
232	## modby=8873) where u.#users_id = users_id
233	## inquire_equel(rowcount = "rowcount")
234	if (rowcount != 1)
235	printf("Failed!\007\007\007\n");
236	else
237	printf("User %d marked for deletion.\n", users[2].users_id);
238	break;
239	case '6':
240	users_id = users[3].users_id;
241	## replace u (#status = 3, #modtime=date("now"), #modwith="nodups",
242	## modby=8873) where u.#users_id = users_id
243	## inquire_equel(rowcount = "rowcount")
244	if (rowcount != 1)
245	printf("Failed!\007\007\007\n");
246	else
247	printf("User %d marked for deletion.\n", users[3].users_id);
248	break;
249	case 'q':
250	exit(0);
251	default:
252	printf("Leaving unchanged\n");
253	}
254	##}