/*    /daemon/services/finger.c
 *    From the Dead Souls V Object Library
 *    Intermud 3 finger service implementation
 *    created by Descartes of Borg 950624
 *    Version: @(#) finger.c 1.2@(#)
 *    Last modified: 96/12/14
 */

#define SERVICE_FINGER

#include <daemons.h>
#include <rooms.h>
#include <message_class.h>

void eventReceiveFingerRequest(mixed array packet) {
    mixed array ret;

    if( file_name(previous_object()) != INTERMUD_D ) return;
    if( !(ret = (mixed array)FINGER_D->GetRemoteFinger(packet[6])) ) {
	INTERMUD_D->eventWrite(({ "error", 5, mud_name(), 0, packet[2],
	    packet[3], "unk-user",
	    capitalize(packet[6]) + " is not involved.",
	    packet }));
	return;
    }
    ret = ({ "finger-reply", 5, mud_name(), 0, packet[2], packet[3] }) + ret;
    INTERMUD_D->eventWrite(ret);
}

void eventReceiveFingerReply(mixed array packet) {
    string fing;
    object ob;
    int i;

    if( file_name(previous_object()) != INTERMUD_D ) return;
    if( !(ob = find_player(convert_name(packet[5]))) ) return;
    fing = "Finger information on " + packet[6] + " from " + packet[2] + ":\n";
    if( packet[7] ) fing += replace_string(packet[7], "$N", packet[6]);
    else fing += packet[6];
    if( packet[8] ) fing += " (" + packet[8] + ")\n";
    else fing += "\n";
    fing += "Level: " + (packet[13] ? packet[13] : "Confidential") + "\n";
    fing += "Email: " + (packet[9] ? packet[9] : "Confidential") + "\n";
    if( (i = packet[11]) != -1 ) {
	fing += (packet[10] ? "On since: " + packet[10] : "Online");
	fing += sprintf(" (idle %02d:%02d:%02d)\n", i/3600, (i/60)%60, i%60);
    }
    else fing += (packet[10] ? "Last logged in: " + packet[10] + "\n" :
	  "Not logged in.\n");
    fing += "Site: " + (packet[12] ? packet[12] : "Confidential") + "\n";
    fing += (packet[14] ? packet[14] : "\n");
    ob->eventPrint(fing, MSG_SYSTEM);
}

void eventSendFingerRequest(string who, string where) {
    string pl;

    if( !(pl = (string)this_player(1)->GetKeyName()) ) return;
    INTERMUD_D->eventWrite( ({ "finger-req", 5, mud_name(), pl, where, 0, 
	who }) );
}