/*    /daemon/postal/letters.c
 *    from Dead Souls
 *    letter management daemon
 *    created by Descartes of Borg 940503
 *    based upon the original letter.c created by Descartes 940130
 */

#include <lib.h>
#include <dirs.h>
#include <daemons.h>
#include <objects.h>
#include "letters.h"

inherit LIB_DAEMON;

private string __Letter;
private mapping __Folders; 
private string *__Undeleted; 
static private string __LetterId;
static private mapping __LettersDir, __PostalDir; 
static private mixed *__LetterPtr, *__PostalPtr;

void create() { 
    string *tmp;
    int i;

    daemon::create();
    SetNoClean(1);
    __Letter = ""; 
    __Folders = ([]);
    __Undeleted = ({}); 
    __LettersDir = ([]); 
    __PostalDir = ([]); 
    __LetterId = 0;
    __LetterPtr = ({ 0, 0}); 
    for(i=0; i<10; i++) { 
	if(unguarded((: file_size, DIR_LETTERS+"/"+i :)) == -2)
	    __LettersDir[i] = unguarded((: get_dir, DIR_LETTERS+"/"+i+"/", 0 :));
    } 
    i = sizeof(tmp = unguarded((: get_dir, DIR_POSTAL+"/", 0 :)));
    if(i) __PostalPtr = ({ tmp[0], 0 }); 
    while(i--) { 
	if(unguarded((: file_size, DIR_POSTAL+"/"+tmp[i] :)) == -2)
	    __PostalDir[tmp[i]] = unguarded((: get_dir, DIR_POSTAL+"/"+tmp[i]+"/", 0 :));
    } 
} 

static private int valid_access() {
    switch(base_name(previous_object(0))) {
    case OBJ_POST: case LETTERS_D: case FOLDERS_D:
    case LOCALPOST_D: case REMOTEPOST_D: case OPTIONS_D:
	return 1;
    default: return 0;
    }
}

string create_letter(string str) { 
    int tmp; 
    string id, dir; 

    if(!valid_access()) return "";
    id = sprintf("%d", tmp = time()); 
    dir = DIR_LETTERS+"/"+(tmp%10); 
    if(unguarded((: file_size, dir+"/" :)) != -2) unguarded((: mkdir, dir :));
    while(unguarded((: file_size, dir+"/"+id+__SAVE_EXTENSION__ :)) != -1)
	id = sprintf("%d", tmp += 10);
    __LetterId = id;
    __Letter = str; 
    __Folders = ([]);
    save_letter();
    return id; 
} 

static private void save_letter() { 
    string file;
    int x;

    x = strlen(__LetterId)-1;
    file = sprintf("%s/%s/%s", DIR_LETTERS,__LetterId[x..x],__LetterId); 
    unguarded((: save_object, file :));
} 

static private int restore_letter(string id) { 
    string dir; 
    int x; 

    if(id == __LetterId) return 1;
    x = strlen(id) - 1; 
    dir = DIR_LETTERS+"/"+id[x..x]; 
    if(!unguarded((: file_exists, dir+"/"+id+__SAVE_EXTENSION__ :))) {
	return 0; 
    }
    unguarded((: restore_object, dir+"/"+id :));
    __LetterId = id;
    if(__Undeleted) {
	x = sizeof(__Undeleted);
	__Folders = ([]);
	while(x--) __Folders[__Undeleted[x]] = ({ "new" });
	__Undeleted = 0;
	save_letter();
    } 
    return 1; 
} 

string query_letter(string id) { 
    string base;

    if((base = base_name(previous_object(0))) != OBJ_POST &&
      base != FOLDERS_D) return "Illegal access.";
    if(!restore_letter(id)) return "Invalid message.\n"; 
    return __Letter; 
} 

void delete_folder(string who, string folder, string id) {
    string *tmp; 
    string file;
    int i; 

    if(!valid_access()) return;
    if(!restore_letter(id)) return; 
    if(!__Folders[who]) return;
    __Folders[who] -= ({ folder });
    if(!sizeof(__Folders[who])) map_delete(__Folders, who);
    save_letter();
    i = sizeof(tmp = keys(__Folders)); 
    while(i--) { 
	file = DIR_POSTAL+"/"+tmp[i][0..0]+"/"+tmp[i]+"/postalrc"+
	__SAVE_EXTENSION__;
	if(!user_exists(tmp[i])) {
	    FOLDERS_D->delete_user(tmp[i]);
	    restore_letter(id);
	}
	else if(!unguarded((: file_exists, file :))) {
	    map_delete(__Folders, tmp[i]);
	    save_letter();
	}
    } 
    if(!sizeof(keys(__Folders))) {
	file = DIR_LETTERS+"/"+id[strlen(id)-1..strlen(id)-1]+"/"+id+__SAVE_EXTENSION__;
	unguarded((: rm, file :));
    }
}

void add_folder(string who, string folder, string id) {
    if(!valid_access()) return;
    if(!restore_letter(id)) return;
    if(!__Folders[who]) __Folders[who] = ({ folder });
    else __Folders[who] += ({ folder });
    save_letter();
}

static void manage_letters() { 
    string str, ext, file; 
    string *tmp; 
    int x, i; 

    if(!(x = sizeof(keys(__LettersDir)))) return;
    if(__LetterPtr[1] >= sizeof(__LettersDir[__LetterPtr[0]])) {
	if(++__LetterPtr[0] >= x) __LetterPtr = ({ 0, 0 });
	else __LetterPtr[1] = 0;
    }
    sscanf(__LettersDir[__LetterPtr[0]][__LetterPtr[1]], "%s.%s", str, ext); 
    __LetterPtr[1]++;
    if(!restore_letter(str)) { 
	return; 
    } 
    i = sizeof(tmp = keys(__Folders)); 
    while(i--) { 
	file = DIR_POSTAL+"/"+tmp[i][0..0]+"/"+tmp[i]+__SAVE_EXTENSION__;
	if(!user_exists(tmp[i])) { 
	    FOLDERS_D->delete_user(tmp[i]);
	    restore_letter(str);
	} 
	else if(!unguarded((: file_exists, file :))) {
	    map_delete(__Folders, tmp[i]);
	    save_letter();
	}
    } 
    if(!sizeof(keys(__Folders))) { 
	file = DIR_LETTERS+"/"+str[strlen(str)-1..strlen(str)-1]+"/"+str+__SAVE_EXTENSION__;
	unguarded((: rm, file :));
    }
} 

static void manage_postal() { 
    string pl, ext, file; 
    string *tmp;
    int x, i; 

    if(!(x = sizeof(tmp = keys(__PostalDir)))) return;
    if(__PostalPtr[1] >= sizeof(__PostalDir[__PostalPtr[0]])) {
	i = member_array(__PostalPtr[0], tmp);
	if(++i == x) i = 0;
	__PostalPtr = ({ tmp[i], 0 });
    }
    if(!pl) {
	__PostalPtr[1]++;
	return;
    }
    sscanf(__PostalDir[__PostalPtr[0]][__PostalPtr[1]], "%s.%s", pl, ext); 
    file = DIR_POSTAL+"/"+pl[0..0]+"/"+pl+__SAVE_EXTENSION__;
    if(!unguarded((: file_exists, file :))) {
	__PostalPtr[1]++;
	return; 
    } 
    if(!user_exists(pl)) FOLDERS_D->delete_user(pl);
    else FOLDERS_D->check_folders(pl);
    __PostalPtr[1]++;
}