/*    /secure/daemon/finger.c
 *    from the Foundation II LPC Library
 *    gives finger information about users
 *    created by Descartes of Borg 950402
 *    Version: @(#) finger.c 1.11@(#)
 *    Last modified: 96/12/14
 */

#include <lib.h>
#include <daemons.h>
#include <marriage.h>
#include <clock.h>
#include "finger.h"

inherit LIB_DAEMON;

private int LoginTime, Level, BirthTime, CreatorBirth, WhereBlock;
private string CurrentUser, Short, CapName, RealName, Email;
private string Town, Race, Gender, HostSite;
private string Class, Clan, Long;
private string Rank, WebPage;
private string array Titles, Religion;
private class marriage array Marriages;

static void create() {
    daemon::create();
    SetNoClean(1);
}

varargs string GetFinger(string who, int html) {
    mapping mail_stat;
    object ob;
    string ret;
    mixed creator;

    if( !who ) {
	object array people;
	string array lines = ({});
	object person;
	int i;
	int array screen;

	screen = (int array)this_player()->GetScreen();
	if( screen && sizeof(screen) ) i = screen[0]; else i = 80;
	ret = center(mud_name(), i) + "\n\n";
	people = filter(users(), (: !((int)$1->GetInvis()) :));
	foreach(person in people) {
	    string str, clas, town;

	    str = (string)person->GetShort();
	    if( !str ) str = (string)person->GetName();
	    if( !str ) continue;
	    if( creatorp(person) ) clas = "creator";
	    else clas = (string)person->GetClass();
	    if( clas ) clas = capitalize(clas);
	    else clas = "Drifter";
	    town = (string)person->GetTown();
	    if( !town ) town = "Homeless";
	    str = sprintf("%:-40s %:-11s %s", str, clas, town);
	    lines += ({ str });
	}
	ret += implode(lines, "\n");
	return ret;
    }
    if( who != CurrentUser ) {
	creator = 0;
	if( !user_exists(who) )
	    return capitalize(who) + " has never visited " + mud_name() + ".";
	else if( !unguarded( (: restore_object, DIR_PLAYERS "/" + who[0..0] +
	      "/" + who :)) &&
	  !(creator = unguarded( (: restore_object, DIR_CRES "/" +
		who[0..0] + "/" + who :) ) )) return 0;
	CurrentUser = who;
    }
    else if( !strsrch(save_file(who), DIR_CRES) ) creator = 1;
    ret = "%^STRONG%^" + replace_string(GetTitle(), "$N", CapName) +
    "%^/STRONG%^BR%^\n";
    if( Long ) {
	ret += replace_string(Long, "$N", CapName) + "%^BR%^\n";
    }
    if( WebPage ) {
	ret += "Home Page: %^HREF%^" + WebPage + "%^>%^";
	if( html ) {
	    ret += WebPage + "%^/A%^BR%^\n";
	}
	else {
	    ret += "%^/A%^BR%^\n";
	}
    }
    else {
	ret += "No home page.%^BR%^\n";
    }
    if( creator ) {
	ret += CapName + " is a " + Gender + " Creator of %^I%^" + mud_name() +
	"%^/I%^.%^BR%^\n";
	ret += "Immortality Date: " + ctime(CreatorBirth) + "%^BR%^\n";
    }
    else {
	string yrstr;
	int yr;

	ret += CapName+" the "+Gender+" "+Race+" "+(Class || "drifter");
	if( Clan ) ret += " of the " + pluralize(Clan);
	if( creatorp(this_player()) && Level ) ret += " ("+Level+")";
	ret += " is a " + Rank+" of " + Town + ".%^BR%^\n";
	BirthTime = BirthTime - (18 * YEAR);
	if( (yr = query_year(BirthTime)) < 0 ) yrstr = -yr + " BN";
	else yrstr = "" + yr;
	ret += sprintf("Birthday: the %d%s day of %s, %s",
	  query_date(BirthTime), ordinal(query_date(BirthTime)),
	  query_month(BirthTime), yrstr) + "%^BR%^\n";
    }
    if( !Email ) Email = "#CHANGE";
    ret += "%^TABLE%^TR%^TD%^" +
    sprintf("In real life: %:-30s %%^/TD%%^TD%%^Email: %s", RealName ,
      (Email[0]!='#' || (this_player(1) && archp(this_player(1))))
      ? (Email[0] == '#' ? Email[1..] : Email) : "Unlisted") +
    "%^/TD%^/TR%^\n";
    ret += "%^TR%^TD%^" +
    sprintf("Religion: %:-34s %%^/TD%%^TD%%^Spouse: %s",
      (!creator && Religion[1]) ? Religion[1] : "Agnostic",
      !sizeof(Marriages) ? "Single" :
      (((class marriage)Marriages[0])->DivorceDate ?
	"Divorced" : ((class marriage)Marriages[0])->Spouse)) +
    "%^/TD%^/TR%^/TABLE%^\n";
    if( (ob = find_player(who)) && (!ob->GetInvis()) ) {
	if( !interactive(ob) ) ret += "Currently net-dead";
	else ret += "On since " + ctime(LoginTime);
    }
    else ret += "Last on " + ctime(LoginTime);
    if( this_player(1) && creatorp(this_player(1)) )
	ret += " from " + HostSite + "%^BR%^\n";
    else ret += "%^BR%^\n";
    mail_stat = (mapping)FOLDERS_D->mail_status(who);
    if( mail_stat["unread"] )
	ret += CapName + " has " + consolidate(mail_stat["unread"],
	  "an unread letter") + ".%^BR%^\n";
    if( unguarded( (: file_size, user_path(who) + ".project" :) ) > 0 )
	ret += "Project: %^PRE%^" +
	unguarded( (: read_file, user_path(who) + ".project" :) ) +
	"%^/PRE%^\n";
    if( unguarded( (: file_size, user_path(who) + ".plan" :) ) > 0 )
	ret += "Plan:%^PRE%^\n" +
	unguarded( (: read_file, user_path(who) + ".plan" :) ) + "%^/PRE%^\n";
    return ret;
}

mixed array GetRemoteFinger(string who) {
    mixed array tmp;
    string plan;
    int creator;
    object ob;

    who = convert_name(who);
    if( who != CurrentUser ) {
	creator = 0;
	if( !user_exists(who) ) return 0;
	else if( !unguarded( (: restore_object, DIR_PLAYERS "/" + who[0..0] +
	      "/" + who :)) &&
	  !(creator = unguarded( (: restore_object, DIR_CRES "/" +
		who[0..0] + "/" + who :) ) )) return 0;
	CurrentUser = who;
    }
    else if( !strsrch(save_file(who), DIR_CRES) ) creator = 1;
    ob = find_player(who);
    if( unguarded( (: file_size, user_path(who) + ".plan" :) ) > 0 ) {
	plan = unguarded( (: read_file, user_path(who) + ".plan", 1, 5 :) );
	if( strlen(plan) ) {
	    plan = "Plan: (truncated to 5 lines)\n" + plan;
	    if( plan[<1] != '\n' ) plan += "\n";
	}
	else plan = 0;
    }
    if( !Email ) Email = "#CHANGE";
    tmp = ({ CapName, GetTitle(), RealName, (Email[0] != '#' ? Email : 0),
      ctime(LoginTime), ((ob && interactive(ob) && !(ob->GetInvis())) ? query_idle(ob) : -1),
      0, (creator ? "Creator" : "" + Level), plan });
    return tmp;
}

string GetTitle() {
    if( Short ) return Short;
    else if( Titles && sizeof(Titles) ) return Titles[0];
    else return CapName;
}