+++ /dev/null
-/*
- * This module implementsserver commands related to the display and
- * manipulation of user "bio" files.
- *
- * Copyright (c) 1987-2021 by the citadel.org team
- *
- * This program is open source software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 3 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- */
-
-#include "ctdl_module.h"
-#include "config.h"
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <dirent.h>
-
-
-/*
- * Command to enter user bio (profile) in plain text.
- * This is deprecated , or at least it will be when its replacement is written :)
- * I want commands to get/set bio in full MIME wonderfulness.
- */
-void cmd_ebio(char *cmdbuf) {
- char buf[SIZ];
-
- unbuffer_output();
-
- if (!(CC->logged_in)) {
- cprintf("%d Not logged in.\n", ERROR + NOT_LOGGED_IN);
- return;
- }
-
- StrBuf *NewProfile = NewStrBufPlain("Content-type: text/plain; charset=UTF-8\nContent-transfer-encoding: 8bit\n\n", -1);
-
- cprintf("%d Transmit user profile in plain text now.\n", SEND_LISTING);
- while(client_getln(buf, sizeof buf) >= 0 && strcmp(buf,"000")) {
- StrBufAppendBufPlain(NewProfile, buf, -1, 0);
- StrBufAppendBufPlain(NewProfile, HKEY("\n"), 0);
- }
-
- /* we have read the new profile from the user , now save it */
- long old_msgnum = CC->user.msgnum_bio;
- char userconfigroomname[ROOMNAMELEN];
- CtdlMailboxName(userconfigroomname, sizeof userconfigroomname, &CC->user, USERCONFIGROOM);
- long new_msgnum = quickie_message("Citadel", NULL, NULL, userconfigroomname, ChrPtr(NewProfile), FMT_RFC822, "Profile submitted with EBIO command");
- FreeStrBuf(&NewProfile);
- CtdlGetUserLock(&CC->user, CC->curr_user);
- CC->user.msgnum_bio = new_msgnum;
- CtdlPutUserLock(&CC->user);
- if (old_msgnum > 0) {
- syslog(LOG_DEBUG, "Deleting old message %ld from %s", old_msgnum, userconfigroomname);
- CtdlDeleteMessages(userconfigroomname, &old_msgnum, 1, "");
- }
-}
-
-
-/*
- * Command to read user bio (profile) in plain text.
- * This is deprecated , or at least it will be when its replacement is written :)
- * I want commands to get/set bio in full MIME wonderfulness.
- */
-void cmd_rbio(char *cmdbuf)
-{
- struct ctdluser ruser;
- char buf[SIZ];
-
- extract_token(buf, cmdbuf, 0, '|', sizeof buf);
- if (CtdlGetUser(&ruser, buf) != 0) {
- cprintf("%d No such user.\n",ERROR + NO_SUCH_USER);
- return;
- }
-
- cprintf("%d OK|%s|%ld|%d|%ld|%ld|%ld\n", LISTING_FOLLOWS,
- ruser.fullname, ruser.usernum, ruser.axlevel,
- (long)ruser.lastcall, ruser.timescalled, ruser.posted);
-
- struct CtdlMessage *msg = CtdlFetchMessage(ruser.msgnum_bio, 1);
- if (msg != NULL) {
- CtdlOutputPreLoadedMsg(msg, MT_CITADEL, HEADERS_NONE, 0, 0, 0);
- CM_Free(msg);
- }
- cprintf("000\n");
-}
-
-
-/*
- * Import function called by import_old_bio_files() for a single user
- */
-void import_one_bio_file(char *username, long usernum, char *path)
-{
- syslog(LOG_DEBUG, "Import legacy bio for %s, usernum=%ld, filename=%s", username, usernum, path);
-
- FILE *fp = fopen(path, "r");
- if (!fp) return;
-
- fseek(fp, 0, SEEK_END);
- long data_length = ftell(fp);
-
- if (data_length >= 1) {
- rewind(fp);
- char *unencoded_data = malloc(data_length);
- if (unencoded_data) {
- fread(unencoded_data, data_length, 1, fp);
- char *encoded_data = malloc((data_length * 2) + 100);
- if (encoded_data) {
- sprintf(encoded_data, "Content-type: text/plain; charset=UTF-8\nContent-transfer-encoding: base64\n\n");
- CtdlEncodeBase64(&encoded_data[strlen(encoded_data)], unencoded_data, data_length, 1);
-
- char userconfigroomname[ROOMNAMELEN];
- struct ctdluser usbuf;
-
- if (CtdlGetUser(&usbuf, username) == 0) { // no need to lock it , we are still initializing
- long old_msgnum = usbuf.msgnum_bio;
- CtdlMailboxName(userconfigroomname, sizeof userconfigroomname, &usbuf, USERCONFIGROOM);
- long new_msgnum = quickie_message("Citadel", NULL, NULL, userconfigroomname, encoded_data, FMT_RFC822, "Profile imported from bio");
- syslog(LOG_DEBUG, "Message %ld is now the profile for %s", new_msgnum, username);
- usbuf.msgnum_bio = new_msgnum;
- CtdlPutUser(&usbuf);
- unlink(path); // delete the old file , it's in the database now
- if (old_msgnum > 0) {
- syslog(LOG_DEBUG, "Deleting old message %ld from %s", old_msgnum, userconfigroomname);
- CtdlDeleteMessages(userconfigroomname, &old_msgnum, 1, "");
- }
- }
- free(encoded_data);
- }
- free(unencoded_data);
- }
- }
- fclose(fp);
-}
-
-
-/*
- * Look for old-format "bio" files and import them into the message base
- */
-void import_old_bio_files(void)
-{
- DIR *filedir = NULL;
- struct dirent *filedir_entry;
- size_t d_namelen;
- struct ctdluser usbuf;
- long usernum = 0;
- int d_type = 0;
- struct stat s;
- char path[PATH_MAX];
-
-
- syslog(LOG_DEBUG, "Importing old style bio files into the message base");
- filedir = opendir("bio");
- if (filedir == NULL) {
- return;
- }
- while ( (filedir_entry = readdir(filedir)) , (filedir_entry != NULL))
- {
-#ifdef _DIRENT_HAVE_D_NAMLEN
- d_namelen = filedir_entry->d_namlen;
-
-#else
- d_namelen = strlen(filedir_entry->d_name);
-#endif
-
-#ifdef _DIRENT_HAVE_D_TYPE
- d_type = filedir_entry->d_type;
-#else
-
-#ifndef DT_UNKNOWN
-#define DT_UNKNOWN 0
-#define DT_DIR 4
-#define DT_REG 8
-#define DT_LNK 10
-
-#define IFTODT(mode) (((mode) & 0170000) >> 12)
-#define DTTOIF(dirtype) ((dirtype) << 12)
-#endif
- d_type = DT_UNKNOWN;
-#endif
- if ((d_namelen == 1) &&
- (filedir_entry->d_name[0] == '.'))
- continue;
-
- if ((d_namelen == 2) &&
- (filedir_entry->d_name[0] == '.') &&
- (filedir_entry->d_name[1] == '.'))
- continue;
-
- snprintf(path, PATH_MAX, "bio/%s", filedir_entry->d_name);
- if (d_type == DT_UNKNOWN) {
- if (lstat(path, &s) == 0) {
- d_type = IFTODT(s.st_mode);
- }
- }
- switch (d_type)
- {
- case DT_DIR:
- break;
- case DT_LNK:
- case DT_REG:
- usernum = atol(filedir_entry->d_name);
- if (CtdlGetUserByNumber(&usbuf, usernum) == 0) {
- import_one_bio_file(usbuf.fullname, usernum, path);
- }
- }
- }
- closedir(filedir);
- rmdir("bio");
-}
-
-
-
-CTDL_MODULE_INIT(bio)
-{
- if (!threading)
- {
- import_old_bio_files();
- CtdlRegisterProtoHook(cmd_ebio, "EBIO", "Enter your bio");
- CtdlRegisterProtoHook(cmd_rbio, "RBIO", "Read a user's bio");
- }
- /* return our module name for the log */
- return "bio";
-}