/* /daemon/services/finger.c
* from the Nightmare IV LPC Library
* Intermud 3 finger service implementation
* created by Descartes of Borg 950624
* Modified for Discworld by Turrican 1-11-95
*/
#define SERVICE_FINGER
private mapping _finger_ids = ([ ]);
void eventReceiveFingerRequest(mixed *packet) {
mixed *ret;
object demon;
if( !(ret =
(mixed *)"/secure/finger"->remote_finger(lower_case(packet[6]))) ) {
INTERMUD_D->eventExternWrite(({ "error", 5, mud_name(), 0, packet[2],
packet[3], "unk-user",
"No one going by the name of "+
capitalize(packet[6]) + " has ever visited "+
"Discworld.",
packet }));
return;
}
demon = clone_object("/net/daemon/chars/in_finger_demon");
demon->setup_finger(lower_case(packet[6]));
ret = ({ "finger-reply", 5, mud_name(), 0, packet[2], packet[3] }) + ret;
INTERMUD_D->eventExternWrite(ret);
}
void eventReceiveFingerReply(mixed *packet) {
object ob;
string fing;
if( file_name(previous_object()) != INTERMUD_D ) return;
if( !( ob = find_player( _finger_ids[ lower_case(packet[5]) ] ) ) )
return;
map_delete( _finger_ids, lower_case( packet[5] ) );
fing = "Finger information on " + packet[6] + " from " + packet[2] + ":\n";
if( packet[7] && packet[8] ) fing += packet[7] + " (" + packet[8] + ")\n";
else if( packet[8] ) fing += packet[6] + " (" + packet[8] + ")\n";
else if( packet[7] ) fing += packet[7] + "\n";
else fing += packet[6] + "\n";
fing += "Email: " + (packet[9] ? packet[9] : "Confidential") + "\n";
fing += ((packet[11] != -1) ? "On since: " + packet[10] :
"Last logged in: " + packet[10]);
if( packet[11] != -1 ) fing += " (idle " + packet[11] + " seconds)\n";
else fing += "\n";
fing += "Site: " + (packet[12] ? packet[12] : "Confidential") + "\n";
fing += (packet[14] ? packet[14] : "");
tell_object(ob, fing);
}
void eventSendFingerRequest(string who, string where) {
string pl;
string crname;
// This is the person who sent the request.
if( !(pl = (string)this_player(1)->query_name()) ) return;
crname = lower_case( crypt( pl, 0 ) );
_finger_ids[ crname ] = pl;
INTERMUD_D->eventExternWrite( ({ "finger-req", 5, mud_name(), crname, where, 0,
who }) );
}
