diff options
| -rw-r--r-- | USER/USER.xs | 154 |
1 files changed, 0 insertions, 154 deletions
diff --git a/USER/USER.xs b/USER/USER.xs index 0aa7b61..bb11612 100644 --- a/USER/USER.xs +++ b/USER/USER.xs @@ -44,160 +44,6 @@ typedef struct lu_context USER__ADMIN; typedef struct lu_ent USER__ENT; typedef struct lu_error USER__ERR; -static SV ** convert_value_array_list(register SV **sp, GValueArray *array) { - GValue *value; - int i; - long l; - const char *s; - for (i = 0; (array != NULL) && (i < array->n_values); i++) { - value = g_value_array_get_nth(array, i); - /* If the item is a G_TYPE_LONG, add it as a double. */ - if (G_VALUE_HOLDS_LONG(value)) { - l = g_value_get_long(value); - XPUSHs(sv_2mortal(newSViv(l))); - } else if (G_VALUE_HOLDS_STRING(value)) { - s = g_value_get_string(value); - XPUSHs(sv_2mortal(newSVpv(s, 0))); - } - } - return sp; -} - -/* Create a mail spool for the user. */ -int -lu_mailspool_create_remove(USER__ADMIN *ctx, USER__ENT *ent, - int action) -{ - GValueArray *array; - GValue *value; - const char *spooldir; - long uid, gid; - char *p, *username; - struct group grp, *err; - USER__ENT *groupEnt; - USER__ERR *error = NULL; - char buf[LINE_MAX * 4]; - int fd; - - /* Find the GID of the owner of the file. */ - gid = INVALID; - groupEnt = lu_ent_new(); - if (lu_group_lookup_name(ctx, "mail", groupEnt, &error)) { - array = lu_ent_get(groupEnt, LU_GIDNUMBER); - if (array != NULL) { - value = g_value_array_get_nth(array, 0); - if (G_VALUE_HOLDS_LONG(value)) { - gid = g_value_get_long(value); - } else - if (G_VALUE_HOLDS_STRING(value)) { - gid = strtol(g_value_get_string(value), &p, 0); - if (*p != '\0') { - gid = INVALID; - } - } else { - g_assert_not_reached(); - } - } - } - lu_ent_free(groupEnt); - - /* Er, okay. Check with libc. */ - if (gid == INVALID) { - if ((getgrnam_r("mail", &grp, buf, sizeof(buf), &err) == 0) && - (err == &grp)) { - gid = grp.gr_gid; - } - } - - /* Aiieee. Use the user's group. */ - if (gid == INVALID) { - array = lu_ent_get(ent, LU_GIDNUMBER); - if (array != NULL) { - value = g_value_array_get_nth(array, 0); - if (G_VALUE_HOLDS_LONG(value)) { - gid = g_value_get_long(value); - } else - if (G_VALUE_HOLDS_STRING(value)) { - gid = strtol(g_value_get_string(value), &p, 0); - if (*p == '\0') { - gid = INVALID; - } - } else { - g_warning("Unable to determine user's GID."); - g_assert_not_reached(); - } - } - } - g_return_val_if_fail(gid != INVALID, FALSE); - - /* Now get the user's UID. */ - array = lu_ent_get(ent, LU_UIDNUMBER); - if (array != NULL) { - value = g_value_array_get_nth(array, 0); - uid = INVALID; - if (G_VALUE_HOLDS_LONG(value)) { - uid = g_value_get_long(value); - } else - if (G_VALUE_HOLDS_STRING(value)) { - uid = strtol(g_value_get_string(value), &p, 0); - if (*p != '\0') { - uid = INVALID; - } - } else { - g_warning("Unable to determine user's UID."); - g_assert_not_reached(); - } - } - g_return_val_if_fail(uid != INVALID, FALSE); - - /* Now get the user's login. */ - username = NULL; - array = lu_ent_get(ent, LU_USERNAME); - if (array != NULL) { - value = g_value_array_get_nth(array, 0); - if (G_VALUE_HOLDS_LONG(value)) { - username = g_strdup_printf("%ld", - g_value_get_long(value)); - } else - if (G_VALUE_HOLDS_STRING(value)) { - username = g_value_dup_string(value); - } else { - g_warning("Unable to determine user's name."); - g_assert_not_reached(); - } - } - g_return_val_if_fail(username != NULL, FALSE); - - /* Get the location of the spool directory. */ - spooldir = lu_cfg_read_single(ctx, "defaults/mailspooldir", - "/var/mail"); - - /* That wasn't that hard. Now we just need to create the file. */ - p = g_strdup_printf("%s/%s", spooldir, username); - g_free(username); - if (action) { - fd = open(p, O_WRONLY | O_CREAT, 0); - if (fd != -1) { - fchown(fd, uid, gid); - fchmod(fd, S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP); - close(fd); - g_free(p); - return 1; - } - } else { - if (unlink(p) == 0) { - g_free(p); - return 1; - } - if (errno == ENOENT) { - g_free(p); - return 1; - } - } - g_free(p); - - return 0; -} MODULE = USER PACKAGE = USER::ADMIN PREFIX = Admin_ |