--- /dev/null
+/* $Header$
+ */
+
+#include <stdio.h>
+#include <moira.h>
+#include <moira_site.h>
+#include <Xm/Xm.h>
+#include "mmoira.h"
+
+
+extern char *user, *program_name;
+extern EntryForm *MoiraForms[];
+EntryForm *GetAndClearForm();
+
+char *user_states[] = { "0 - Registerable",
+ "1 - Active",
+ "2 - Half Registered",
+ "3 - Deleted",
+ "4 - Not registerable",
+ "5 - Enrolled/Registerable",
+ "6 - Enrolled/Not Registerable",
+ "7 - Half Enrolled",
+ NULL};
+char *nfs_states[] = { "0 - Not Allocated",
+ "1 - Student",
+ "2 - Faculty",
+ "4 - Staff",
+ "8 - Miscellaneous",
+ NULL};
+
+
+/* Called when a menu item is selected. */
+
+MoiraMenuRequest(menu)
+MenuItem *menu;
+{
+ EntryForm *f;
+
+ f = GetAndClearForm(menu->form);
+ if (f == NULL) {
+ if (!strcmp(menu->form, "0"))
+ MoiraMenuComplete(menu);
+ else
+ display_error("Sorry, unable to process that request (no form registered).");
+ return;
+ }
+
+ switch (menu->operation) {
+ case MM_SHOW_USER:
+ GetKeywords(f, 4, "class");
+ break;
+ case MM_ADD_USER:
+ StoreField(f, U_NAME, UNIQUE_LOGIN);
+ StoreField(f, U_UID, UNIQUE_UID);
+ StoreField(f, U_SHELL, "/bin/csh");
+ StoreField(f, U_STATE, user_states[US_NO_LOGIN_YET]);
+ f->inputlines[U_STATE]->keywords = user_states;
+ GetKeywords(f, U_CLASS, "class");
+ break;
+ case MM_SET_POBOX:
+ GetKeywords(f, 1, "pobox");
+ GetKeywords(f, 3, "poserver");
+ break;
+ case MM_ADD_FILSYS:
+ StoreField(f, FS_TYPE, "NFS");
+ StoreField(f, FS_M_POINT, "/mit/");
+ StoreField(f, FS_ACCESS, "w");
+ StoreField(f, FS_OWNER, user);
+ StoreField(f, FS_OWNERS, user);
+ boolval(f, FS_CREATE) = TRUE;
+ GetKeywords(f, FS_TYPE, "filesys");
+ GetKeywords(f, FS_ACCESS, "fs_access_NFS");
+ GetKeywords(f, FS_L_TYPE, "lockertype");
+ break;
+ case MM_ADD_NFS:
+ StoreField(f, 1, "/u1/lockers");
+ StoreField(f, 2, "/dev/");
+ StoreField(f, 5, "0");
+ StoreField(f, 6, "0");
+ StoreField(f, 3, nfs_states[1]);
+ f->inputlines[3]->keywords = nfs_states;
+ break;
+ case MM_ADD_QUOTA:
+ case MM_DEL_QUOTA:
+ GetKeywords(f, 0, "quota_type");
+ break;
+ case MM_SHOW_ACE_USE:
+ StoreField(f, 0, "USER");
+ GetKeywords(f, 0, "ace_type");
+ break;
+ case MM_ADD_LIST:
+ boolval(f, L_ACTIVE) = TRUE;
+ boolval(f, L_MAILLIST) = TRUE;
+ StoreField(f, L_GID, UNIQUE_GID);
+ StoreField(f, L_ACE_TYPE, "USER");
+ GetKeywords(f, L_ACE_TYPE, "ace_type");
+ break;
+ case MM_SHOW_MEMBERS:
+ GetKeywords(f, 1, "member");
+ break;
+ case MM_ADD_MEMBER:
+ case MM_DEL_MEMBER:
+ GetKeywords(f, 1, "member");
+ break;
+ case MM_DEL_ALL_MEMBER:
+ boolval(f, 2) = TRUE;
+ GetKeywords(f, 0, "member");
+ break;
+ case MM_ADD_MACH:
+ GetKeywords(f, 1, "mac_type");
+ break;
+ case MM_ADD_PCAP:
+ StoreField(f, PCAP_SPOOL_DIR, "/usr/spool/printer/");
+ boolval(f, PCAP_AUTH) = TRUE;
+ StoreField(f, PCAP_PRICE, "10");
+ break;
+ case MM_ADD_SERVICE:
+ StoreField(f, SVC_INTERVAL, "1430");
+ StoreField(f, SVC_TARGET, "/tmp/");
+ StoreField(f, SVC_SCRIPT, "/moira/bin/");
+ StoreField(f, 4, "UNIQUE");
+ StoreField(f, 6, "NONE");
+ GetKeywords(f, 4, "service");
+ GetKeywords(f, 6, "ace_type");
+ break;
+ case MM_SHOW_ALIAS:
+ StoreField(f, 2, "*");
+ GetKeywords(f, 1, "alias");
+ break;
+ case MM_ADD_ZEPHYR:
+ GetKeywords(f, 1, "ace_type");
+ GetKeywords(f, 3, "ace_type");
+ GetKeywords(f, 5, "ace_type");
+ GetKeywords(f, 7, "ace_type");
+ break;
+ }
+
+ f->menu = menu;
+ DisplayForm(f);
+}
+
+
+/* Find a form by name. Returns a pointer to the form or NULL on error. */
+
+EntryForm *GetForm(name)
+char *name;
+{
+ EntryForm **fp;
+
+ for (fp = MoiraForms; *fp; fp++)
+ if (!strcmp((*fp)->formname, name))
+ break;
+ return(*fp);
+}
+
+
+/* Find a form by name and clear all of its fields. Returns a pointer
+ * to the form or NULL on error.
+ */
+
+EntryForm *GetAndClearForm(name)
+char *name;
+{
+ EntryForm **fp;
+ UserPrompt *p, **pp;
+ static BottomButton **buttons = NULL;
+ int MoiraFormComplete(), button_callback(), help_form_callback();
+
+ for (fp = MoiraForms; *fp; fp++)
+ if (!strcmp((*fp)->formname, name))
+ break;
+ if (*fp == (EntryForm *)NULL)
+ return(NULL);
+
+ for (pp = (*fp)->inputlines; p = *pp; pp++) {
+ switch (p->type) {
+ case FT_STRING:
+ case FT_KEYWORD:
+ if (p->returnvalue.stringvalue)
+ free(p->returnvalue.stringvalue);
+ p->returnvalue.stringvalue = (char *)malloc(MAXFIELDSIZE);
+ if (p->returnvalue.stringvalue == NULL) {
+ fprintf(stderr, "Moira: out of memory\n");
+ return(NULL);
+ }
+ *(p->returnvalue.stringvalue) = '\0';
+ break;
+ case FT_BOOLEAN:
+ p->returnvalue.booleanvalue = False;
+ break;
+ case FT_NUMBER:
+ p->returnvalue.integervalue = 0;
+ break;
+ }
+ }
+ if (buttons == NULL) {
+ buttons = (BottomButton **)malloc(4 * sizeof(BottomButton *));
+ buttons[0] = (BottomButton *)malloc(sizeof(BottomButton));
+ buttons[0]->label = "OK";
+ buttons[0]->returnfunction = MoiraFormComplete;
+ buttons[1] = (BottomButton *)malloc(sizeof(BottomButton));
+ buttons[1]->label = "Cancel";
+ buttons[1]->returnfunction = button_callback;
+ buttons[2] = (BottomButton *)malloc(sizeof(BottomButton));
+ buttons[2]->label = "Help";
+ buttons[2]->returnfunction = help_form_callback;
+ buttons[3] = NULL;
+ }
+ (*fp)->buttons = buttons;
+ return(*fp);
+}
+
+
+/* Store a string into a given field in a form. */
+
+StoreField(form, field, value)
+EntryForm *form;
+int field;
+char *value;
+{
+ strncpy(form->inputlines[field]->returnvalue.stringvalue,
+ value, MAXFIELDSIZE);
+}
+
+
+/* Helper routine for GetKeywords() */
+
+static get_alias(argc, argv, sq)
+int argc;
+char **argv;
+struct save_queue *sq;
+{
+ sq_save_data(sq, strsave(argv[2]));
+#ifdef DEBUG
+ printf("found keyword %s\n", argv[2]);
+#endif
+ return(MR_CONT);
+}
+
+static get_sloc(argc, argv, sq)
+int argc;
+char **argv;
+struct save_queue *sq;
+{
+ sq_save_data(sq, strsave(argv[1]));
+#ifdef DEBUG
+ printf("found sloc %s\n", argv[1]);
+#endif
+ return(MR_CONT);
+}
+
+
+/* Retrieve possible keyword values from Moira and store them in the specified
+ * field of the form. Returns 0 if successful, -1 if not.
+ */
+
+int GetKeywords(form, field, name)
+EntryForm *form;
+int field;
+char *name;
+{
+ static struct save_queue *cache = NULL;
+ struct save_queue *sq, *s;
+ struct cache_elem { char *name; char **values; } *ce;
+ int i, size, stat;
+ char *argv[4];
+
+ /* init cache */
+ if (cache == NULL)
+ cache = sq_create();
+ cache->q_lastget = NULL;
+
+ /* look through cache */
+ while (sq_get_data(cache, &ce))
+ if (!strcmp(ce->name, name)) {
+ form->inputlines[field]->keywords = ce->values;
+ return(0);
+ }
+
+ /* not in cache, do query */
+ sq = sq_create();
+ if (!strcmp(name, "poserver")) {
+ argv[0] = "POP";
+ stat = MoiraQuery("get_server_locations", 1, argv, get_sloc,
+ (char *)sq);
+ if (stat) {
+ com_err(program_name, stat, "retrieving service locations");
+ return(-1);
+ }
+ } else {
+ argv[0] = name;
+ argv[1] = "TYPE";
+ argv[2] = "*";
+ stat = MoiraQuery("get_alias", 3, argv, get_alias, (char *)sq);
+ if (stat) {
+ com_err(program_name, stat, "retrieving keyword values");
+ return(-1);
+ }
+ }
+
+ size = 1;
+ for (s = sq->q_next; s->q_next != sq; s = s->q_next)
+ size++;
+#ifdef DEBUG
+ printf("Found %d keywords of type %s\n", size, name);
+#endif
+
+ /* transform query data into proper malloc'ed structure */
+ ce = (struct cache_elem *) malloc(sizeof(struct cache_elem));
+ if (ce == NULL) {
+ display_error("Out of memory while fetching keywords");
+ return(-1);
+ }
+ ce->name = name;
+ ce->values = (char **) malloc(sizeof(char *) * (size + 1));
+ if (ce->values == NULL) {
+ display_error("Out of memory while fetching keywords");
+ return(-1);
+ }
+ for (i = 0; i < size; i++)
+ sq_get_data(sq, &(ce->values[i]));
+ ce->values[i] = NULL;
+ sq_destroy(sq);
+
+ /* put it in the cache */
+ sq_save_data(cache, ce);
+
+ /* and return answer */
+ form->inputlines[field]->keywords = ce->values;
+ return(0);
+}
+
+
+/********** temporary *8********/
+
+display_error(s)
+char *s;
+{ fprintf(stderr, "%s\n", s); }
--- /dev/null
+/* $Header$
+ */
+
+#include <stdio.h>
+#include <moira.h>
+#include <moira_site.h>
+#include <sys/types.h>
+#include <netdb.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <Xm/Xm.h>
+#include "mmoira.h"
+
+
+/******* temporary ********/
+char *atot(s) char *s; { return s; }
+
+
+
+int DisplayCallback(argc, info, form)
+int argc;
+char **info;
+EntryForm *form;
+{
+ char buf[1024], name[128];
+ char *MOD_FORMAT = "Modified by %s at %s with %s\n";
+ int i;
+
+ switch (form->menu->operation) {
+ case MM_SHOW_USER:
+ sprintf(name, "%s, %s %s", info[U_LAST], info[U_FIRST], info[U_MIDDLE]);
+ sprintf(buf, "Login name: %-20s Full name: %s\n", info[U_NAME], name);
+ add_to_display(buf);
+ sprintf(buf, "User id: %-23s Login shell %-10s Class: %s\n",
+ info[U_UID], info[U_SHELL], info[U_CLASS]);
+ add_to_display(buf);
+ sprintf(buf, "Account is: %-20s Encrypted MIT ID number: %s\n",
+ user_states[atoi(info[U_STATE])], info[U_MITID]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT,
+ info[U_MODBY], info[U_MODTIME],info[U_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_FINGER:
+ sprintf(buf, "Nickname: %-29s Department: %s\n", info[F_NICKNAME],
+ info[F_MIT_DEPT]);
+ add_to_display(buf);
+ sprintf(buf, "finger %s =>\n", info[F_NAME]);
+ add_to_display(buf);
+ sprintf(buf, "Login name: %-27s In real life: %s\n", info[F_NAME],
+ info[F_FULLNAME]);
+ add_to_display(buf);
+ sprintf(buf, "Home: %-33s Home phone: %s\n", info[F_HOME_ADDR],
+ info[F_HOME_PHONE]);
+ add_to_display(buf);
+ sprintf(buf, "Office: %-31s Office phone: %s\n", info[F_OFFICE_ADDR],
+ info[F_OFFICE_PHONE]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_POBOX:
+ sprintf(buf, "Address: %-10s Box: %-35s Type: %s\n", info[PO_NAME],
+ info[PO_BOX], info[PO_TYPE]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[4], info[3], info[5]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_KRBMAP:
+ sprintf(buf, "User: %-9s Principal: %s\n",
+ info[KMAP_USER], info[KMAP_PRINCIPAL]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_FILSYS:
+ case MM_SHOW_FSGROUP:
+ if (!strcmp(info[FS_TYPE], "FSGROUP")) {
+ int stat;
+/* struct qelem *elem = NULL; */
+
+ sprintf(buf,"%20s Filesystem Group: %s\n", " ", info[FS_NAME]);
+ add_to_display(buf);
+
+ sprintf(buf,"Comments: %s\n",info[FS_COMMENTS]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[FS_MODBY], info[FS_MODTIME],
+ info[FS_MODWITH]);
+ add_to_display(buf);
+ add_to_display("Containing the filesystems (in order):");
+/*
+ if ((stat = do_moira_query("get_fsgroup_members", 1, &info[FS_NAME],
+ StoreInfo, (char *)&elem)) != 0) {
+ if (stat == MR_NO_MATCH)
+ add_to_display(" [no members]");
+ else
+ com_err(program_name, stat, NULL);
+ } else {
+ fsgCount = 1;
+ Loop(QueueTop(elem), (void *) PrintFSGMembers);
+ FreeQueue(elem);
+ }
+*/
+ } else {
+ sprintf(buf,"%20s Filesystem: %s\n", " ", info[FS_NAME]);
+ add_to_display(buf);
+ sprintf(buf,"Type: %-40s Machine: %-15s\n",
+ info[FS_TYPE], info[FS_MACHINE]);
+ add_to_display(buf);
+ sprintf(buf,"Default Access: %-2s Packname: %-17s Mountpoint %s \n",
+ info[FS_ACCESS], info[FS_PACK], info[FS_M_POINT]);
+ add_to_display(buf);
+ sprintf(buf,"Comments: %s\n",info[FS_COMMENTS]);
+ add_to_display(buf);
+ sprintf(buf, "User Ownership: %-30s Group Ownership: %s\n",
+ info[FS_OWNER], info[FS_OWNERS]);
+ add_to_display(buf);
+ sprintf(buf, "Auto Create: %-34s Locker Type: %s\n",
+ atoi(info[FS_CREATE]) ? "ON" : "OFF",
+ info[FS_L_TYPE]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[FS_MODBY], info[FS_MODTIME],
+ info[FS_MODWITH]);
+ add_to_display(buf);
+ }
+ break;
+ case MM_SHOW_NFS:
+ sprintf(buf,"Machine: %-20s Directory: %-15s Device: %s\n",
+ info[NFS_NAME], info[NFS_DIR], info[NFS_DEVICE]);
+ add_to_display(buf);
+
+ sprintf(buf, "Status: %s\n",
+ format_filesys_type(atoi(info[NFS_STATUS])));
+ add_to_display(buf);
+ sprintf(buf, "Quota Allocated: %-17s Size: %s\n",
+ info[NFS_ALLOC], info[NFS_SIZE]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[NFS_MODBY], info[NFS_MODTIME],
+ info[NFS_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_QUOTA:
+ if (!strcmp(info[Q_TYPE], "ANY"))
+ sprintf(buf, "Filesystem: %s\n", info[Q_FILESYS]);
+ else
+ sprintf(buf, "Filesystem: %-45s %s %s\n", info[Q_FILESYS],
+ info[Q_TYPE], info[Q_NAME]);
+ add_to_display(buf);
+ sprintf(buf, "Machine: %-20s Directory: %-15s\n",
+ info[Q_MACHINE], info[Q_DIRECTORY]);
+ add_to_display(buf);
+ sprintf(buf, "Quota: %s\n", info[Q_QUOTA]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[Q_MODBY], info[Q_MODTIME], info[Q_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_LIST:
+ (void) sprintf(buf, "%20sList: %s\n", "", info[L_NAME]);
+ add_to_display(buf);
+ (void) sprintf(buf, "Description: %s\n", info[L_DESC]);
+ add_to_display(buf);
+ if ( atoi(info[L_MAILLIST]))
+ add_to_display("This list is a mailing list.\n");
+ else
+ add_to_display("This list is NOT a mailing list.\n");
+ if (atoi(info[L_GROUP])) {
+ (void) sprintf(buf,"This list is a Group and its ID number is %s\n",
+ info[L_GID]);
+ add_to_display(buf);
+ } else
+ add_to_display("This list is NOT a Group.\n");
+ if (strcmp(info[L_ACE_TYPE],"NONE") == 0)
+ add_to_display("This list has no Administrator, how strange?!\n");
+ else {
+ sprintf(buf, "The Administrator of this list is the %s: %s\n",
+ info[L_ACE_TYPE], info[L_ACE_NAME]);
+ add_to_display(buf);
+ }
+ (void) sprintf(buf, "This list is: %s, %s, and %s\n",
+ atoi(info[L_ACTIVE]) ? "active" : "inactive",
+ atoi(info[L_PUBLIC]) ? "public" : "private",
+ atoi(info[L_HIDDEN]) ? "hidden" : "visible");
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[L_MODBY], info[L_MODTIME], info[L_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_MACH:
+ sprintf(buf, "Machine: %-30s Type: %s\n", info[M_NAME], info[M_TYPE]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[M_MODBY], info[M_MODTIME], info[M_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_CLUSTER:
+ sprintf(buf, "Cluster: %s\n", info[C_NAME]);
+ add_to_display(buf);
+ sprintf(buf, "Description: %s\n", info[C_DESCRIPT]);
+ add_to_display(buf);
+ sprintf(buf, "Location: %s\n", info[C_LOCATION]);
+ add_to_display(buf);
+ sprintf(buf, MOD_FORMAT, info[C_MODBY], info[C_MODTIME], info[C_MODWITH]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_CLDATA:
+ sprintf(buf, "Cluster: %-20s Label: %-15s Data: %s\n",
+ info[CD_NAME], info[CD_LABEL], info[CD_DATA]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_MEMBERS:
+ if (argc == 2)
+ sprintf(buf, "%-9s %s\n", info[0], info[1]);
+ else
+ sprintf(buf, "%s\n", info[0]);
+ add_to_display(buf);
+ break;
+ case MM_STATS:
+ sprintf(buf, "Table: %-20s Modified: %s\n", info[0], info[5]);
+ add_to_display(buf);
+ sprintf(buf, " %-8D appends, %-8d updates, %-8d deletes\n",
+ info[2], info[3], info[4]);
+ add_to_display(buf);
+ break;
+ case MM_CLIENTS:
+ {
+ unsigned long host_address;
+ struct hostent *host_entry;
+
+ host_address = inet_addr(info[1]);
+ if (host_address != NULL) {
+ host_entry = gethostbyaddr((char *)&host_address, 4, AF_INET);
+ if (host_entry != NULL) {
+ free(info[1]);
+ info[1] = strsave(host_entry->h_name);
+ }
+ }
+ }
+ sprintf(buf, "Principal %s on %s (%s)\n", info[0], info[1], info[2]);
+ add_to_display(buf);
+ sprintf(buf, " Connected at %s, client %s\n", info[3], info[4]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_VALUE:
+ sprintf(buf, "Variable: %-20s Value: %s\n", stringval(form, 0),
+ info[0]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_ALIAS:
+ sprintf(buf, "Alias: %-20s Type: %-8s Value: %s\n",
+ info[0], info[1], info[2]);
+ add_to_display(buf);
+ break;
+ case MM_SHOW_HOST:
+ sprintf(buf, "%s:%s mod by %s on %s with %s\n", info[SH_MACHINE],
+ info[SH_SERVICE], info[SH_MODBY], info[SH_MODTIME],
+ info[SH_MODWITH]);
+ Put_message(buf);
+ if (atoi(info[SH_HOSTERROR]))
+ sprintf(name, "Error %d: %s", atoi(info[SH_HOSTERROR]),
+ info[SH_ERRMSG]);
+ else
+ strcpy(name, "No error");
+ sprintf(buf, " %s/%s/%s/%s/%s\n",
+ atoi(info[SH_ENABLE]) ? "Enabled" : "Disabled",
+ atoi(info[SH_SUCCESS]) ? "Success" : "Failure",
+ atoi(info[SH_INPROGRESS]) ? "InProgress" : "Idle",
+ atoi(info[SH_OVERRIDE]) ? "Override" : "Normal", name);
+ Put_message(buf);
+ Put_message(" Last Try Last Success Value1 Value2 Value3\n");
+ strcpy(name, atot(info[SH_LASTTRY]));
+ sprintf(buf, " %-20s %-20s %-9d %-9d %s\n", name,
+ atot(info[SH_LASTSUCCESS]), atoi(info[SH_VALUE1]),
+ atoi(info[SH_VALUE2]), info[SH_VALUE3]);
+ Put_message(buf);
+ break;
+ case MM_SHOW_DQUOTA:
+ sprintf(buf, "The default quota is %s Kbytes.\n", info[0]);
+ Put_message(buf);
+ break;
+ case MM_SHOW_DCM:
+ if (argc == 2)
+ sprintf(buf, "%s:%s\n", info[0], info[1]);
+ else
+ sprintf(buf, "%s\n", info[0]);
+ Put_message(buf);
+ break;
+ default:
+ for (i = 0; i < argc; i++) {
+ if (i != 0) add_to_display(", ");
+ add_to_display(info[i]);
+ }
+ add_to_display("\n");
+ }
+ return(MR_CONT);
+}
+
+
+/* Called with moira data that is to be modified. */
+
+int ModifyCallback(argc, argv, form)
+int argc;
+char **argv;
+EntryForm *form;
+{
+ EntryForm *f;
+ char *fn;
+ int count, i, offset;
+
+ count = -1;
+ offset = 0;
+ switch (form->menu->operation) {
+ case MM_MOD_USER:
+ fn = "mod_user";
+ count = U_MODTIME;
+ break;
+ case MM_MOD_FINGER:
+ fn = "mod_finger";
+ count = F_MODTIME - 1;
+ offset = 1;
+ break;
+ case MM_REGISTER:
+ if (form->extrastuff)
+ form->extrastuff = NULL;
+ else
+ form->extrastuff = strsave(argv[U_UID]);
+ return;
+ break;
+ case MM_MOD_LIST:
+ fn = "mod_list";
+ count = L_MODTIME;
+ break;
+ case MM_MOD_FILSYS:
+ fn = "mod_filsys";
+ count = FS_MODTIME;
+ break;
+ }
+
+ if (count > 0) {
+ f = GetAndClearForm(fn);
+ if (f == NULL) {
+ display_error("Unknown form in ModifyCallback!\n");
+ return;
+ }
+ f->extrastuff = form->extrastuff;
+ f->menu = form->menu;
+ for (i = 0; i < count; i++)
+ if (f->inputlines[i]->type == FT_BOOLEAN)
+ f->inputlines[i]->returnvalue.boolean =
+ strcmp(argv[i + offset], "0") ? 1 : 0;
+ else
+ StoreField(f, i, argv[i + offset]);
+ } else {
+ display_error("Unknown function in ModifyCallback!\n");
+ return;
+ }
+}
+
+
+
+/* callback when form is complete to process the data */
+
+MoiraFormComplete(dummy1, form)
+int dummy1;
+EntryForm *form;
+{
+ char *qy, *argv[32], buf[256];
+ int (*retfunc)(), argc, i;
+ EntryForm *f;
+
+ retfunc = DisplayCallback;
+ argc = -1;
+
+ for (i = 0; form->inputlines[i]; i++)
+ if (form->inputlines[i]->type == FT_BOOLEAN)
+ argv[i] = boolval(form, i) ? "1" : "0";
+ else
+ argv[i] = stringval(form, i);
+
+ switch (form->menu->operation) {
+ case MM_SHOW_USER:
+ if (*stringval(form, 0)) {
+ qy = "get_user_by_login";
+ argv[0] = stringval(form, 0);
+ argc = 1;
+ } else if (*stringval(form, 3)) {
+ qy = "get_user_by_uid";
+ argv[0] = stringval(form, 3);
+ argc = 1;
+ } else if (*stringval(form, 4)) {
+ qy = "get_user_by_class";
+ argv[0] = stringval(form, 4);
+ argc = 1;
+ } else if (*stringval(form, 1) == 0 &&
+ *stringval(form, 2) == 0) {
+ DisplayError("Must fill in at least one blank.");
+ return;
+ } else {
+ if (*stringval(form, 1) == 0)
+ StoreField(form, 1, "*");
+ if (*stringval(form, 2) == 0)
+ StoreField(form, 2, "*");
+ qy = "get_user_by_name";
+ argv[0] = stringval(form, 1);
+ argv[1] = stringval(form, 2);
+ argc = 2;
+ }
+ break;
+ case MM_ADD_USER:
+ qy = "add_user";
+ argv[U_STATE][1] = 0;
+ if (argv[U_MITID][0] == '"')
+ strcpy(argv[U_MITID], stringval(form, U_MITID) + 1,
+ strlen(stringval(form, U_MITID) - 2));
+ else
+ EncryptID(argv[U_MITID], argv[U_MITID], argv[U_FIRST], argv[U_LAST]);
+ argc = U_MODTIME;
+ break;
+ case MM_REGISTER:
+ if (*stringval(form, 2)) {
+ argv[0] = stringval(form, 2);
+ } else {
+ argv[0] = stringval(form, 0);
+ argv[1] = stringval(form, 1);
+ form->extrastuff = NULL;
+ i = MoiraQuery("get_user_by_name", 2, argv,
+ ModifyCallback, (char *)form);
+ if (i) {
+ com_err(program_name, i, "looking up user by name");
+ return;
+ }
+ if (form->extrastuff == NULL) {
+ display_error("Ambiguous user specification");
+ return;
+ }
+ argv[0] = (char *)form->extrastuff;
+ }
+ qy = "register_user";
+ argv[1] = stringval(form, 3);
+ argv[2] = "1";
+ argc = 3;
+ break;
+ case MM_MOD_USER:
+ if (!strcmp(form->formname, "mod_user")) {
+ qy = "update_user";
+ for (i = 0; i < U_MODTIME; i++)
+ argv[i + 1] = stringval(form, i);
+ argv[0] = form->extrastuff;
+ argv[U_STATE + 1][1] = 0;
+ if (argv[U_MITID + 1][0] == '"') {
+ strcpy(argv[U_MITID + 1], stringval(form, U_MITID) + 1);
+ stringval(form, U_MITID)[strlen(stringval(form, U_MITID))-1] = 0;
+ } else
+ EncryptID(argv[U_MITID + 1], argv[U_MITID + 1],
+ argv[U_FIRST + 1], argv[U_LAST + 1]);
+ argc = U_MODTIME + 1;
+ break;
+ }
+ qy = "get_user_by_login";
+ argv[0] = stringval(form, 0);
+ argc = 1;
+ form->extrastuff = (caddr_t) "mod_user";
+ retfunc = ModifyCallback;
+ break;
+ case MM_DEACTIVATE:
+ qy = "update_user_status";
+ argv[0] = stringval(form, 0);
+ argv[1] = "3";
+ argc = 2;
+ break;
+ case MM_EXPUNGE:
+ display_error("Expunge is not yet implemented");
+ return;
+ break;
+ case MM_SHOW_FINGER:
+ qy = "get_finger_by_login";
+ argc = 1;
+ break;
+ case MM_MOD_FINGER:
+ if (!strcmp(form->formname, "mod_finger")) {
+ qy = "update_finger_by_login";
+ for (i = 0; i < F_MODTIME - 1; i++)
+ argv[i + 1] = stringval(form, i);
+ argv[0] = form->extrastuff;
+ argc = F_MODTIME;
+ break;
+ }
+ qy = "get_finger_by_login";
+ argc = 1;
+ form->extrastuff = (caddr_t) "mod_finger";
+ retfunc = ModifyCallback;
+ break;
+ case MM_SHOW_KRBMAP:
+ qy = "get_krbmap";
+ if (!*stringval(form, 0))
+ argv[0] = "*";
+ if (!*stringval(form, 1))
+ argv[1] = "*";
+ argc = 2;
+ break;
+ case MM_ADD_KRBMAP:
+ qy = "add_krbmap";
+ argc = 2;
+ break;
+ case MM_DEL_KRBMAP:
+ qy = "delete_krbmap";
+ argc = 2;
+ break;
+ case MM_SHOW_POBOX:
+ qy = "get_pobox";
+ argc = 1;
+ break;
+ case MM_SET_POBOX:
+ qy = "set_pobox";
+ if (!strcmp(argv[1], "POP"))
+ argv[2] = stringval(form, 3);
+ argc = 3;
+ break;
+ case MM_RESET_POBOX:
+ qy = "set_pobox_pop";
+ argc = 1;
+ break;
+ case MM_DEL_POBOX:
+ qy = "set_pobox";
+ argv[0] = stringval(form, 0);
+ argv[1] = "NONE";
+ argv[2] = "";
+ argc = 3;
+ break;
+ case MM_SHOW_LIST:
+ qy = "get_list_info";
+ argc = 1;
+ break;
+ case MM_SHOW_ACE_USE:
+ qy = "get_ace_use";
+ if (boolval(form, 2)) {
+ sprintf(buf, "R%s", stringval(form, 0));
+ argv[0] = buf;
+ }
+ argc = 2;
+ break;
+ case MM_ADD_LIST:
+ qy = "add_list";
+ argc = L_MODTIME;
+ break;
+ case MM_MOD_LIST:
+ if (!strcmp(form->formname, "mod_list")) {
+ qy = "update_list";
+ for (i = 0; i < L_MODTIME; i++)
+ argv[i + 1] = stringval(form, i);
+ argv[0] = form->extrastuff;
+ argc = L_MODTIME + 1;
+ break;
+ }
+ qy = "get_list_info";
+ argc = 1;
+ form->extrastuff = (caddr_t) "mod_list";
+ retfunc = ModifyCallback;
+ break;
+ case MM_DEL_LIST:
+ qy = "delete_list";
+ argc = 1;
+ break;
+ case MM_SHOW_MEMBERS:
+ if (*stringval(form, 0)) {
+ qy = "get_members_of_list";
+ argc = 1;
+ } else {
+ qy = "get_lists_of_member";
+ argv[0] = stringval(form, 1);
+ if (boolval(form, 3)) {
+ sprintf(buf, "R%s", stringval(form, 1));
+ argv[0] = buf;
+ }
+ argv[1] = stringval(form, 2);
+ argc = 2;
+ }
+ break;
+ case MM_ADD_MEMBER:
+ qy = "add_member_to_list";
+ argc = 3;
+ break;
+ case MM_DEL_MEMBER:
+ qy = "delete_member_from_list";
+ argc = 3;
+ break;
+ case MM_DEL_ALL_MEMBER:
+ display_error("Not yet implemented.");
+ return;
+ break;
+ case MM_SHOW_FILSYS:
+ if (*stringval(form, 0)) {
+ qy = "get_filesys_by_label";
+ argv[0] = stringval(form, 0);
+ argc = 1;
+ } else if (*stringval(form, 1)) {
+ argv[0] = canonicalize_hostname(stringval(form, 1));
+ if (*stringval(form, 2)) {
+ qy = "get_filesys_by_nfsphys";
+ argv[1] = stringval(form, 2);
+ argc = 2;
+ } else {
+ qy = "get_filesys_by_machine";
+ argc = 1;
+ }
+ } else if (*stringval(form, 3)) {
+ qy = "get_filesys_by_group";
+ argv[0] = stringval(form, 3);
+ argc = 1;
+ }
+ break;
+ case MM_ADD_FILSYS:
+ qy = "add_filesys";
+ argv[FS_MACHINE] = canonicalize_hostname(stringval(form, FS_MACHINE));
+ if (!strcmp(stringval(form, FS_TYPE), "AFS") ||
+ !strcmp(stringval(form, FS_TYPE), "FSGROUP"))
+ argv[FS_MACHINE] = "\\[NONE\\]";
+ argc = FS_MODTIME;
+ break;
+ case MM_MOD_FILSYS:
+ if (!strcmp(form->formname, "mod_filsys")) {
+ qy = "update_filsys";
+ for (i = 0; i < FS_MODTIME; i++)
+ argv[i + 1] = stringval(form, i);
+ argv[0] = form->extrastuff;
+ argc = FS_MODTIME + 1;
+ break;
+ }
+ qy = "get_filesys_by_label";
+ argv[0] = stringval(form, 0);
+ argc = 1;
+ form->extrastuff = (caddr_t) "mod_filsys";
+ retfunc = ModifyCallback;
+ break;
+ }
+
+ if (argc == -1) {
+ display_error("Unknown function in form callback.\n");
+ return;
+ }
+ i = MoiraQuery(qy, argc, argv, retfunc, (char *)form);
+ if (i) {
+ com_err(program_name, i, "executing database query");
+ return;
+ }
+
+ f = NULL;
+ if (form->extrastuff && (f = GetForm((char *)(form->extrastuff)))) {
+ f->extrastuff = (caddr_t) strsave(stringval(form, 0));
+ f->menu = form->menu;
+ }
+
+ switch (form->menu->operation) {
+ case MM_MOD_USER:
+ if (f) {
+ qy = strsave(stringval(f, U_MITID));
+ sprintf(stringval(f, U_MITID), "\"%s\"", qy);
+ free(qy);
+ f->inputlines[U_STATE]->keywords = user_states;
+ StoreField(f, U_STATE, user_states[atoi(stringval(f, U_STATE))]);
+ GetKeywords(f, U_CLASS, "class");
+ } else
+ add_to_display("Done.\n");
+ break;
+ case MM_MOD_FINGER:
+ if (!f)
+ add_to_display("Done.\n");
+ break;
+ case MM_MOD_LIST:
+ if (f)
+ GetKeywords(f, L_ACE_TYPE, "ace_type");
+ else
+ add_to_display("Done.\n");
+ break;
+ case MM_MOD_FILSYS:
+ if (f) {
+ GetKeywords(f, FS_TYPE, "filesys");
+ sprintf(buf, "fs_access_%s", stringval(f, FS_TYPE));
+ GetKeywords(f, FS_ACCESS, buf);
+ GetKeywords(f, FS_L_TYPE, "lockertype");
+ if (!strcmp(stringval(f, FS_MACHINE), "[NONE]"))
+ StoreField(f, FS_MACHINE, "\\[NONE\\]");
+ } else
+ add_to_display("Done.\n");
+ break;
+ case MM_ADD_HOST:
+ case MM_DEL_HOST:
+ case MM_CLEAR_HOST:
+ case MM_RESET_HOST:
+ case MM_ADD_SERVICE:
+ case MM_DEL_SERVICE:
+ case MM_CLEAR_SERVICE:
+ case MM_RESET_SERVICE:
+ case MM_ENABLE_DCM:
+ case MM_TRIGGER_DCM:
+ case MM_ADD_ZEPHYR:
+ case MM_DEL_ZEPHYR:
+ case MM_ADD_PCAP:
+ case MM_DEL_PCAP:
+ case MM_ADD_CLDATA:
+ case MM_DEL_CLDATA:
+ case MM_ADD_MCMAP:
+ case MM_DEL_MCMAP:
+ case MM_ADD_CLUSTER:
+ case MM_DEL_CLUSTER:
+ case MM_ADD_MACH:
+ case MM_DEL_MACH:
+ case MM_ADD_MEMBER:
+ case MM_DEL_MEMBER:
+ case MM_DEL_ALL_MEMBER:
+ case MM_ADD_LIST:
+ case MM_DEL_LIST:
+ case MM_ADD_QUOTA:
+ case MM_DEL_QUOTA:
+ case MM_SET_DQUOTA:
+ case MM_ADD_NFS:
+ case MM_DEL_NFS:
+ case MM_ADD_FS_ALIAS:
+ case MM_DEL_FS_ALIAS:
+ case MM_ADD_FSGROUP:
+ case MM_MOV_FSGROUP:
+ case MM_DEL_FSGROUP:
+ case MM_ADD_FILSYS:
+ case MM_DEL_FILSYS:
+ case MM_ADD_KRBMAP:
+ case MM_DEL_KRBMAP:
+ case MM_SET_POBOX:
+ case MM_DEL_POBOX:
+ case MM_ADD_USER:
+ case MM_REGISTER:
+ case MM_DEACTIVATE:
+ case MM_EXPUNGE:
+ add_to_display("Done.\n");
+ }
+
+ if (f)
+ DisplayForm(f);
+}
+
+
+MoiraMenuComplete(m)
+MenuItem *m;
+{
+ char *qy, *argv[32];
+ int (*retfunc)(), argc, i;
+ EntryForm dummy;
+
+ retfunc = DisplayCallback;
+ argc = -1;
+ dummy.menu = m;
+
+ switch (m->operation) {
+ case MM_SHOW_MAILLIST:
+ qy = "qualified_get_lists";
+ argv[0] = argv[1] = argv[3] = "TRUE";
+ argv[2] = "FALSE";
+ argv[4] = "DONTCARE";
+ argc = 5;
+ break;
+ case MM_SHOW_DQUOTA:
+ qy = "get_value";
+ argv[0] = "def_quota";
+ argc = 1;
+ break;
+ case MM_SHOW_DCM:
+ Put_message("Services and Hosts with failed updates:");
+ argv[0] = argv[2] = "DONTCARE";
+ argv[1] = "TRUE";
+ i = MoiraQuery("qualified_get_server", 3, argv, retfunc, NULL);
+ if (i && i != MR_NO_MATCH)
+ com_err(program_name, i, "executing database query");
+ qy = "qualified_get_server_host";
+ argv[0] = "*";
+ argv[1] = argv[2] = argv[3] = argv[5] = "DONTCARE";
+ argv[4] = "TRUE";
+ argc = 6;
+ break;
+ case MM_STATS:
+ qy = "get_all_table_stats";
+ argc = 0;
+ break;
+ case MM_CLIENTS:
+ qy = "_list_users";
+ argc = 0;
+ break;
+ }
+ if (argc == -1) {
+ display_error("Unknown function in menu callback.\n");
+ return;
+ }
+ i = MoiraQuery(qy, argc, argv, retfunc, (char *)&dummy);
+ if (i)
+ com_err(program_name, i, "executing database query");
+}
+
+
+/******* temporary ********/
+DisplayError(msg) char *msg; { fprintf(stderr, "%s\n", msg); }
+Put_message(msg) char *msg; { fputs( msg, stderr); }
+add_to_display(msg) char *msg; { fputs(msg, stderr); }