/*    /daemon/services/error.c
 *    from the Foundation II LPC Library
 *    error handling for the grand Intermud 3 Protocol
 *    created by Descartes of Borg 950715
 */

void eventReceiveError(mixed *packet) {
    object ob;
    string error_code, mud, target, msg;

    if( packet[5] ) {
	target = convert_name(packet[5]);
	if( !(ob = find_player(target)) ) return;
    }
    mud = packet[2];
    error_code = packet[6];
    msg = packet[7];
    packet = packet[8];
    switch(error_code) {
	case "unk-dst": case "not-imp": case "unk-type": case "unk-src":
	log_file("errors/intermud", error_code + ": " + msg + "\n");
	return;
	case "unk-type":
	log_file("errors/intermud", error_code + ": " + msg + "\n");
	return;
	case "unk-user":
	if( !ob ) return;
	message("system", (msg ? msg : "Unknown user reported from " + mud +
			   "."), ob);
	return;
    }
}