/*
 * $Id$
 *
 * This is the "Art Vandelay" module.  It is an importer/exporter.
 *
 */

#include "sysdep.h"
#include <stdlib.h>
#include <unistd.h>
#include <stdio.h>
#include <fcntl.h>
#include <signal.h>
#include <pwd.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/wait.h>
#include <string.h>
#include <limits.h>
#include "citadel.h"
#include "server.h"
#include <time.h>
#include "sysdep_decls.h"
#include "citserver.h"
#include "support.h"
#include "config.h"
#include "dynloader.h"
#include "database.h"
#include "msgbase.h"
#include "tools.h"
#include "user_ops.h"
#include "room_ops.h"
#include "control.h"

#define END_OF_MESSAGE	"---eom---dbd---"

char artv_tempfilename1[256];
char artv_tempfilename2[256];
FILE *artv_global_message_list;

void artv_export_users_backend(struct usersupp *usbuf, void *data) {
	cprintf("user\n");
	cprintf("%d\n", usbuf->version);
	cprintf("%d\n", usbuf->uid);
	cprintf("%s\n", usbuf->password);
	cprintf("%u\n", usbuf->flags);
	cprintf("%ld\n", usbuf->timescalled);
	cprintf("%ld\n", usbuf->posted);
	cprintf("%d\n", usbuf->axlevel);
	cprintf("%ld\n", usbuf->usernum);
	cprintf("%ld\n", usbuf->lastcall);
	cprintf("%d\n", usbuf->USuserpurge);
	cprintf("%s\n", usbuf->fullname);
	cprintf("%d\n", usbuf->USscreenwidth);
	cprintf("%d\n", usbuf->USscreenheight);
	cprintf("%d\n", usbuf->moderation_filter);
}


void artv_export_users(void) {
	ForEachUser(artv_export_users_backend, NULL);
}


void artv_export_room_msg(long msgnum) {
	cprintf("%ld\n", msgnum);
	fprintf(artv_global_message_list, "%ld\n", msgnum);
}


void artv_export_rooms_backend(struct quickroom *qrbuf, void *data) {
	cprintf("room\n");
	cprintf("%s\n", qrbuf->QRname);
	cprintf("%s\n", qrbuf->QRpasswd);
	cprintf("%ld\n", qrbuf->QRroomaide);
	cprintf("%ld\n", qrbuf->QRhighest);
	cprintf("%ld\n", qrbuf->QRgen);
	cprintf("%u\n", qrbuf->QRflags);
	cprintf("%s\n", qrbuf->QRdirname);
	cprintf("%ld\n", qrbuf->QRinfo);
	cprintf("%d\n", qrbuf->QRfloor);
	cprintf("%ld\n", qrbuf->QRmtime);
	cprintf("%d\n", qrbuf->QRep.expire_mode);
	cprintf("%d\n", qrbuf->QRep.expire_value);
	cprintf("%ld\n", qrbuf->QRnumber);
	cprintf("%d\n", qrbuf->QRorder);

	getroom(&CC->quickroom, qrbuf->QRname);
	/* format of message list export is all message numbers output
	 * one per line terminated by a 0.
	 */
	CtdlForEachMessage(MSGS_ALL, 0L, (-127), NULL, NULL,
		artv_export_room_msg);
	cprintf("0\n");

}



void artv_export_rooms(void) {
	char cmd[256];
	artv_global_message_list = fopen(artv_tempfilename1, "w");
	ForEachRoom(artv_export_rooms_backend, NULL);
	fclose(artv_global_message_list);

	/*
	 * Process the 'global' message list.  (Sort it and remove dups.
	 * Dups are ok because a message may be in more than one room, but
	 * this will be handled by exporting the reference count, not by
	 * exporting the message multiple times.)
	 */
	sprintf(cmd, "sort <%s >%s", artv_tempfilename1, artv_tempfilename2);
	system(cmd);
	sprintf(cmd, "uniq <%s >%s", artv_tempfilename2, artv_tempfilename1);
	system(cmd);
}


void artv_export_floors(void) {
        struct floor flbuf;
        int i;

        for (i=0; i < MAXFLOORS; ++i) {
		cprintf("floor\n");
		cprintf("%d\n", i);
                getfloor(&flbuf, i);
		cprintf("%u\n", flbuf.f_flags);
		cprintf("%s\n", flbuf.f_name);
		cprintf("%d\n", flbuf.f_ref_count);
		cprintf("%d\n", flbuf.f_ep.expire_mode);
		cprintf("%d\n", flbuf.f_ep.expire_value);
	}
}





/* 
 *  Traverse the room file...
 */
void artv_export_visits(void) {
	struct visit vbuf;
	struct cdbdata *cdbv;

	cdb_rewind(CDB_VISIT);

	while (cdbv = cdb_next_item(CDB_VISIT), cdbv != NULL) {
		memset(&vbuf, 0, sizeof(struct visit));
		memcpy(&vbuf, cdbv->ptr,
		       ((cdbv->len > sizeof(struct visit)) ?
			sizeof(struct visit) : cdbv->len));
		cdb_free(cdbv);

		cprintf("visit\n");
		cprintf("%ld\n", vbuf.v_roomnum);
		cprintf("%ld\n", vbuf.v_roomgen);
		cprintf("%ld\n", vbuf.v_usernum);
		cprintf("%ld\n", vbuf.v_lastseen);
		cprintf("%u\n", vbuf.v_flags);
	}
}


void artv_export_message(long msgnum) {
	struct SuppMsgInfo smi;
	struct CtdlMessage *msg;
	struct ser_ret smr;
	FILE *fp;
	char buf[256];
	char tempfile[256];

	msg = CtdlFetchMessage(msgnum);
	if (msg == NULL) return;	/* fail silently */

	cprintf("message\n");
	GetSuppMsgInfo(&smi, msgnum);
	cprintf("%ld\n", msgnum);
	cprintf("%d\n", smi.smi_refcount);
	cprintf("%s\n", smi.smi_content_type);
	cprintf("%d\n", smi.smi_mod);

	serialize_message(&smr, msg);
	CtdlFreeMessage(msg);

	/* write it in base64 */
	strcpy(tempfile, tmpnam(NULL));
	sprintf(buf, "./base64 -e >%s", tempfile);
	fp = popen(buf, "w");
	fwrite(smr.ser, smr.len, 1, fp);
	fclose(fp);

	phree(smr.ser);

	fp = fopen(tempfile, "r");
	unlink(tempfile);
	while (fgets(buf, sizeof(buf), fp) != NULL) {
		buf[strlen(buf)-1] = 0;
		cprintf("%s\n", buf);
	}
	fclose(fp);
	cprintf("%s\n", END_OF_MESSAGE);
}



void artv_export_messages(void) {
	char buf[256];
	long msgnum;
	int count = 0;

	artv_global_message_list = fopen(artv_tempfilename1, "r");
	lprintf(7, "Opened %s\n", artv_tempfilename1);
	while (fgets(buf, sizeof(buf), artv_global_message_list) != NULL) {
		msgnum = atol(buf);
		if (msgnum > 0L) {
			artv_export_message(msgnum);
			++count;
		}
	}
	fclose(artv_global_message_list);
	lprintf(7, "Exported %ld messages.\n", count);
}




void artv_do_export(void) {
	cprintf("%d Yikes.\n", LISTING_FOLLOWS);

	/* export the config file */
	cprintf("config\n");
	cprintf("%s\n", config.c_nodename);
	cprintf("%s\n", config.c_fqdn);
	cprintf("%s\n", config.c_humannode);
	cprintf("%s\n", config.c_phonenum);
	cprintf("%d\n", config.c_bbsuid);
	cprintf("%d\n", config.c_creataide);
	cprintf("%d\n", config.c_sleeping);
	cprintf("%d\n", config.c_initax);
	cprintf("%d\n", config.c_regiscall);
	cprintf("%d\n", config.c_twitdetect);
	cprintf("%s\n", config.c_twitroom);
	cprintf("%s\n", config.c_moreprompt);
	cprintf("%d\n", config.c_restrict);
	cprintf("%ld\n", config.c_msgbase);
	cprintf("%s\n", config.c_bbs_city);
	cprintf("%s\n", config.c_sysadm);
	cprintf("%s\n", config.c_bucket_dir);
	cprintf("%d\n", config.c_setup_level);
	cprintf("%d\n", config.c_maxsessions);
	cprintf("%s\n", config.c_net_password);
	cprintf("%d\n", config.c_port_number);
	cprintf("%d\n", config.c_ipgm_secret);
	cprintf("%d\n", config.c_ep.expire_mode);
	cprintf("%d\n", config.c_ep.expire_value);
	cprintf("%d\n", config.c_userpurge);
	cprintf("%d\n", config.c_roompurge);
	cprintf("%s\n", config.c_logpages);
	cprintf("%d\n", config.c_createax);
	cprintf("%ld\n", config.c_maxmsglen);
	cprintf("%d\n", config.c_min_workers);
	cprintf("%d\n", config.c_max_workers);
	cprintf("%d\n", config.c_pop3_port);
	cprintf("%d\n", config.c_smtp_port);
	cprintf("%d\n", config.c_default_filter);

	/* Export the control file */
	get_control();
	cprintf("control\n");
	cprintf("%ld\n", CitControl.MMhighest);
	cprintf("%u\n", CitControl.MMflags);
	cprintf("%ld\n", CitControl.MMnextuser);
	cprintf("%ld\n", CitControl.MMnextroom);
	cprintf("%d\n", CitControl.version);

	artv_export_users();
	artv_export_rooms();
	artv_export_floors();
	artv_export_visits();
	artv_export_messages();

	cprintf("000\n");
}




void artv_import_config(void) {
	char buf[256];

	client_gets(config.c_nodename);
	client_gets(config.c_fqdn);
	client_gets(config.c_humannode);
	client_gets(config.c_phonenum);
	client_gets(buf);	config.c_bbsuid = atoi(buf);
	client_gets(buf);	config.c_creataide = atoi(buf);
	client_gets(buf);	config.c_sleeping = atoi(buf);
	client_gets(buf);	config.c_initax = atoi(buf);
	client_gets(buf);	config.c_regiscall = atoi(buf);
	client_gets(buf);	config.c_twitdetect = atoi(buf);
	client_gets(config.c_twitroom);
	client_gets(config.c_moreprompt);
	client_gets(buf);	config.c_restrict = atoi(buf);
	client_gets(buf);	config.c_msgbase = atol(buf);
	client_gets(config.c_bbs_city);
	client_gets(config.c_sysadm);
	client_gets(config.c_bucket_dir);
	client_gets(buf);	config.c_setup_level = atoi(buf);
	client_gets(buf);	config.c_maxsessions = atoi(buf);
	client_gets(config.c_net_password);
	client_gets(buf);	config.c_port_number = atoi(buf);
	client_gets(buf);	config.c_ep.expire_mode = atoi(buf);
	client_gets(buf);	config.c_ep.expire_value = atoi(buf);
	client_gets(buf);	config.c_userpurge = atoi(buf);
	client_gets(buf);	config.c_roompurge = atoi(buf);
	client_gets(config.c_logpages);
	client_gets(buf);	config.c_createax = atoi(buf);
	client_gets(buf);	config.c_maxmsglen = atol(buf);
	client_gets(buf);	config.c_min_workers = atoi(buf);
	client_gets(buf);	config.c_max_workers = atoi(buf);
	client_gets(buf);	config.c_pop3_port = atoi(buf);
	client_gets(buf);	config.c_smtp_port = atoi(buf);
	client_gets(buf);	config.c_default_filter = atoi(buf);
	
	put_config();
	lprintf(7, "Imported config file\n");
}



void artv_import_control(void) {
	char buf[256];

	client_gets(buf);	CitControl.MMhighest = atol(buf);
	client_gets(buf);	CitControl.MMflags = atoi(buf);
	client_gets(buf);	CitControl.MMnextuser = atol(buf);
	client_gets(buf);	CitControl.MMnextroom = atol(buf);
	client_gets(buf);	CitControl.version = atoi(buf);

	put_control();
	lprintf(7, "Imported control file\n");
}





void artv_do_import(void) {
	char buf[256];

	cprintf("%d sock it to me\n", SEND_LISTING);
	while (client_gets(buf), strcmp(buf, "000")) {

		if (!strcasecmp(buf, "config")) artv_import_config();
		else if (!strcasecmp(buf, "control")) artv_import_control();


	}
}



void cmd_artv(char *cmdbuf) {
	char cmd[256];
	static int is_running = 0;

	if (CtdlAccessCheck(ac_aide)) return;	/* FIXME should be intpgm */
	if (is_running) {
		cprintf("%d The importer/exporter is already running.\n",
			ERROR);
		return;
	}
	is_running = 1;

	strcpy(artv_tempfilename1, tmpnam(NULL));
	strcpy(artv_tempfilename2, tmpnam(NULL));

	extract(cmd, cmdbuf, 0);
	if (!strcasecmp(cmd, "export")) artv_do_export();
	else if (!strcasecmp(cmd, "import")) artv_do_import();
	else cprintf("%d illegal command\n", ERROR);

	unlink(artv_tempfilename1);
	unlink(artv_tempfilename2);

	is_running = 0;
}




char *Dynamic_Module_Init(void)
{
	CtdlRegisterProtoHook(cmd_artv, "ARTV", "import/export data store");
	return "$Id$";
}