// Copied from Beek's _mudlibs command ;)   Leto
#include <mudlib.h>
#include <net/daemons.h>

inherit DAEMON;

mapping count(string *list) {
    int i;
    mapping ret = ([]);
    for (i=0; i<sizeof(list); i++) {
	ret[list[i]]++;
    }
    return ret;
}

cmd_mudlibs() {
    int i;
    string *mud_names;
    mapping info;
    string mudlib;
    string *mudlibs = ({});
    mapping result;
    string *kinds;

    mud_names = DNS_MASTER->query_mud_names();
    for (i=0; i<sizeof(mud_names); i++) {
	info = DNS_MASTER->query_mud_info(mud_names[i]);
     //mudlib = info["MUDLIB"];
     mudlib = info["MUDLIB"]+" version "+info["VERSION"];
	if (mudlib) {
	    printf("%s is using %s.\n", mud_names[i], mudlib);
	    mudlibs += ({ mudlib });
	}
    }
    printf("-------------------------\n");
    result = count(mudlibs);
    kinds = keys(result);
    for (i=0; i<sizeof(kinds); i++) {
        kinds[i] = sprintf("%s: %i\n", kinds[i], result[kinds[i]]);
    }
    write(implode(sort_array(kinds, 0), ""));
    return 1;
}