/*    /www/gateways/mudlist.c
 *    from Nightmare IV
 *    a gateway to produce a mudlist for connecting to muds
 *    created by Descartes of Borg 940524
 *    Tweaked a little to work with DNS by Leto@Earth
 */

// FIXED BY AVATAR FOR NEW I3-SYSTEM!, 19/09/95-26/09/95
// CODE FROM _mudlist.c

//#include <mudlib.h>
//#include <net/daemons.h>
//#include <net/dns.h>
#include <net/i3.h>

inherit DAEMON;

string gateway(string unused)
{
  string *mud,flags,str;
  mixed vls;
  int i,j,maxi;
  mapping list,services;
  string *sorted=({});

  list = I3_DAEMON->query_mudlist();
  if (!sizeof(list))
    str = "<TITLE>%s Mudlist Gateway</TITLE><h1>The only mud at this "+
	"time that we know, is our own litle safe mud.\n</h1>";
  else
  {
    mud = keys(list);
    vls = values(list);
    maxi = sizeof(mud);

    str = sprintf("<TITLE>%s Mudlist Gateway</TITLE><h1>"
      "%s is aware of the following %d muds.</h1><OL>",capitalize(MUD_NAME),
      capitalize(MUD_NAME),maxi);

    for(i=0; i<maxi; i++)
      str += sprintf("<LI><a href=telnet://%s:%d>%s</a> (%s %d), "+
                     "Driver: %s, Mudlib: %s %s", vls[i][1], vls[i][2],
        mud[i], vls[i][1],vls[i][2],vls[i][7],vls[i][5],vls[i][9]);

    str += "</OL>This mudlist is maintained dynamically through the "+
           "Intermud network system";
  }

  return str;
}

int alphabetize_muds(string a, string b) { return strcmp(a, b); }