/* /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 void eventReceiveFingerRequest(mixed *packet) { mixed *ret; if( !(ret = (mixed *)"/secure/finger"->remote_finger(lower_case(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 *packet) { object ob; string fing; if( file_name(previous_object()) != INTERMUD_D ) return; if( !(ob = find_player(lower_case(packet[5]))) ) return; 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; if( !(pl = (string)this_player(1)->query_name()) ) return; INTERMUD_D->eventWrite( ({ "finger-req", 5, mud_name(), pl, where, 0, who }) ); }